Bẫy lỗi khi sử dụng hàm vlookup (1 người xem)

[diemhuyenanh]

chào anh chị và các bạn trên GPE. tôi đang làm một form có 1 combobox để load danh sach mã hàng và 2 textbox
textbox1 tôi gán worksheetfunction.vlookup(combobox1.value,sheet1.range("vungdulieu"),2,0) để dò tìm dữ liệu. nếu hàm này xẩy ra lỗi do giữ liệu trong combobox1 không có trong bảng dò tìm;thì tôi muốn bẫy lỗi để:
thoát khỏi sub và đồng thời gán textbox2="". textbox3=""
còn nếu không xẩy ra lỗi thì sub hoạt động bình thường.
cụ thể đoạn code thế này
combobox1 dùng sự kiện change

sub hoicaothu()
on error goto thoat
textbox1.value=application.worksheetfunction.vlookup(combobox1.value,sheet1.range("vungdulieu"),2,0)
textbox2.value=application.worksheetfunction.vlookup(combobox1.value,sheet1.range("vungdulieu"),3,0)
thoat:
textbox2=""
textbox3=""
end sub

nếu viết thế này thì textbox1 và 2 luôn luôn được gán là rỗng

 

[Quang_Hải]

chào anh chị và các bạn trên GPE. tôi đang làm một form có 1 combobox để load danh sach mã hàng và 2 textbox
textbox1 tôi gán worksheetfunction.vlookup(combobox1.value,sheet1.range("vungdulieu"),2,0) để dò tìm dữ liệu. nếu hàm này xẩy ra lỗi do giữ liệu trong combobox1 không có trong bảng dò tìm;thì tôi muốn bẫy lỗi để:
thoát khỏi sub và đồng thời gán textbox2="". textbox3=""
còn nếu không xẩy ra lỗi thì sub hoạt động bình thường.
cụ thể đoạn code thế này
combobox1 dùng sự kiện change

sub hoicaothu()
on error goto thoat
textbox1.value=application.worksheetfunction.vlookup(combobox1.value,sheet1.range("vungdulieu"),2,0)
textbox2.value=application.worksheetfunction.vlookup(combobox1.value,sheet1.range("vungdulieu"),3,0)
thoat:
textbox2=""
textbox3=""
end sub

nếu viết thế này thì textbox1 và 2 luôn luôn được gán là rỗng

Thêm Exit Sub trước câu lệnh thoat:

textbox1.value=application.worksheetfunction.vlookup(combobox1.value,sheet1.range("vungdulieu"),2,0)
textbox2.value=application.worksheetfunction.vlookup(combobox1.value,sheet1.range("vungdulieu"),3,0)
Exit Sub
thoat: