Excel Forum

ขอสอบถาม Code vba เพื่อกำหนด Dropdown-list ครับ

ผมพยายามศึกษาและทำแบบฟอร์มเพื่อบันทึกการติดต่อกับลูกค้า ได้สอบถามและศึกษาและเขียนโค้ด ตามคำแนะนำของหลายๆท่าน แต่ติดอยู่ที่การเขียนโค้ด เพื่อกำหนด Dropdown-list ครับ รบกวนสอบถามด้วยครับ

Dropdown-list ที่ต้องการคือ
ผู้ตอบ :
สถานะการเปิดเมล์ :
ผู้รับผิดชอบ :

ขออภัยด้วยครับหากอธิบายไม่ชัดเจน
ขอบคุณครับ

ช่วยอธิบายมาเพิ่มเติมว่าต้องการให้ช่องใดมีค่าเป็นเท่าใดบ้าง ด้วยเงื่อนไขใด แจ้งวิธีการทำงานมาด้วยตามลำดับ

Code ที่เขียนไว้แล้วชื่อว่าอะไรติดขัดบรรทัดใดครับ

ครับ อาจารย์ snasui เรื่องคำถาม Dropdown-list ผมหาวิธีการได้แล้วครับ

ผมขอสอบถามในส่วนของ ช่องสำหรับพิมพ์ ในกล่อง Textbox ใน form ให้สามารถกด Enter แล้วยังอยู่ในกล่องเดิม เพื่อพิมพ์ข้อความต่อได้ ต้องกำหนด properties ในส่วนไหนครับ

ตัวอย่าง Code ครับ

ขอบคุณครับ อาจารย์

อาจารย์ครับ ผมขอสอบถามเพิ่เติมครับ

ผมทำแบบฟอร์ม ในการบันทึกข้อมูลการติดต่อกับลูกค้าเรียบร้อยแล้ว

ถ้าผมต้องการที่จะบันทึกข้อมุลการตอบกลับจากแบบฟอร์ม และส่งข้อมูลไปยังตารางข้อมูล และจะมีวิธีการใดให้ข้อมูลการตอบที่กรอกข้อมูลบน form ส่งไปยังข้อมูลในตารางอย่างถูกต้องได้ครับ

เบื้องต้นผมได้ทำฟอร์มสำหรับการตอบกลับ ไม่ทราบว่าแบบนี้สามารถทำได้หรือไม่ครับ ถ้าได้สามารถเขียนโค้ดเบื้องต้นอย่างไรครับ
ขอคำแนะนำด้วยครับ

ขอบคุณครับ

แบบของ Form ไม่ใช่ปัญหาหลักในการ Update กลับไปยังแหล่งข้อมูล

หลักการคือต้องทราบว่ารายการที่ต้องการปรับปรุงนั้นคือรายการใดในแหล่งข้อมูล ปกติจะใช้ตรวจสอบด้วยคีย์หลักของข้อมูลนั้นว่าอยู่ในตำแหน่งใด แล้วค่อยนำข้อมูลใน Form กลับไป Update ครับ

ถ้าใช้หลักการ อย่างที่อาจารย์ แนะนำมานั้น ผมต้องเริ่มต้นด้วยวิธีการใด ครับ อาจารย์

คำถามกว้างไปนะครับ

ให้เริ่มต้นด้วยการเขียน VBA ครับ ซึ่งเป็นคำตอบที่กว้างพอ ๆ กันครับ

ครับ อาจารย์ ผมขอศึกษาข้อมูล การเขียน Code เพิ่มเติมก่อนครับ เนื่องจาก ไม่มีความรู้เรื่อง VBA มาก่อน ครับ

ถ้าติดขัดอย่างไรผมจะกลับมาถามอาจารย์เพิ่มเติมครับ

ขอบคุณครับอาจารย์

หากมีตัวอย่าง รบกวนอาจารย์แนะนำด้วยครับ

ลองศึกษาจากกระทู้เหล่านี้น่าจะพอเป็นแนวทางได้บ้างครับ Application.Match

อาจารย์ ครับ ผมสามารถทำได้แล้วครับ ขอบคุณสำหรับคำแนะนำ ครับ

