| Lấy dữ liệu các ô của cột J làm comment cho các ô tương ứng ở cột I |
| ô nào ở cột J không có dữ liệu thì ô ở cột I cũng không có comment |
Thử code này xem có giúp được gì không?
Option Explicit
Sub XoaComment(rng As Range)
On Error Resume Next
rng.ClearComments
End Sub
Sub TaoComment(rng As Range, sText As String)
rng.AddComment
rng.Comment.Visible = False
rng.Comment.Text Text:=sText
End Sub
Public Sub Main()
Dim rng As Range
For Each rng In Sheet1.Range("J1:J7")
XoaComment rng.Offset(, -1)
If rng <> "" Then
TaoComment rng.Offset(, -1), rng.Text
End If
Next rng
End Sub
Xin chào anh ạ,
Bạn tham khảo code này. (vẫn là Code của anh @giaiphap cải tiến thêm 1 chút)
Public Sub TaoGhiChu()
Dim i&, j&
Dim Rng As Range, Rng1 As Range
Dim VungGhiChu As String, GhiChu As String, Cel As Range
Dim S, S1
Run:
VungGhiChu = Application.InputBox("Nhâp vùng cân tao comment", "VÙNG CÂN TAO COMMENT")
If VungGhiChu = "False" Then Exit Sub
If VungGhiChu <> "" Then
S = Split(VungGhiChu, ":")
Set Rng = Range(S(0) & ":" & S(1))
Call XoaComment(Rng)
GoTo Run1
Else
If MsgBox(" Ban chưa chon Vung cân ghi chu", vbCritical + vbYesNo, "THÔNG BÁO") = vbYes Then
GoTo Run
Else
Exit Sub
End If
End If
Run1:
GhiChu = Application.InputBox("Nhâp vùng làm comment", "VÙNG LÀM COMMENT")
If GhiChu = "False" Then Exit Sub
If GhiChu <> "" Then
S1 = Split(GhiChu, ":")
Set Rng1 = Range(S1(0) & ":" & S1(1))
If Rng.Rows.Count > Rng1.Rows.Count Then
If MsgBox("Sô dong làm textcomment it hơn sô dong can tao Comment, như vây se có 1 sô dong không có comment" & Chr(10) & " Ban có muôn nhâp lai không?", vbCritical + vbYesNo, "THÔNG BÁO") = vbYes Then
GoTo Run1
Else
Exit Sub
End If
ElseIf Rng.Rows.Count >= Rng1.Rows.Count Then
For i = 1 To Rng.Rows.Count
If Rng(i, 1) <> "" Then TaoComment Rng(i, 1), Rng1(i, 1).Text
Next i
End If
Else
If MsgBox(" Ban chưa chon Vùng làm text ghi chú", vbCritical + vbYesNo, "THÔNG BÁO") = vbYes Then
GoTo Run
Else
Exit Sub
End If
End If
MsgBox " Ban đa tao comment cho vùng " & VungGhiChu & " thành công"
End SubCám ơn bạn, để mình thử ạ
Phát biểu nhảm, cảnh cáo lần 2.
Sửa code của bạn @HUONGHCKT nhé.
Public Sub TaoGhiChu()
Dim i&, j&
Dim VungGhiChu As Range, GhiChu As Range
Run:
On Error Resume Next
Set VungGhiChu = Application.InputBox("Nhâp vùng cân tao comment", "VÙNG CÂN TAO COMMENT", Type:=8)
On Error GoTo 0
If Not VungGhiChu Is Nothing Then
GoTo Run1
Else
If MsgBox(" Ban chua chon Vung cân ghi chu", vbCritical + vbYesNo, "THÔNG BÁO") = vbYes Then
GoTo Run
Else
Exit Sub
End If
End If
Run1:
On Error Resume Next
Set GhiChu = Application.InputBox("Nhâp vùng làm comment", "VÙNG LÀM COMMENT", Type:=8)
On Error GoTo 0
If Not GhiChu Is Nothing Then
If VungGhiChu.Rows.Count <> GhiChu.Rows.Count Then
If MsgBox("Sô dong làm textcomment it hon sô dong can tao Comment, nhu vây se có 1 sô dong không có comment" & Chr(10) & " Ban có muôn nhâp lai không?", vbCritical + vbYesNo, "THÔNG BÁO") = vbYes Then
GoTo Run1
Else
Exit Sub
End If
ElseIf VungGhiChu.Rows.Count = GhiChu.Rows.Count Then
Call XoaComment(VungGhiChu)
For i = 1 To VungGhiChu.Rows.Count
If VungGhiChu(i, 1) <> "" Then TaoComment VungGhiChu(i, 1), GhiChu(i, 1).Text
Next i
End If
Else
If MsgBox(" Ban chua chon Vùng làm text ghi chú", vbCritical + vbYesNo, "THÔNG BÁO") = vbYes Then
GoTo Run1
Else
Exit Sub
End If
End If
MsgBox " Ban da tao comment cho vùng " & VungGhiChu.Address(False, False) & " thành công"
End SubDạ, em đã chạy được rồi.
