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?
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
