Как да променя цвета на индикатора за коментари в Excel?
В Excel, след вмъкване на коментар, в горния десен ъгъл на клетката се появява индикатор с малък червен триъгълник. Много потребители на Excel може да се чудят дали червеният цвят на индикатора може да бъде променен на други цветове, които харесват. В тази статия ще говоря за заобиколно решение за завършване на тази задача.
Променете цвета на индикатора за коментар с VBA код
Променете цвета на индикатора за коментар с VBA код
Няма директен начин за нас да променим цвета на индикаторите за коментари бързо и лесно, но следният код на VBA може да ви помогне да начертаете триъгълна форма, припокриваща всеки индикатор за коментари с конкретен цвят, от който се нуждаете на активния лист.
1. Активирайте работния си лист, за който искате да промените цвета на индикаторите за коментари.
2. Задръжте натиснат ALT + F11 за да отворите Прозорец на Microsoft Visual Basic за приложения.
3. Щракнете Поставете > Модулии поставете следния код в Прозорец на модула.
VBA код: Променете цвета на индикатора за коментар в активния лист
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. След като поставите кода, натиснете F5 ключ за изпълнение на кода и всички червени триъгълни индикатори са покрити от сините триъгълници, както са показани следните екранни снимки:
 |
 |
 |
Забележки:
1. В горния код можете да промените синия цвят по ваш вкус, като просто промените индекса на цвета в скрипта .Fill.ForeColor.SchemeColor = 12.
2. Триъгълната форма, която добавяте от над VBA, ще бъде променена, когато преоразмерите клетката.
3. Ако искате незабавно да премахнете всички цветни триъгълни форми, следният VBA код ще ви направи услуга:
VBA код: Премахнете триъгълните форми над индикаторите за коментари
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
Още по темата:
Как да маркирате всички клетки с коментари в Excel?
Как да покажа или скрия всички коментари и индикатори за коментари в Excel?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
