chuyển giữ liệu từ sheet này thành ghi chú bên sheet khác !!!

[DnD303]

Các bro cho em hỏi làm cách nào để chuyển giữ liệu từ sheet này thành ghi chú của sheet kia ạ? Như trong file em gởi kèm, ở sheet 2 có giữ liệu ở từng ô và khi em nhập giữ liệu vào từng ô ở sheet 2 nó sẽ tự động chuyển thành những ghi chú tương ứng với từng ô của sheet 1 ạ.

 

[SA_DQ]

Bạn chép đoạn Code sau vô bộ nhớ trung gian;
Chọn Sheet2
Sau đó phải chuột vô thanh sheetNames & chọn dòng cuối để CS VBE hiện ra;
Bạn dán đoạn Code vô CS vừa xuất hiện

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
 On Error Resume Next:              Dim StrC As String
 If Not Intersect(Target, Range("B4:D99")) Is Nothing Then
    With Sheet1.Range(Target.Address)
        If Not .Comment Is Nothing Then .Comment.Delete
        If IsNumeric(Target.Value) Then
            StrC = CStr(Target.Value)
        Else
            StrC = Target.Value
        End If
        .AddComment Text:="GPE.COM" & Chr(10) & StrC
    End With
 End If
End Sub

Sửa lại nội dung, nếu cần; Chúc vui vẽ!!