ดึงข้อมูลจากอีก sheet มาใส่ใน textbox ครับ
Posted: Wed Jul 29, 2020 3:26 pm
ผมต้องการดึงข้อมูล รหัสพนักงาน มาใส่ใน txtID โดย มีช่อง txtSerch ในการใส่คำค้นหา ใช้ชื่อจริงในการค้นหา แล้วกดปุ่มค้นหาครับ
ลองแล้วไม่มีค่าใดๆ มาเลยครับ ขอบคุณครับ
ลองแล้วไม่มีค่าใดๆ มาเลยครับ ขอบคุณครับ
Code: Select all
Private Sub butName_Click()
Dim i As Long, LastRow As Long
LastRow = Sheets("Data").Range("D" & Rows.Count).End(xlUp).Row
For i = 2 To LastRow
If Sheets("Data").Range("D" & i).Value = (Me.txtSerch) Then
Me.txtID = Sheets("Data").Range("A" & Rows.Count).End(xlUp).Row + 1
End If
Next i
End Sub
แนบไฟล์ที่มี Code นี้มาด้วยจะได้ช่วยทดสอบให้ได้ครับ