Đoàn Ngoc Đức
Thành viên mới
- Tham gia
- 29/11/19
- Bài viết
- 7
- Được thích
- 0
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
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