Viết commet dựa theo giá trị của 1 ô

[Đoàn Ngoc Đức]

Chào Cả nhà.
Bây giờ mình muốn viết conmen của 1 ô bằng cách lấy giá trị từ 1 ô khác thì làm thế nào ạ
ví dụ mình có đoạn code sau giờ mính muốn phần conment của mình nó theo giá trị cảu i,j,k thì phải làm sao ạ
Sub aaa()
Dim ws As Worksheet
Dim b, i, j, k, ca As Integer
ca = Sheets("data").Cells(Rows.Count, 4).End(xlUp).Row
For b = ca To 7 Step -1
For Each ws In ThisWorkbook.Worksheets
If Cells(b, 4) = ws.Name Then
i = Sheets("data").Cells(b, 5)
j = Sheets("data").Cells(b, 6)
k = Sheets("data").Cells(b, 7)
ws.Select
Range("A3").Select
Range("A3").Comment.Delete
Range("A3").AddComment
Range("A3").Comment.Visible = False
Range("A3").Comment.Text Text:="A:j)" & Chr(10) & "B:j" & Chr(10) & "Z:k"
End If
Next
Next
End Sub

 

[hungpecc1]

Chào Cả nhà.
Bây giờ mình muốn viết conmen của 1 ô bằng cách lấy giá trị từ 1 ô khác thì làm thế nào ạ
ví dụ mình có đoạn code sau giờ mính muốn phần conment của mình nó theo giá trị cảu i,j,k thì phải làm sao ạ
Sub aaa()
Dim ws As Worksheet
Dim b, i, j, k, ca As Integer
ca = Sheets("data").Cells(Rows.Count, 4).End(xlUp).Row
For b = ca To 7 Step -1
For Each ws In ThisWorkbook.Worksheets
If Cells(b, 4) = ws.Name Then
i = Sheets("data").Cells(b, 5)
j = Sheets("data").Cells(b, 6)
k = Sheets("data").Cells(b, 7)
ws.Select
Range("A3").Select
Range("A3").Comment.Delete
Range("A3").AddComment
Range("A3").Comment.Visible = False
Range("A3").Comment.Text Text:="A:j)" & Chr(10) & "B:j" & Chr(10) & "Z:k"
End If
Next
Next
End Sub

Range("A3").Comment.Text Text:="A: " & j & " ): & Chr(10) & "B: " j & Chr(10) & "Z: " & k

 

[Đoàn Ngoc Đức]

Cám ơn bạn nhé. Nhưng mà mình làm vẫn không được
Range("A3").Comment.Text Text:="I:i" & Chr(10) & "J:j" & Chr(10) & "K:k"
Bạn có thể chỉnh sửa câu code trên giúp mình được không.

 

[HeSanbi]

Sub aaa()
  On Error Resume Next
  Dim ws As Worksheet
  Dim b, i, j, k, ca As Integer
  ca = Sheets("data").Cells(Rows.Count, 4).End(xlUp).Row
  For b = ca To 7 Step -1
    For Each ws In ThisWorkbook.Worksheets
      If Sheets("data").Cells(b, 4) = ws.Name Then
        i = Sheets("data").Cells(b, 5)
        j = Sheets("data").Cells(b, 6)
        k = Sheets("data").Cells(b, 7)
        ws.Range("A3").Comment.Delete
        ws.Range("A3").AddComment Text:=ws.Range("A" & i) & Chr(10) & ws.Range("B" & j) & Chr(10) & ws.Range("Z" & k)
        ws.Range("A3").Comment.Visible = False
      End If
    Next
  Next
End Sub

 

[Đoàn Ngoc Đức]

Range("A3").Comment.Text Text:="I:"&i&" & Chr(10) & "J:j" & Chr(10) & "K:k"

Sub aaa()
  On Error Resume Next
  Dim ws As Worksheet
  Dim b, i, j, k, ca As Integer
  ca = Sheets("data").Cells(Rows.Count, 4).End(xlUp).Row
  For b = ca To 7 Step -1
    For Each ws In ThisWorkbook.Worksheets
      If Sheets("data").Cells(b, 4) = ws.Name Then
        i = Sheets("data").Cells(b, 5)
        j = Sheets("data").Cells(b, 6)
        k = Sheets("data").Cells(b, 7)
        ws.Range("A3").Comment.Delete
        ws.Range("A3").AddComment Text:=ws.Range("A" & i) & Chr(10) & ws.Range("B" & j) & Chr(10) & ws.Range("Z" & k)
        ws.Range("A3").Comment.Visible = False
      End If
    Next
  Next
End Sub

Cản ơn bạn!