Code chèn comment vào cell

[lamtt]

Chào các bác.

Em đang làm bảng báo cáo bằng Excel, có sử dụng Pivote table. Em muốn tạo 1 hàm để khi click vào 1 code bất kì
trong bảng pivot thì sẽ hiện lên tên (dạng comment) của code đó. Em nghĩ mãi mà chưa biết làm sao?
Em gửi kèm file Excel, các bác vui lòng giúp em với.

Cám ơn các bác.

Lamtt

 

[Hai Lúa Miền Tây]

Chào các bác.

Em đang làm bảng báo cáo bằng Excel, có sử dụng Pivote table. Em muốn tạo 1 hàm để khi click vào 1 code bất kì
trong bảng pivot thì sẽ hiện lên tên (dạng comment) của code đó. Em nghĩ mãi mà chưa biết làm sao?
Em gửi kèm file Excel, các bác vui lòng giúp em với.

Cám ơn các bác.

Lamtt

Bạn chép code sau vào code sheet có pivot

Sub Worksheet_Selectionchange(ByVal target As Range)
 On Error Resume Next
    If target.Column = 1 Then
      With target
        If Len(target) > 0 Then
           .Comment.Delete
           .AddComment
           .Comment.Text Application.WorksheetFunction.VLookup(target, Sheet3.Range("a2:b10"), 2, 0)
        End If
      End With
    End If
  
End Sub

 

[lamtt]

Cám ơn bác domfootwear đã giúp đỡ.
Em đã làm được rồi!
Mở rộng vấn đề ra, nếu em muốn khi click vào ô nào thì chỉ có ô đó được add comment mà thôi,
các comment khác trong cột đã add trước đây đều bị xóa hết. Thế thì phải bổ sung code như thế nào
hả bác? Em thử hết các kiểu rồi nhưng vẫn không được. Bác giúp em thêm lần nữa nhé!
Cám ơn bác nhiều.