การใช้ Vlookup กับ combobox
Posted: Fri Sep 24, 2021 12:41 am
ยังเป็นมือใหม่ขอคำชี้แนะด้วยครับ
จากโคต
จุดประสงค์ จะให้ textbox ต่างๆ ค้นข้อมูล จาก combobox โดยใช้คำสั่ง Vlookup
แต่พอกดรัน มันขึ้น run time error 1004 unable to get the vlookup property of worksheetfunction class
นี่ Code ครับ
Private Sub ComboBox1_Change()
Set xRg = Worksheets("stock").Range("A2:J8")
Me.TextBox_QTY.Value = Application.WorksheetFunction.VLookup(Me.ComboBox1.Value , xRg, 6, 0)
End Sub
*******
ComboBox1 เป็นชื่อรายการของ Stock เช่น ตะปู ฟิวเจอร์บอร์ด ดึงรายการจาก Sheet ที่กำหนดไว้
TextBox_QTY เป็นจำนวนยอดคงเหลือที่เบิกได้ ตั้งใจจะให้แสดงค่าเป็นตัวเลข โดยอาศัยดึงข้อมูลจาก Sheet ที่กำหนดไว้
**********
มันแนบไฟล์ไม่ได้แจ้งเป็นไฟล์ขนาดใหญ่ครับ
จากโคต
จุดประสงค์ จะให้ textbox ต่างๆ ค้นข้อมูล จาก combobox โดยใช้คำสั่ง Vlookup
แต่พอกดรัน มันขึ้น run time error 1004 unable to get the vlookup property of worksheetfunction class
นี่ Code ครับ
Private Sub ComboBox1_Change()
Set xRg = Worksheets("stock").Range("A2:J8")
Me.TextBox_QTY.Value = Application.WorksheetFunction.VLookup(Me.ComboBox1.Value , xRg, 6, 0)
End Sub
*******
ComboBox1 เป็นชื่อรายการของ Stock เช่น ตะปู ฟิวเจอร์บอร์ด ดึงรายการจาก Sheet ที่กำหนดไว้
TextBox_QTY เป็นจำนวนยอดคงเหลือที่เบิกได้ ตั้งใจจะให้แสดงค่าเป็นตัวเลข โดยอาศัยดึงข้อมูลจาก Sheet ที่กำหนดไว้
**********
มันแนบไฟล์ไม่ได้แจ้งเป็นไฟล์ขนาดใหญ่ครับ