ใช้ COMBOBOX ใน USERFORM เพื่อค้นหาข้อมูลโดยใช้คำสั่ง VLOOKUP

[panuwat.s]

เรียนท่านอาจารย์และท่านผู้รู้ครับ
ผมขอความอนุเคราะห์จากท่าน ในการแก้ปัญหา VBA DEBUG ซึ่งเกิดจากความต้องการใช้ COMBOBOX เพื่อเรียกชื่อผลิตภัณฑ์ แล้วค้นหาเพื่อแสดงค่า “ประเภท” และ “FEE RATE” โดยใช้คำสั่ง VLOOKUP ครับ
1.COMBOBOX (ComB_Product) แสดง “ชื่อผลิตภัณฑ์” (B4:B49)
2.TEXTBOX (Txt_Cat) แสดง “ประเภท” (A4:A49)
3.TEXTBOX (Txt_Rate) แสดง “FEE RATE” (C4:C49)

CODE
Private Sub ComB_Product_Change()
With Application.WorksheetFunction
Txt_cat.Value = .VLookup(ComB_Product.Value, ActiveSheet.Range("A4:C49"), 1, False)
Txt_rate.Value = .VLookup(ComB_Product.Value, ActiveSheet.Range("A4:C49"), 3, False)
End With
End Sub

ขอแสดงความนับถือ

[puriwutpokin]

ลองปรับเป็น

Code: Select all

Private Sub ComB_Product_Change()
With Application
        Txt_cat.Value = .VLookup(ComB_Product.Value, ActiveSheet.Range("B2:C49"), 1, False)
       Txt_rate.Value = .VLookup(ComB_Product.Value, ActiveSheet.Range("B2:C49"), 2, False)
    End With
End Sub

ครั้งช่วยโพสโค้ดแบบนี้ด้วยครับ

[panuwat.s]

ได้แล้วครับ ขอพระคุณครับ คุณ puriwutpokin