Em sử dụng hàm vlookup trong VBA để tự động điền giá trị ĐVT và Đơn

Chào Thầy, Em sử dụng hàm vlookup trong VBA để tự động điền giá trị ĐVT và Đơn giá khi chọn Tên hàng. Khi em chạy thì VBA không báo lỗi gì nhưng kết quả thực hiện lại không đúng ạ. Đây là đoạn code của em, nhờ Thầy check giúp ạ!

Private Sub cb_tenhang_change()
'Xac dinh dong cuoi trong bang danh sach hang
Dim dongcuoi As Long
dongcuoi = Sheet1.Range("A" & Rows.Count).End(xlUp).Row

'Tu dong dien gia tri vao textbox don vi tinh va don gia khi chon Ten hang.
tb_dvt.Value = WorksheetFunction.VLookup(Sheet3.Range("A3").Value, Sheet1.Range("A3" & ":C" & dongcuoi), 2, False)
tb_dongia.Value = WorksheetFunction.VLookup(Sheet3.Range("A3").Value, Sheet1.Range("A3" & ":C" & dongcuoi), 3, False)

End Sub

4 câu trả lời

245 lượt xem

vỗ tay

Phạm Phúc Thịnh 10:06 - Jun 09, 2020

chào bạn bạn vui lòng đăng file lên được không?

vỗ tay

Phạm Phúc Thịnh 13:06 - Jun 09, 2020

Dạ. em tìm ra lỗi sai rồi thầy ạ! :D

vỗ tay

Phạm Phúc Thịnh 16:06 - Jun 09, 2020

cảm ơn bạn đã đồng hành cùng gitiho chúc bạn học tốt.

vỗ tay

Phạm Phúc Thịnh 17:08 - Aug 20, 2020

Cho mình hỏi cách để lấy ĐVT ứng với tên hàng. Có hơn 1 cách để làm hay sao ?

Private Sub tb_dvt_AfterUpdate()

Dim i As Range

For Each i In Sheet1.Range("A3:A6")

If cb_tenhang = Sheet1.Range("A" & i).Value Then

tb_dvt = Sheet1.Range("B" & i).Value

End If

Next i

End Sub

vỗ tay

Gói Hội viên Gitiho: Trọn bộ khoá học theo Khung năng lực

Gói Hội viên G-Skills: 03 kỹ năng bổ trợ thiết yếu

Em sử dụng hàm vlookup trong VBA để tự động điền giá trị ĐVT và Đơn

Câu hỏi liên quan