There er ingen direkte måte for oss å endre fargen på kommentar indikatorer raskt og enkelt, men, kan følgende VBA-kode hjelpe deg med å tegne en trekantet form overlappe hverandre kommentar indikator med en bestemt farge du trenger på det aktive arket.
en. Aktiver regnearket som du ønsker å endre kommentar indikatorer farge.
To. Hold nede ALT + F11-tastene for å åpne Microsoft Visual Basic for Applications vinduet.
3. Klikk Sett > Modul, og lim inn følgende kode i modulen Window
VBA-kode. Change kommentar indikator farge i aktive arket
Sub CoverCommentIndicator () 'Update 20141110Dim PWS Som WorksheetDim pComment Som CommentDim PRNG Som RangeDim pShape Som ShapeSet PWS = Application .ActiveSheetwShp = 6hShp = 4For Hver pComment I pWs.Comments Sett PRNG = pComment.Parent Set pShape = pWs.Shapes.AddShape (msoShapeRightTriangle, pRng.Offset (0, 1) .Left - wShp, pRng.Top, wShp, hShp) Med pShape .Flip msoFlipVertical .Flip msoFlipHorizontal .Fill.ForeColor.SchemeColor = 12 .Fill.Visible = msoTrue .Fill.Solid .Line.Visible = msoFalse End WithNextEnd Sub4. Når du har limt inn koden, trykk F5 for å kjøre koden, og alle de røde trekanten indikatorene er dekket av de blå trekantene som følgende skjermbilder som vises:
notater:
1. I koden ovenfor, kan du endre den blå fargen til din som bare ved å endre fargen indeksen i skriptet .Fill.ForeColor.SchemeColor = 12.
2. Trekanten formen du legge ved ovenfor VBA vil bli endret sin størrelse når du endrer størrelse på cellen.
3. Hvis du ønsker å fjerne alle de fargede trekant former seg umiddelbart, vil følgende VBA-kode gjør du en fovor:
VBA-kode: Fjern trekantede figurer over kommentaren indikatorer
Sub RemoveIndicatorShapes () 'Update 20141110Dim PWS Som WorksheetDim pShape As ShapeSet PWS = Application.ActiveSheetFor Hver pShape I pWs.Shapes Hvis ikke pShape.TopLeftCell.Comment Er Ingenting Deretter Hvis pShape.AutoShapeType = msoShapeRightTriangle Så pShape.Delete End If End IfNextEnd Sub