Ինչպե՞ս փոխել մեկնաբանության ցուցիչի գույնը Excel- ում:
Excel- ում մեկնաբանություն մտցնելուց հետո բջիջի վերին աջ անկյունում հայտնվում է կարմիր եռանկյան փոքր ցուցիչ: Excel- ի շատ օգտվողներ կարող են մտածել, արդյոք կարմիր ցուցիչի գույնը կարող է փոխվել իրենց նախընտրած այլ գույներով: Այս հոդվածում ես կխոսեմ այս առաջադրանքն ավարտելու համար կատարված լուծման մասին:
Փոխեք մեկնաբանության ցուցիչի գույնը VBA կոդով
Փոխեք մեկնաբանության ցուցիչի գույնը VBA կոդով
Մեկնաբանության ցուցիչների գույնը արագ և հեշտորեն փոխելու ուղի չկա: Բայց հետևյալ VBA կոդը կարող է օգնել ձեզ նկարել եռանկյունաձև ձև, որը համընկնում է մեկնաբանության յուրաքանչյուր ցուցանիշի հետ, անհրաժեշտ ակտիվ գույնի թերթիկի վրա:
1. Ակտիվացրեք ձեր աշխատանքային թերթը, որը ցանկանում եք փոխել մեկնաբանության ցուցիչների գույնը:
2, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
3: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլի պատուհան.
VBA կոդ. Ակտիվ թերթում փոխեք մեկնաբանության ցուցիչի գույնը
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, Կոդը տեղադրելուց հետո սեղմեք F5 Կոդը կատարելու բանալին, և կարմիր եռանկյունու բոլոր ցուցիչները ծածկված են կապույտ եռանկյուններով, ինչպես ցույց են տրված հետևյալ նկարները.
 |
 |
 |
Նշումներ:
1. Վերոնշյալ կոդում կապույտ գույնը կարող եք փոխել ձեր նման ՝ սցենարում պարզապես փոխելով գույների ցուցիչը .Fill.ForeColor.SchemeColor = 12.
2. VBA- ի վերևում ավելացրած եռանկյան ձևը կփոխվի իր չափսով, երբ բջիջը չափափոխեք:
3. Եթե ուզում եք անմիջապես հեռացնել գունավոր եռանկյունու բոլոր ձևերը, ապա հետևյալ VBA կոդը ձեզ կօգնի.
VBA կոդ. Հեռացրեք եռանկյան ձևերը մեկնաբանության ցուցիչների վրա
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
Առնչվող հոդվածներ քանակը:
Ինչպե՞ս առանձնացնել բոլոր բջիջները Excel- ում մեկնաբանություններով:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
