Vlookup VBA Excel - Truy vấn tra cứu thông tin trên UserForm

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 (look...

Bách hóa xanh v1

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

Vlookup VBA Excel - Truy vấn tra cứu thông tin trên UserForm

Thông tin về khách hàng được lấy từ sheet(DMKH)

Vlookup VBA Excel - Truy vấn tra cứu thông tin trên UserForm

Đặt tên cho các texbox

- Đặt tên cho Combobox    cbx_ma_khachhang
Vlookup VBA Excel - Truy vấn tra cứu thông tin trên UserForm
- Đặt tên cho 02 textbox
+ txt_hoten_kh
+ txt_diachi_kh
Vlookup VBA Excel - Truy vấn tra cứu thông tin trên UserForm

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
Bách hóa xanh v2

COMMENTS

BLOGGER
Tặng 200 suất học bổng 2 tỷ
Tên

4K video,2,Access,2,Adobe After Effects CS6,1,Android,4,AOMEI,1,app,2,âm nhạc,2,Bạn cần biết,2,blogspot,60,Ca Nhạc,4,Dcom 3G,5,Dell,2,Dịch vụ Mobile,2,Diệt Virut,9,Download,1,Driver,7,Easy Duplicate Finder,1,EFFECTS AEGISUB,1,Excel,51,Facebook,23,fake IP miễn phí,1,FPT,2,Góc Giải Trí,4,Góc Học Tập,2,Hack Tài Liệu,6,HP Scan,1,HTKK 3.8.5,1,idm,1,Internet,27,Internet Download Manager,10,Internet Tips,85,karaoke,1,Kê khai thuế,1,Kế Toán,43,Kiếm Tiền Online,13,Kiến Thức - Linh Tinh,4,Kinh nghiệm,2,LAN,1,Lenovo,1,Man,1,Mẹo Điện thoại,23,Mẹo Office,5,Mẹo vặt,10,Mẹo Windows,63,Misabamboo,17,Mobiistar,2,nhạc,1,Nokia,16,NT_Leng_teng,6,Office,17,Office 2007,2,Office 2010,1,Office 2016,2,Office 2019,1,OPPO,6,Paypal,1,Phần Mềm,15,Phần mềm hay,35,PHIM,18,Phim Nhạc,14,Photodex Proshow Producer,1,QLTS.VN,1,Rufus Downloads,1,Samsung,42,SEO,1,Skype online,1,sức khỏe,1,Tài chính,1,Tải nhạc,1,tailieu.vn,1,Tâm sự,3,Test IQ,1,theme blogspot,9,Thủ thuật hay,7,Thủ Thuật Windows 7,2,Thủ Thuật Windows 8/8.1,8,Tiện ích Windows,37,Tiêu dùng,1,Tin tức IT,14,tối ưu máy tính,2,usb,1,Ứng dụng - app,16,VBA,2,WAN,1,Windows 10,37,windows 7,1,windows 8.1,2,Windows Tips,6,Word,28,
ltr
item
Nhatthienkt's Blog Thủ thuật hay: Vlookup VBA Excel - Truy vấn tra cứu thông tin trên UserForm
Vlookup VBA Excel - Truy vấn tra cứu thông tin trên UserForm
https://1.bp.blogspot.com/-wWKXqDmOP8o/XSFNSEAU2xI/AAAAAAAAAE4/j9RMotxX39EAGc8hLfmFgxhqFuD2ZrdiwCLcBGAs/s640/Screenshot_13.png
https://1.bp.blogspot.com/-wWKXqDmOP8o/XSFNSEAU2xI/AAAAAAAAAE4/j9RMotxX39EAGc8hLfmFgxhqFuD2ZrdiwCLcBGAs/s72-c/Screenshot_13.png
Nhatthienkt's Blog Thủ thuật hay
https://www.nhatthienkt.net/2019/07/vlookup-vba-excel-truy-van-tra-cuu.html
https://www.nhatthienkt.net/
https://www.nhatthienkt.net/
https://www.nhatthienkt.net/2019/07/vlookup-vba-excel-truy-van-tra-cuu.html
true
7376152273705472137
UTF-8
Loaded All Posts Not found any posts VIEW ALL Readmore Reply Cancel reply Delete By Home PAGES POSTS View All RECOMMENDED FOR YOU LABEL ARCHIVE SEARCH ALL POSTS Not found any post match with your request Back Home Sunday Monday Tuesday Wednesday Thursday Friday Saturday Sun Mon Tue Wed Thu Fri Sat January February March April May June July August September October November December Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec just now 1 minute ago $$1$$ minutes ago 1 hour ago $$1$$ hours ago Yesterday $$1$$ days ago $$1$$ weeks ago more than 5 weeks ago Followers Follow THIS PREMIUM CONTENT IS LOCKED STEP 1: Share to a social network STEP 2: Click the link on your social network Copy All Code Select All Code All codes were copied to your clipboard Can not copy the codes / texts, please press [CTRL]+[C] (or CMD+C with Mac) to copy