Hur ändrar jag färg för kommentarindikator i Excel?

Efter att ha lagt in en kommentar i Excel visas en liten röd triangelindikator i cellens övre högra hörn. Många Excel-användare kanske undrar om den röda indikatorfärgen kan ändras till andra färger de gillar. I den här artikeln kommer jag att prata om en lösning för att slutföra denna uppgift.

Ändra färg på kommentarindikatorn med VBA-kod

Ändra färg på kommentarindikatorn med VBA-kod

Det finns inget direkt sätt för oss att ändra färgen på kommentarindikatorerna snabbt och enkelt, men följande VBA-kod kan hjälpa dig att rita en triangulär form som överlappar varje kommentarindikator med en specifik färg du behöver på det aktiva arket.

1. Aktivera kalkylbladet som du vill ändra färg på kommentarindikatorerna.

2. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic for Applications-fönstret.

3. Klicka Insert > Modulernaoch klistra in följande kod i Modulfönster.

VBA-kod: Ändra färg för kommentarindikatorn i det aktiva arket

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. När du har klistrat in koden trycker du på F5 för att utföra koden och alla röda triangelindikatorer täcks av de blå trianglarna som följande skärmdumpar visas:

Anmärkningar:

1. I ovanstående kod kan du ändra den blå färgen som du vill genom att bara ändra färgindex i skriptet .Fill.ForeColor.SchemeColor = 12.

2. Triangelformen som du lägger till ovanför VBA kommer att ändras i storlek när du ändrar storlek på cellen.

3. Om du vill ta bort alla färgade triangelformer omedelbart kommer följande VBA-kod att göra dig en favorit:

VBA-kod: Ta bort triangulära former över kommentarindikatorerna

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

Relaterade artiklar:

Hur markerar jag alla celler med kommentarer i Excel?

Hur visar eller döljer jag alla kommentarer och kommentarindikatorer i Excel?