Excel Forum

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

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

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

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

snasui wrote: Sat Jan 12, 2019 8:46 pm ผมเข้าใจว่าต้องการจะให้ 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 ก็จะมีแต่คำว่าบ้านค่ะ

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

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