สูตร vlookup ใส่ใน textbox

[aoohza]

ตามไฟล์แนบครับ
ต้องการให้คีย์ข้อมูลจาก BrunchBox1 และ BrunchBox2, BrunchBox3 ดึงข้อมูลมาครับ
แต่ลองแล้วเด้งเป็นerrorตลอดครับ

[snasui]

ลองดูตัวอย่างการปรับ Code ตามด้านล่างครับ

Code: Select all

Private Sub BranchBox1_Change()
    On Error Resume Next
    If Len(Sheets("Sheet1").BranchBox1.Text) < 5 Then Exit Sub
    v = CLng(Sheets("Sheet1").BranchBox1.Value)
    With Application.WorksheetFunction
        Sheets("Sheet1").BranchBox2.Value = .VLookup(v, Sheets("data").Range("Name"), 2, False)
        Sheets("Sheet1").BranchBox3.Value = .VLookup(v, Sheets("data").Range("Name"), 3, False)
    End With
    If Err <> 0 Then
        MsgBox "Please check your code."
    End If
End Sub

[aoohza]

ได้แล้วครับ
ขอบพระคุณอาจารย์มากๆครับ
CLng ใช้กับค่าที่เป็นเฉพาะตัวเลขใช่มั้ยครับ
เพราะเคยลองแบบมีอักษรปนด้วยไม่ขึ้นerrorครับ ไม่รู้ผมเข้าใจถูกรึเปล่า

[snasui]

Clng เป็นการแปลงค่าใน TextBox ให้เป็น Number เพื่อจะได้นำไปใช้ Vlookup ได้

โดยปกติค่าใน TextBox จะเป็น Text การนำไป Vlookup กับ Number จึงต้องแปลงให้เป็น Number เหมือนกันก่อนครับ

[aoohza]

กระจ่างเลยครับ ขอบคุณอาจารย์มากครับ