Code thay hàm vlookup (1 người xem)

[Thaiduc]

Nhờ Diễn đàn giúp mình Code thay hàm VLOOKUP trong bảng tính Excel.
Xin gửi kèm theo file.
Rất cám ơn.

 

[Lê Duy Thương]

Nếu bạn noi. Dùng giải pháp khác để kết quả giống vlookup thì có.chứ thay thế code. Thì tôi tin hiếm lắm.

 

[hanhpptc]

Có phải ý của bạn là như thế này?

 

[Thaiduc]

hanhpptc có thể giải thích giúp mình nội dung Code không vậy. Có thể sửa lại không cần ghi dữ liệu từ TextBox tenap vào Sheets được không? Rất cám ơn hanhpptc.

 

[hanhpptc]

hanhpptc có thể giải thích giúp mình nội dung Code không vậy. Có thể sửa lại không cần ghi dữ liệu từ TextBox tenap vào Sheets được không? Rất cám ơn hanhpptc.

Đã sửa lại không cần ghi Combobox tenap vào sheet (cột C)
Còn giải thích code thì:
1. Thủ tục khi click nut ghi
Private Sub CommandButton1_Click()
On Error Resume Next - Bỏ qua những lỗi nếu có
Nhap = Sheet1.Range("A1000").End(3).Row - Gán biến Nhap là dòng có dữ liệu cuối cùng của cột A (từ A1 đến A1000). Bạn có thể hơn A1000 là tùy bạn.
Sheet1.Range("A" & Nhap + 1).Value = Me.DC.Value - Gán ô A hàng tiếp sau (Nhap+1) nội dung của Textbox DC.
Me.Tenap.Value = ""
Me.DC.Value = ""
End Sub
2. Thủ tục khi chọn tên ấp:
Private Sub Tenap_Change()
On Error Resume Next
DC.Value = ChrW(7844) + "p " & Tenap.Column(0) & " " & Tenap.Column(1) - Gán nội dung của Textbox DC là: Ấp + Cột 1 của Tenap + cột 2 của Tenap
End Sub