Chỉ dùng VBA để tham chiếu dữ liệu nhập vào (1 người xem)

[keke355992]

XIn chào các A/c trong diễn đàn. E muốn chỉ dùng VBA để tham chiếu dữ liệu mà k dùng đến công thức Excel làm trung gian... yêu cầu e đã ghi rõ trong file rùi ạ. Nhờ các A/c xem giúp em file này. E cảm ơn

 

[Let'GâuGâu]

XIn chào các A/c trong diễn đàn. E muốn chỉ dùng VBA để tham chiếu dữ liệu mà k dùng đến công thức Excel làm trung gian... yêu cầu e đã ghi rõ trong file rùi ạ. Nhờ các A/c xem giúp em file này. E cảm ơn

Bạn tìm hiểu về phương thức find, hoặc cũng có thể dùng hàm match

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("F6:F20")) Is Nothing Then
    If Target.Value <> "" Then Target.Offset(, -1) = Application.Match(Target.Value, [L6:L20], 0)
End If
End Sub

 

[khuongvietphong]

XIn chào các A/c trong diễn đàn. E muốn chỉ dùng VBA để tham chiếu dữ liệu mà k dùng đến công thức Excel làm trung gian... yêu cầu e đã ghi rõ trong file rùi ạ. Nhờ các A/c xem giúp em file này. E cảm ơn

Bạn cũng có thể viết thế này chẳng hạn:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("X5:X18")) Is Nothing Then
    If Target.Value <> "" Then
       For i = 6 To 15
         If Cells(i, 11) = Target.Value Then
           Target.Offset(, 1) = Cells(i, 11).Offset(, 1)
           Exit For
         End If
        Next i
     End If
 End If
End Sub

 

[phulien1902]

XIn chào các A/c trong diễn đàn. E muốn chỉ dùng VBA để tham chiếu dữ liệu mà k dùng đến công thức Excel làm trung gian... yêu cầu e đã ghi rõ trong file rùi ạ. Nhờ các A/c xem giúp em file này. E cảm ơn

Có lẽ là cái này:

Sub ABC()
    Dim LR As Long
    LR = Sheets(1).Range("K" & Rows.Count).End(3).Row
    With Sheets(1).Range("Y6:Y" & LR)
        .Formula = "=VLOOKUP(X6,Sheet1!$K$6:$L$" & LR & ",2,FALSE)"
        .Value = .Value
        .Replace "#N/A", ""
    End With
End Sub

 

[keke355992]

Xin cảm ơn các A/c nhìu ạ. E đã có thêm nhìu cách cho mình rồi