Nếu bạn sử dụng nhận xét trong trang tính của mình khá nhiều, bạn có thể tự hỏi liệu có cách nào để in các nhận xét nhưng không có tên và dấu hai chấm thường mở đầu cho mọi nhận xét. Thật không may, không có cách tích hợp nào để thực hiện điều này trong Excel. Tuy nhiên, một macro có thể được sử dụng để nhanh chóng kéo tất cả các nhận xét từ một trang tính và đặt chúng vào trang tính của riêng họ. Sau đó, trang tính này có thể được in ra, vì nó sẽ là một bản tóm tắt tất cả các nhận xét. Macro như sau:

Sub Workbook_BeforePrint(Cancel As Boolean)

myCount = 0     For Each c In ActiveSheet.Comments         myCount = myCount + 1         myComment = ActiveSheet.Comments(myCount).Text         Sheets(2).Range("a1").Offset(myCount, 0).Value = _           Mid(myComment,InStr(myComment, Chr(10)))

Next End Sub

Macro này đặt các nhận xét trên trang tính thứ hai trong một sổ làm việc, vì vậy nếu bạn muốn chúng trên một trang tính khác (để bạn không ghi đè thông tin đã có trên trang tính thứ hai), bạn sẽ phải thực hiện sửa đổi đối tượng Trang tính (2) .

Cũng lưu ý rằng tên macro là Workbook_BeforePrint. Điều này có nghĩa là macro sẽ chạy mỗi khi bạn in trang tính của mình.

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên trang ExcelTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

ExcelTips là nguồn của bạn để đào tạo Microsoft Excel hiệu quả về chi phí.

Mẹo này (9602) áp dụng cho Microsoft Excel 2007, 2010, 2013, 2016, 2019 và Excel trong Office 365. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện menu cũ hơn của Excel tại đây: