FILE EXCEL không thể add comment bằng VBA (1 người xem)

[hungpecc1]

mình có 1 đoạn code vba dùng để add comment đơn giản như sau:

Sub abc()
    Range("D5").ClearComments
    addcomment Range("D5"), "ABC"
End Sub
Sub addcomment(rng As Range, str As String)
'On Error Resume Next
     With rng
        .addcomment
        .Comment.Shape.AutoShapeType = 1
        .Comment.Text str
        With .Comment.Shape.TextFrame
            .Characters.Font.Size = 8
            .AutoSize = True
        End With
        .Comment.Visible = 0
     End With
End Sub

Với code trên file excel nào cũng hoạt động bình thường, nhưng riêng với file excel mình đính kèm thì lại bị lỗi !

Loay hoay mãi mà không tìm được lời giải đáp, nhờ các bạn trợ giúp !

 

[be_09]

Đặt nội dung vào A1 rồi thử với code sau:

Sub CopyCell_ToComments()
    Dim PasteRng As Range
        Range("A1").Copy
    Set PasteRng = Application.Selection
        PasteRng.PasteSpecial xlPasteComments
End Sub

Chọn vùng cần Add Comment rồi chạy code, nó sẽ Copy nội dung của A1 vào Comment cả vùng vừa chọn.

 

[hungpecc1]

Đặt nội dung vào A1 rồi thử với code sau:

Sub CopyCell_ToComments()
    Dim PasteRng As Range
        Range("A1").Copy
    Set PasteRng = Application.Selection
        PasteRng.PasteSpecial xlPasteComments
End Sub

Chọn vùng cần Add Comment rồi chạy code, nó sẽ Copy nội dung của A1 vào Comment cả vùng vừa chọn.

* Ý em là với đoạn code trên, thì bất kỳ file excel nào code trên cũng hoạt động tốt,
* Riêng với file excel em đính kèm ở bên dưới, bất kỳ sheet nào code trên cũng không hoạt động.
Em đang thắc mắc file excel này bị lỗi gì mà không thể chạy được code trên;

-> em gửi lại file excel bị lỗi

 

[ndu96081631]

* Ý em là với đoạn code trên, thì bất kỳ file excel nào code trên cũng hoạt động tốt,
* Riêng với file excel em đính kèm ở bên dưới, bất kỳ sheet nào code trên cũng không hoạt động.
Em đang thắc mắc file excel này bị lỗi gì mà không thể chạy được code trên;

-> em gửi lại file excel bị lỗi

Bạn bấm Ctrl + ^ là được rồi
Vụ này lâu lâu lại có người bị hen (vô tình bấm trúng tổ hợp phím Ctrl + ^ phát là dính ngay)

 

[hungpecc1]

Bạn bấm Ctrl + ^ là được rồi
Vụ này lâu lâu lại có người bị hen (vô tình bấm trúng tổ hợp phím Ctrl + ^ phát là dính ngay)

Cảm ơn anh nhiều :

Bây giờ em mới biết vụ này đấy: "Switch between hiding objects, displaying objects, and displaying placeholders for objects."