Macro cho Comments

[NguyenNgocSon]

Đoạn mã sau sẽ hiển thị nội dung của tất cả các chú thích có trong sheet hiện hành.
Sub hien_thi()
Dim myComment As Comment
For Each myComment In Worksheets("Sheet1").Comments
MsgBox myComment.Text
Next myComment
End Sub

 

[hoangvuluan]

Đoạn mã sau sẽ hiển thị nội dung của tất cả các chú thích có trong sheet hiện hành.
Sub hien_thi()
Dim myComment As Comment
For Each myComment In Worksheets("Sheet1").Comments
MsgBox myComment.Text
Next myComment
End Sub

Thay Worksheets("Sheet1").Comments với ActiveSheet.Comments để đảm bảo đúng sheet hiện hành như ý đồ của bạn.

 

[Lệnh Hồ Đại Hiệp]

Đoạn mã sau sẽ hiển thị nội dung của tất cả các chú thích có trong sheet hiện hành.
Sub hien_thi()
Dim myComment As Comment
For Each myComment In Worksheets("Sheet1").Comments
MsgBox myComment.Text
Next myComment
End Sub

Như vậy có 1.000 comment là nó hiện ra 1.000 cái Msgbox phải không bạn ??
Làm sao biết cái nào là ở đâu ??
Nhấn Close cũng mỏi tay đấy.

--CV--

 

[NguyenNgocSon]

Đúng,Bạn nói mình mới nhận ra.cám ơn.mình sẽ viết lại code cho hoàn chỉnh hơn