Làm cách nào để thay đổi màu chỉ báo nhận xét trong Excel?
Trong Excel, sau khi chèn nhận xét, một chỉ báo hình tam giác nhỏ màu đỏ xuất hiện ở góc trên bên phải của ô. Nhiều người dùng Excel có thể tự hỏi liệu màu chỉ báo đỏ có thể được thay đổi thành các màu khác mà họ thích hay không. Trong bài viết này, tôi sẽ nói về một cách giải quyết để hoàn thành nhiệm vụ này.
Thay đổi màu chỉ báo nhận xét bằng mã VBA
Thay đổi màu chỉ báo nhận xét bằng mã VBA
Không có cách nào trực tiếp để chúng tôi thay đổi màu của các chỉ báo nhận xét một cách nhanh chóng và dễ dàng, nhưng, mã VBA sau đây có thể giúp bạn vẽ một hình tam giác chồng lên mỗi chỉ báo nhận xét với màu cụ thể mà bạn cần trên trang hoạt động.
1. Kích hoạt trang tính của bạn mà bạn muốn thay đổi màu chỉ báo 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: Thay đổi màu chỉ báo nhận xét trong trang tính hoạt động
Sub CoverCommentIndicator()
'Update 20141110
Dim pWs As Worksheet
Dim pComment As Comment
Dim pRng As Range
Dim pShape As Shape
Set pWs = Application.ActiveSheet
wShp = 6
hShp = 4
For Each pComment In pWs.Comments
Set pRng = pComment.Parent
Set pShape = pWs.Shapes.AddShape(msoShapeRightTriangle, pRng.Offset(0, 1).Left - wShp, pRng.Top, wShp, hShp)
With pShape
.Flip msoFlipVertical
.Flip msoFlipHorizontal
.Fill.ForeColor.SchemeColor = 12
.Fill.Visible = msoTrue
.Fill.Solid
.Line.Visible = msoFalse
End With
Next
End Sub
4. Sau khi dán mã, nhấn F5 để thực thi mã và tất cả các chỉ báo hình tam giác màu đỏ được bao phủ bởi các hình tam giác màu xanh lam như ảnh chụp màn hình sau được hiển thị:
Ghi chú:
1. Trong đoạn mã trên, bạn có thể thay đổi màu xanh lam theo ý muốn bằng cách thay đổi chỉ mục màu trong script .Fill.ForeColor.SchemeColor = 12.
2. Hình dạng tam giác bạn thêm bằng VBA ở trên sẽ bị thay đổi kích thước khi bạn thay đổi kích thước ô.
3. Nếu bạn muốn loại bỏ tất cả các hình tam giác màu ngay lập tức, mã VBA sau sẽ giúp bạn thực hiện:
Mã VBA: Xóa các hình tam giác trên các chỉ báo nhận xét
Sub RemoveIndicatorShapes()
'Update 20141110
Dim pWs As Worksheet
Dim pShape As Shape
Set pWs = Application.ActiveSheet
For Each pShape In pWs.Shapes
If Not pShape.TopLeftCell.Comment Is Nothing Then
If pShape.AutoShapeType = msoShapeRightTriangle Then
pShape.Delete
End If
End If
Next
End Sub
Các bài liên quan:
Làm cách nào để đánh dấu tất cả các ô có nhận xét trong Excel?
Làm cách nào để hiển thị hoặc ẩn tất cả các bình luận và chỉ báo bình luận trong Excel?
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều
- Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
- Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
- Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!