Nhờ mọi người sửa code insert comment

[tu205489039]

Nhờ mọi người sửa giúp em đoạn code này. em không biết bị lỗi gì mà file báo lỗi 1004

   Sub d()
   Dim k As Byte
    For k = 1 To 2
        If Sheets("D" & k).Range("C5").Comment Is Nothing Then
            Sheets("D" & k).Range("C5").AddComment (Sheets("D" & k).Range("D5"))
        Else
            Sheets("D" & k).Range("C5").Comment.Delete
            Sheets("D" & k).Range("C5").AddComment (Sheets("D" & k).Range("D5"))
        End If
    Next k
   End Sub

em xin cảm ơn!

 

[batman1]

Bạn đừng bắt chước ai mà hãy tập viết tường minh.
Thay cho

Sheets("D" & k).Range("D5")

hãy viết

Sheets("D" & k).Range("D5").Value

Thói quen viết "rút gọn" với tôi là rất xấu.

 

[tu205489039]

Bạn đừng bắt chước ai mà hãy tập viết tường minh.
Thay cho

Sheets("D" & k).Range("D5")

hãy viết

Sheets("D" & k).Range("D5").Value

Thói quen viết "rút gọn" với tôi là rất xấu.

Dạ em cảm ơn a đã góp ý ạ. A có thể cho e hỏi thêm 1 chút không ạ. Đoạn code bên dưới em đã thêm .value . Nhưng khi chạy, file vẫn báo lỗi 1004 ở dòng thứ 2 ạ. File e gửi lên khi nảy thì chạy được

        If Sheets("C" & k).Range("C" & i + 5).Comment Is Nothing Then
            Sheets("C" & k).Range("C" & i + 5).AddComment (Sheets("C" & k).Range("Q" & i + 5).Value)

 

[tu205489039]

Dạ, e đã sửa được bài #3 rồi ạ. Em cảm ơn ạ