Làm cách nào để đánh dấu tất cả các ô có nhận xét trong Excel?

Comment là một tính năng hữu ích để chúng ta ghi một số thông tin quan trọng trong Excel, sau khi chèn comment sẽ có một chỉ báo nhỏ màu đỏ hiển thị trong ô. Nhưng đôi khi, các chỉ báo màu đỏ không nổi bật lắm, vì vậy chúng ta có thể đánh dấu tất cả các ô có nhận xét bằng một màu cụ thể để làm cho chúng nổi bật hơn. Hãy đọc bài viết này để biết thêm chi tiết.

Đánh dấu tất cả các ô có nhận xét với chức năng Đi tới Đặc biệt

Đánh dấu tất cả các ô có nhận xét bằng mã VBA

Đánh dấu tất cả các ô có nhận xét với chức năng Đi tới Đặc biệt

Trong Excel, trước tiên chúng ta có thể chọn tất cả các ô nhận xét, sau đó chọn màu chúng ta thích, vui lòng làm như sau:

1. Chọn phạm vi dữ liệu hoặc toàn bộ trang tính mà bạn muốn đánh dấu các ô có nhận xét.

2. Sau đó nhấn vào Trang chủ > Tìm & Chọn > Đi đặc biệt, xem ảnh chụp màn hình:

Mẹo: Bạn có thể nhấn phím tắt CTRL + G để mở Go To hộp thoại và nhấp vào Reduct ® để mở Đi đặc biệt thoại.

3. Trong Đi đặc biệt hộp thoại, kiểm tra Nhận xét tùy chọn, xem ảnh chụp màn hình:

4. Sau đó nhấn vào OK để đóng hộp thoại này và tất cả các ô có nhận xét đã được chọn trong lựa chọn của bạn, hãy xem ảnh chụp màn hình:

5. Sau khi chọn các ô nhận xét, sau đó nhấp vào Tô màu biểu tượng dưới Trang chủ và chọn một màu bạn thích, tất cả các nhận xét ô đã chọn sẽ được tô màu cùng một lúc, xem ảnh chụp màn hình:

Đánh dấu tất cả các ô có nhận xét bằng mã VBA

Bạn cũng có thể đánh dấu và tô màu tất cả các nhận xét ô trong trang tính đang hoạt động ngay lập tức bằng mã VBA sau:

1. Kích hoạt trang tính của bạn mà bạn muốn đánh dấu các ô nhận xét.

2. Giữ ALT + F11 phím để mở Cửa sổ Microsoft Visual Basic for Applications.

3. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Cửa sổ mô-đun.

Mã VBA: đánh dấu tất cả các ô có nhận xét

Sub ColorComments()
'Update 20141110
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.SpecialCells(xlCellTypeComments)
Application.ScreenUpdating = False
For Each Rng In WorkRng
    Rng.Interior.ColorIndex = 36
Next
Application.ScreenUpdating = True
End Sub

4. Sau đó nhấn F5 để chạy mã này và một hộp nhắc sẽ bật ra để nhắc bạn chọn phạm vi bạn muốn đánh dấu các ô nhận xét, xem ảnh chụp màn hình:

5. Và sau đó nhấp vào OK, tất cả các nhận xét trong lựa chọn của bạn đã được đánh dấu bằng màu sắc.

Chú thích:

Trong đoạn mã trên, bạn có thể thay đổi chỉ số màu trong tập lệnh Rng.Nội thất.Color Index = 36 theo ý thích của bạn.

Các bài liên quan:

Làm thế nào để đặt lại tất cả các vị trí nhận xét trong Excel?

Làm cách nào để thay đổi màu chỉ báo nhận xét trong Excel?

Làm thế nào để tự động thêm ngày và giờ để nhận xét trong Excel?