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

[smilekoong]

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

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

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

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

[snasui]

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

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

[smilekoong]

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

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

[snasui]

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

Code: Select all

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = KeyCodeConstants.vbKeyReturn Then
            TextBox1.SetFocus
            KeyCode = 0
    End If
End Sub

[smilekoong]

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

[smilekoong]

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

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

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

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

ขอบคุณครับ

[snasui]

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

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

[smilekoong]

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

[snasui]

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

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

[smilekoong]

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

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

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

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

[snasui]

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

[smilekoong]

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

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

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

Code

ขอบคุณครับ

[snasui]

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

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

[smilekoong]

อาจารย์ ครับ นี้เป็น 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

[snasui]

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

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

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

[smilekoong]

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

[smilekoong]

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

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

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


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

[snasui]

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

[smilekoong]

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