ขอสอบถามเกี่ยวกับการใส่ข้อมูลใน Combo Box

[noona]

ขอสอบถามเกี่ยวกับการใส่ข้อมูลใน Combo Box ค่ะ ต้องการให้ Drop down ขยายช่องให้พอดีกับข้อมูลค่ะ และ ให้สามารถพิมพ์แค่ชื่อ Drop down แสดงข้อมูลตามที่พิมพ์ ไม่ทราบว่าต้องแก้โค้ดยังไงบ้างค่ะ หรือมีคำแนะนำยังให้ให้ได้ตามความต้องการ ช่วยแนะนำด้วยนะคะ

เปิดใช้ Form ที่ไฟล์ Form-Copy จะไปดึงข้อมูลมาจาก ไฟล์ Employee Data ค่ะ

[snasui]

ผมเข้าใจว่าต้องการจะให้ ComboBox สามารถขยายเพิ่มลดตามปริมาณข้อมูลในคอลัมน์ C ของชีต Address

หากผมเข้าใจถูกต้อง ให้ปรับ Code UserForm_Activate เป็นด้านล่างครับ

Code: Select all

Private Sub Userform_Activate()
    On Error Resume Next
    Dim tambon1 As String
    With Sheets("Address")
        listtambon1.ColumnCount = 4
        tambon1 = .Range("c3", .Range("c" & .Rows.Count).End(xlUp)).Address
        listtambon1.RowSource = "Address!" & tambon1
    End With
End Sub

ปัจจุบ้น ComboBox ที่กล่าวถึงสามารถพิมพ์แล้วขึ้นข้อความที่ตรงกับค่าที่กำลังพิมพ์ให้อัตโนมัติอยู่แล้ว ไม่ทราบว่าเกิดปัญหาลักษณะไหน อย่างไร ช่วยแจ้งมาอีกรอบครับ

[noona]

ผมเข้าใจว่าต้องการจะให้ ComboBox สามารถขยายเพิ่มลดตามปริมาณข้อมูลในคอลัมน์ C ของชีต Address

หากผมเข้าใจถูกต้อง ให้ปรับ Code UserForm_Activate เป็นด้านล่างครับ

Code: Select all

Private Sub Userform_Activate()
    On Error Resume Next
    Dim tambon1 As String
    With Sheets("Address")
        listtambon1.ColumnCount = 4
        tambon1 = .Range("c3", .Range("c" & .Rows.Count).End(xlUp)).Address
        listtambon1.RowSource = "Address!" & tambon1
    End With
End Sub

ปัจจุบ้น ComboBox ที่กล่าวถึงสามารถพิมพ์แล้วขึ้นข้อความที่ตรงกับค่าที่กำลังพิมพ์ให้อัตโนมัติอยู่แล้ว ไม่ทราบว่าเกิดปัญหาลักษณะไหน อย่างไร ช่วยแจ้งมาอีกรอบครับ

ขอบคุณอาจารย์มากนะคะ ComboBox ที่ต้องการคือโชว์ 4 คอลัมน์คือ C ถึง F ของชีต Adress แต่ Drop down ที่โชว์ เห็นเพียงคอลัมน์เดียวค่ะ ต้องการให้เห็นทััง ตำบล อำเภอ จังหวัด รหัสไปรษณีย์เลย ไม่ต้องเลื่อนดูค่ะ ไม่แน่ใจว่าสามารถทำได้หรือไม่คะ

ส่วนเรื่องที่พิมพ์ คือต้องการถ้าพิมพ์คำว่า บ้าน ในlist ก็จะมีแต่คำว่าบ้านค่ะ

[snasui]

เพิ่มการแสดงผล ComboBox เป็นหลายคอลัมน์โดยกำหนดที่ Property ได้ตามภาพด้านล่างครับ

ส่วนการคีย์แล้วให้ Search มาให้ด้วย จะต้องปรับปรุงอีกมาก อย่างแรกจะใช้ RowSource ไม่ได้ จะต้อง Loop ค่าเข้าไปใช้ จะเกิดการ Loop ทุก ๆ การคีย์เพื่อนำค่าตามที่คีย์มาใช้ ลองศึกษาตามตัวอย่างเหล่านี้ครับ Search with typing