Hogyan védhetjük vagy zárolhatjuk a cellaértékeket a háttérszín alapján?
Tételezzük fel, hogy van egy nagy munkalapom, és több cellám van kitöltve különféle háttérszínekkel. Most bizonyos cellák alapján szeretném zárolni vagy megvédeni a cellákat, például lezárni vagy vörös színnel védeni az összes cellát. Vannak jó módszerek ennek a feladatnak az Excelben történő kezelésére?
VBA kóddal védi vagy zárolja a cellaértékeket a háttérszín alapján
VBA kóddal védi vagy zárolja a cellaértékeket a háttérszín alapján
Például az összes vörösvértestet le akarom zárni és védeni, annak megakadályozása érdekében, hogy más felhasználók módosítsák ezeket a cellák értékeit, a következő VBA-kód megoldhatja ezt a munkát az Ön számára, kérjük, tegye a következőket:
1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.
VBA kód: Védje vagy zárolja a cellák értékeit a szín alapján:
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
Megjegyzések: A fenti kódban a szám 3 belül colorIndex = 3 A szkript jelzi azokat a piros színű cellákat, amelyeket zárolni akarok, megváltoztathatja azokat a más színindexekre, amelyeket zárolni szeretne.
3. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, és csak a vörös színű cellák zárolódtak, a többi cellát feloldották az aktív lap használt tartományában, lásd a képernyőképet:
4. Ha meg akarja védeni őket a többi felhasználó általi módosítástól, akkor csak alkalmaznia kell a Védje a lapot funkcióval védi ezt a munkalapot.
Tippek: A színindex számának megszerzéséhez alkalmazhatja a következő Felhasználó által definiált funkciót:
Function GetColor(x As Range) As Integer
GetColor = x.Interior.ColorIndex
End Function
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet ezzel Kutools for Excel, és tapasztalja meg a még soha nem látott hatékonyságot. Kutools for Excel Több mint 300 speciális funkciót kínál a termelékenység fokozása és az időmegtakarítás érdekében. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Office Tab Lapos 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!
