Hogyan lehet megváltoztatni a megjegyzésjelző színét az Excelben?

Az Excelben egy megjegyzés beszúrása után egy kis piros háromszög jelző jelenik meg a cella jobb felső sarkában. Sok Excel felhasználónak felmerülhet a kérdés, hogy a piros jelzőszín megváltoztatható-e más, tetsző színűre. Ebben a cikkben egy megoldásról beszélek a feladat befejezéséhez.

VBA kóddal módosítsa a megjegyzésjelző színét

VBA kóddal módosítsa a megjegyzésjelző színét

Nincs közvetlen módunk arra, hogy gyorsan és egyszerűen megváltoztassuk a megjegyzésjelzők színét, de a következő VBA-kód segíthet abban, hogy háromszög alakú alakzat rajzolódjon át, és minden megjegyzésmutató átfedjen egy adott színt, amelyre szükség van az aktív lapon.

1. Aktiválja azt a munkalapot, amelyen meg szeretné változtatni a megjegyzésjelzők színét.

2. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

3. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablak.

VBA kód: Megjegyzés jelző színének módosítása az aktív lapon

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. A kód beillesztése után nyomja meg a gombot F5 kulcs a kód végrehajtásához, és az összes piros háromszög jelzőt a kék háromszögek fedik, az alábbi képernyőképek szerint:

Megjegyzések:

1. A fenti kódban a kék színt tetszés szerint megváltoztathatja, ha csak megváltoztatja a szkript színindexét .Fill.ForeColor.SchemeColor = 12.

2. A VBA fölé felvett háromszög alakja megváltozik, ha átméretezi a cellát.

3. Ha azonnal el akarja távolítani az összes színes háromszög alakzatot, akkor a következő VBA-kód kedvez:

VBA-kód: Távolítsa el a háromszög alakú alakzatokat a megjegyzésmutatók felett

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

Kapcsolódó cikkek:

Hogyan lehet kiemelni az összes cellát megjegyzésekkel az Excelben?

Hogyan lehet az összes megjegyzést és megjegyzésmutatót megjeleníteni vagy elrejteni az Excelben?