Cần các bác chỉ bảo về sử dụng VBA cho hàm Vlookup

[se7enl0v3]

Mình có file cần sử dụng VBA cho hàm Vlookup. Mong mọi người chỉ giáo

 

[snow25]

Mình có file cần sử dụng VBA cho hàm Vlookup. Mong mọi người chỉ giáo

Cao nhân thì chắc là đợi thôi.

 

[Ngày mai trời lại sáng]

Đang rảnh:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row > 21 Then
        If Target.Column = 3 Then
            caonhâncôt Target
        End If
    End If
End Sub
Private Sub caonhâncôt(ByVal Tg As Range)
    If Tg.Value <> Empty Then
        Tg.Offset(, -1) = "=VLOOKUP($C" & Tg.Row & ",NXT!$A$4:$H$10000,3,FALSE)"
        Tg.Offset(, 1) = "=VLOOKUP($C" & Tg.Row & ",NXT!$A$4:$H$10000,4,FALSE)"
        Tg.Offset(, 2) = "=VLOOKUP($C" & Tg.Row & ",NXT!$A$4:$H$10000,5,FALSE)"
        Tg.Offset(, 3) = "=VLOOKUP($C" & Tg.Row & ",NXT!$A$4:$H$10000,6,FALSE)"
    Else
        Tg.Offset(, -1).ClearContents
        Tg.Offset(, 1).ClearContents
        Tg.Offset(, 2).ClearContents
        Tg.Offset(, 3).ClearContents
    End If
End Sub

 

[VetMini]

Một cao nhân!
Thớt nhờ đến "các cao nhân" lựn. Còn ai muốn dự trận Hoa Sơn Luận Kiếm, Đồng Sơn Điểm Mâu hôn?

1. Đồng: tiếng Quảng Đông đọc từ này là "thùng"
2. Điểm: chỉ
3. Mâu: tiếng gọi cây giáo

 

[Hoàng Tuấn 868]

Vậy là xuất hiện cao nhân rồi.

 

[VetMini]

Đang rảnh:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row > 21 Then
        If Target.Column = 3 Then
            caonhâncôt Target
        End If
    End If
End Sub

Chỉ có 1 cột = 3, vô số dòng > 21
Vậy thì assert cột trước hiệu quả hơn. Trừ phi trên thực tế khả năng change ở cột 3 và các dòng <= 21 khá cao.

 

[HUONGHCKT]

Mình có file cần sử dụng VBA cho hàm Vlookup. Mong mọi người chỉ giáo

Nếu còn quan tâm, thì thử xem (không phải là cao nhân mà là F0 ngồi buồn góp vui)

 

[Ngày mai trời lại sáng]

Nếu còn quan tâm, thì thử xem (không phải là cao nhân mà là F0 ngồi buồn góp vui)

Bài này em thấy dùng Find gọn hơn dùng Dic

 

[Quang_Hải]

Bài này em thấy dùng Find gọn hơn dùng Dic

Nếu dùng find thì code sẽ gọn nhưng cũng có hạn chế nếu dữ liệu không đồng nhất, chẳng hạn như khoảng trắng thừa, dấu phân cách....
Dùng Dic tuy hơi dài hơn tí nhưng chúng ta có thể đồng nhất dữ liệu trước khi nạp vào Dic, như vậy kết quả luôn mỹ mãn.