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?
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
