Ինչպե՞ս պաշտպանել կամ կողպել բջջի արժեքները ՝ հիմնվելով ֆոնի գույնի վրա:
Ենթադրելով, որ ես ունեմ մեծ աշխատաթերթ, և բազմաթիվ բջիջներ լցված են տարբեր ֆոնային գույներով, այժմ ես ուզում եմ կողպել կամ պաշտպանել բջիջները `ելնելով որոշակի լցված գույնից, օրինակ` կողպել կամ կարմիր գույնով պաշտպանել բոլոր բջիջները: Excel- ում այս խնդրի լուծման համար կա՞ն լավ մեթոդներ:
Պաշտպանեք կամ կողպեք բջիջի արժեքները ՝ հիմնվելով ֆոնի գույնի վրա, VBA կոդով
Պաշտպանեք կամ կողպեք բջիջի արժեքները ՝ հիմնվելով ֆոնի գույնի վրա, VBA կոդով
Օրինակ, ես ուզում եմ կողպել և պաշտպանել բոլոր կարմիր բջիջները, որպեսզի այլ օգտվողներ չկարողանան փոփոխել այս բջիջների արժեքները, հետևյալ VBA կոդը կարող է լուծել այս աշխատանքը ձեզ համար, խնդրում եմ արեք հետևյալ կերպ.
1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլներ Պատուհանը:
VBA կոդ. Պաշտպանեք կամ կողպեք բջիջների արժեքները ՝ հիմնվելով գույնի վրա.
Sub lockcellsbycolor()
'Updateby Extendoffice
Dim colorIndex As Integer
colorIndex = 3
Dim xRg As Range
Application.ScreenUpdating = False
For Each xRg In ActiveSheet.UsedRange.Cells
Dim color As Long
color = xRg.Interior.colorIndex
If (color = colorIndex) Then
xRg.Locked = True
Else
xRg.Locked = False
End If
Next xRg
Application.ScreenUpdating = True
MsgBox "All specified color cells have been locked!", vbInformation, "Kutools for Excel"
End Sub
ՆշումՎերոհիշյալ կոդում համարը 3 շրջանակներում գույնի ինդեքս = 3 գրությունը ցույց է տալիս այն կարմիր գույնի բջիջները, որոնք ես ուզում եմ կողպել, այն կարող եք փոխել այլ գույների ցուցիչի, որոնք ցանկանում եք կողպել:
3, Դրանից հետո սեղմեք F5 այս կոդն աշխատեցնելու բանալին, և միայն կարմիր գույնի բջիջները կողպված են, այլ բջիջները ապակողպված են ակտիվ թերթի օգտագործված տիրույթում, տե՛ս
4, Եթե ցանկանում եք պաշտպանել դրանք այլ օգտվողների կողմից փոփոխվելուց, պարզապես անհրաժեշտ է կիրառել այն Պաշտպանեք Թերթիկը առանձնահատկություն ՝ այս աշխատանքային թերթը պաշտպանելու համար:
Խորհուրդներ. Գույնի ինդեքսի համարը ստանալու համար կարող եք կիրառել օգտագործողի կողմից սահմանված հետևյալ գործառույթը.
Function GetColor(x As Range) As Integer
GetColor = x.Interior.ColorIndex
End Function
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: