Hiện giá trị vlookup trong khung comment (1 người xem)

[TDTRUONG]

Các Pro giúp em VBA để thể hiện giá trị vlookup trong khung comment tại chính ô chứa giá trị dò tìm

 

[TDTRUONG]

Các bác giúp em gấp...gấp...gấp... nhé. Tks

 

[Hau151978]

Các bác giúp em gấp...gấp...gấp... nhé. Tks

Lệnh kiểm tra xem ô A1 có comment chưa: If Range("A1").Comment Is Nothing Then...
Lệnh thêm comment nếu chưa có: Range("A1").Addcomment str
Lệnh sửa comment: Range("A1").Comment.Text str
str là biến string gì đó tuỳ bạn.

 

[leonguyenz]

Các Pro giúp em VBA để thể hiện giá trị vlookup trong khung comment tại chính ô chứa giá trị dò tìm

Hỏi VBA mà gửi trong Hàm và Công thức Excel là sai Box.
Hỏi spam "gấp ... gấp ..." coi chừng bị khóa bài.
Hỏi không rõ ràng, không có file ví dụ, ... thì chẳng ai thèm trả lời.
Viết cũng hơn chục bài rồi, cố gắng xem thêm Nội quy diễn đàn nếu không muốn bài vào thùng rác.
Tham khảo code:
[gpecode=vb]
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range, rFind As Range, Cmt As Comment
Set Rng = Sheet1.Range("A1:A3")
If Not Intersect(Target, [D24]) Is Nothing Then
If Target.Count = 1 Then
Set rFind = Rng.Find(Target, , xlValues, xlWhole)
Set Cmt = Target.Comment
If Not rFind Is Nothing Then
If Not Cmt Is Nothing Then
Target.Comment.Text Text:="" & rFind.Offset(, 1) & ""
Else
Target.AddComment
Target.Comment.Text Text:="" & rFind.Offset(, 1) & ""
End If
Else
If Not Cmt Is Nothing Then
Target.Comment.Delete
End If
End If
End If
End If
End Sub

[/gpecode]