snasui.com ยินดีต้อนรับ ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ ระบุ Version ของ Excel
สูตรที่ผมเขียนมาตามด้านล่างผมใส่ On Error Resume Next ไม่ทราบว่าต้องเปลี่ยนเป็นสูตรไหนครับ
รบกวนด้วยครับ ลองเซิสหาในเวปแต่ยังไม่พบสูตรที่ต้องการ
ขอบคุณมากครับ
Private Sub TextBox1_Change()
Dim ITEMNUM As Long
On Error Resume Next
If Len(TextBox1.Text) < 6 Then Exit Sub
ITEMNUM = TextBox1.Value
TextBox2.Value = Application.WorksheetFunction.VLookup(ITEMNUM, Worksheets("STOCKLIST").Range("A2:M4000"), 2, False)
End Sub
Private Sub TextBox1_Change()
Dim ITEMNUM As Long
On Error Resume Next
If Len(TextBox1.Text) < 6 Then Exit Sub
ITEMNUM = TextBox1.Value
If Application.CountIf(Range("A2:A4000"), ITEMNUM) > 0 Then
TextBox2.Value = Application.WorksheetFunction.VLookup(ITEMNUM, Worksheets("STOCKLIST").Range("A2:M4000"), 2, False)
Else
TextBox2.Text = ""
End If
End Sub
Private Sub TextBox1_Change()
Dim ITEMNUM As Long
On Error Resume Next
'If Len(TextBox1.Text) < 6 Then Exit Sub
ITEMNUM = TextBox1.Value
If Application.CountIf(Worksheets("STOCKLIST").Range("A2:A4000"), ITEMNUM) > 0 Then
TextBox2.Value = Application.WorksheetFunction.VLookup(ITEMNUM, Worksheets("STOCKLIST").Range("A2:M4000"), 2, False)
Else
TextBox2.Text = ""
End If
End Sub