Sut i newid lliw dangosydd sylwadau yn Excel?
Yn Excel, ar ôl mewnosod sylw, mae dangosydd triongl coch bach yn ymddangos yng nghornel dde uchaf y gell. Efallai y bydd llawer o ddefnyddwyr Excel yn meddwl tybed a ellir newid lliw'r dangosydd coch i liwiau eraill maen nhw'n eu hoffi. Yn yr erthygl hon, byddaf yn siarad am gylch gwaith i orffen y dasg hon.
Newid lliw dangosydd sylwadau gyda chod VBA
Newid lliw dangosydd sylwadau gyda chod VBA
Nid oes unrhyw ffordd uniongyrchol inni newid lliw'r dangosyddion sylwadau yn gyflym ac yn hawdd, ond, gall y cod VBA canlynol eich helpu i dynnu siâp triongl yn gorgyffwrdd pob dangosydd sylw â lliw penodol sydd ei angen arnoch ar y ddalen weithredol.
1. Ysgogwch eich taflen waith eich bod am newid lliw'r dangosyddion sylwadau.
2. Daliwch i lawr y ALT + F11 allweddi i agor y Ffenestr Microsoft Visual Basic for Applications.
3. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.
Cod VBA: Newid lliw dangosydd sylwadau yn y ddalen weithredol
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. Ar ôl pasio'r cod, pwyswch F5 allwedd i weithredu'r cod, ac mae'r trionglau glas yn cwmpasu'r holl ddangosyddion triongl coch fel y sgrinluniau canlynol a ddangosir:
Nodiadau:
1. Yn y cod uchod, gallwch newid y lliw glas i'ch tebyg trwy newid y mynegai lliw yn y sgript yn unig .Fill.ForeColor.SchemeColor = 12.
2. Bydd siâp y triongl rydych chi'n ei ychwanegu uwchben VBA yn cael ei newid ei faint pan fyddwch chi'n newid maint y gell.
3. Os ydych chi am gael gwared ar yr holl siapiau triongl lliw ar unwaith, bydd y cod VBA canlynol yn rhoi aroglau i chi:
Cod VBA: Tynnwch siapiau trionglog dros y dangosyddion sylwadau
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
Erthyglau cysylltiedig:
Sut i dynnu sylw at bob cell gyda sylwadau yn Excel?
Sut i ddangos neu guddio'r holl sylwadau a dangosyddion sylwadau yn Excel?
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!