Với bảng tính Excel thật để dàng dùng hàm Vlookup, Hlookup để tra cứu tìm và đưa ra kết quả theo yêu cầu. Cú pháp đơn giản là VLOOKUP (lookup_value, table_array, col_index_num, [range_lookup]). Tuy nhiên trong VBA Excel không đơn giản như vậy, có chút phức tạp hơn. Hãy tìm hiểu trong ví dụ dưới đây để khai thác nó.
Ví dụ ta cần lấy thông tin khách hàng từ mã khách hàng được tạo từ bảng DanhMucKhachHang
Thông tin về khách hàng được lấy từ sheet(DMKH)
Đặt tên cho các texbox
- Đặt tên cho Combobox cbx_ma_khachhang
- Đặt tên cho 02 textbox
+ txt_hoten_kh
+ txt_diachi_kh
Xong phần thiết kế UserForm ta đến viết code lấy thông tin từ combobox điền vào 02 textbox (txt_hoten_kh; txt_diachi_kh)
'goi y hien thi ten khach hang va dia chi khach hang
Private Sub cbx_ma_khachhang_DropButtonClick()
Dim i As Long, LastRow As Long
LastRow = Sheets("DMKH").Range("A" & Rows.Count).End(xlUp).Row
If Me.cbx_ma_khachhang.ListCount = 0 Then
For i = 2 To LastRow
Me.cbx_ma_khachhang.AddItem Sheets("DMKH").Cells(i, "A").Value
Next i
End If
End Sub
Private Sub cbx_ma_khachhang_Change()
Dim i As Long, LastRow As Long
LastRow = Sheets("DMKH").Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To LastRow
If Sheets("DMKH").Cells(i, "A").Value = (Me.cbx_ma_khachhang) Or _
Sheets("DMKH").Cells(i, "A").Value = Val(Me.cbx_ma_khachhang) Then
Me.txt_hoten_kh = Sheets("DMKH").Cells(i, "B").Value
Me.txt_diachi_kh = Sheets("DMKH").Cells(i, "C").Value
End If
Next
End Sub
0 Nhận xét
Vui lòng viết comment Tiếng Việt có dấu.
Emoji- Bạn có thể gửi mail trực tiếp qua địa chỉ: nhatthienkt.s@gmail.com
- Nhận xét không hỗ trợ cho người dùng ẩn danh
- Lưu ý những nhận xét với mục đích backlink không liên quan đến nội dung bài viết sẽ bị xóa bỏ
- Bạn muốn theo dõi cập nhật trả lời sớm nhất từ adm vui lòng tick vào ô "Thông báo cho tôi" rồi xuất bản nhận xét của mình.