ผมติดปัญหาอยู่ข้อ 1 ครับ คือ ผมกำหนด Code ให้ดึงข้อมูลจากตางข้อมูล ที่เป็นรูปแบบวันที่ มาแสดงบน form แต่ข้อมูลที่แสดงบนฟอร์ม แสดงเป็น 42065.3201388889

แบบนี้ผมต้องแก้ไขที่ code หรือกำหนด properties ครับอาจารย์ และ ควรปรับ code หรือ properties อย่างไรครับ

Code

ขอบคุณครับ

ลองใช้ Format เข้าไปช่วยครับ เช่น

TextBox1.Text = Format(Range("A1").value,"ddmmyyyy") เป็นต้น

อาจารย์ ครับ นี้เป็น Code ที่ผมกำหนดให้นำข้อมูลมาแสดงครับ ต้องนำ Code ที่อาจารย์แนะนำมาอย่างไรครับ

Private Sub ComboBox1_Change()
On Error Resume Next
Set myRange = Worksheets("march.2015").Range("A3:O1048576")
ComboBox1.Value = Application.WorksheetFunction.VLookup(CLng(ComboBox1), myRange, 1, False)

datebox.Text = Application.WorksheetFunction.VLookup(CLng(ComboBox1), myRange, 4, False)
โค้นนี้ครับที่ผมใช้ดึงข้อมูลวันที่มาแสดงครับ


Ctbox.Value = Application.WorksheetFunction.VLookup(CLng(ComboBox1), myRange, 6, False)
mailbox.Value = Application.WorksheetFunction.VLookup(CLng(ComboBox1), myRange, 7, False)
subject.Value = Application.WorksheetFunction.VLookup(CLng(ComboBox1), myRange, 8, False)
reply.Value = Application.WorksheetFunction.VLookup(CLng(ComboBox1), myRange, 9, False)
Box4.Value = Application.WorksheetFunction.VLookup(CLng(ComboBox1), myRange, 10, False)
DateOut.Text = Application.WorksheetFunction.VLookup(CLng(ComboBox1), myRange, 11, False)
Box1.Value = Application.WorksheetFunction.VLookup(CLng(ComboBox1), myRange, 12, False)
Box2.Value = Application.WorksheetFunction.VLookup(CLng(ComboBox1), myRange, 13, False)
Box3.Value = Application.WorksheetFunction.VLookup(CLng(ComboBox1), myRange, 14, False)

If Err <> 0 Then
MsgBox "äÁèÁÕÃÒ¡Ò÷Õè·èÒ¹àÅ×Í¡", vbQuestion
Exit Sub
End If
End Sub

การโพสต์ Code ให้สะดวกต่อการอ่านและการนำไปทดสอบ ให้ดูตัวอย่างจาก Link นี้ครับ viewtopic.php?f=6&t=1187

กรณีดึงมาด้วย Vlookup ก็ให้ครอบ Vlookup ด้วย Format โดยดูตัวอย่างตาม Form ที่ผมโพสต์ไปด้านบน

ลองปรับมาเองดูก่อนเสมอ ติดตรงไหนค่อยมาถามกันต่อครับ

รับทราบ ครับ อาจารย์ ต้องขอโทษด้วยครับ ที่ทำผิดกติกา ครับ

อาจารย์ ครับ ผมสามารถทำได้แล้วครับ จากคำแนะนำของอาจารย์ครับ

ผมมีคำถามต่อครับ

ผมต้องการกำหนดให้ สามารถเลื่อนปุ่มกลางเม้าเพื่ออ่านข้อความที่อยู่ใน Textbox ณ ตอนนี้ผมต้องเลื่อนสกอร์บาร์ ด้านข้างอย่างเดียวครับ ต้องกำหนด properties หรือ ต้องเขียน Code อย่างไรครับ จึงสามารถเลื่อนปุ่มกลางเมาส์ได้ด้วยครับ


ขอบคุณครับอาจารย์

คงต้องพึ่ง API Function ดูตัวอย่างที่นี่ครับ Mouse Scroll in UserForm

ขอบคุณมากครับ ดูแล้วคงต้องศึกษาอีกนานครับ ได้ผลอย่างไรจะกลับมาแจ้งให้ทราบนะครับอาจารย์