Sut i amddiffyn neu gloi gwerthoedd celloedd yn seiliedig ar liw cefndir?
Gan dybio, mae gen i daflen waith fawr ac mae nifer o gelloedd yn cael eu llenwi â gwahanol liwiau cefndir, nawr, rydw i eisiau cloi neu amddiffyn y celloedd ar sail lliw penodol wedi'i lenwi, fel cloi neu amddiffyn pob cell â lliw coch. A oes unrhyw ddulliau da i ddelio â'r dasg hon yn Excel?
Amddiffyn neu gloi gwerthoedd celloedd yn seiliedig ar liw cefndir gyda chod VBA
Amddiffyn neu gloi gwerthoedd celloedd yn seiliedig ar liw cefndir gyda chod VBA
Er enghraifft, rwyf am gloi ac amddiffyn pob cell goch, er mwyn atal defnyddwyr eraill rhag addasu'r gwerthoedd celloedd hyn, gall y cod VBA canlynol ddatrys y swydd hon i chi, gwnewch fel hyn:
1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.
Cod VBA: Amddiffyn neu gloi gwerthoedd celloedd yn seiliedig ar liw:
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
Nodyn: Yn y cod uchod, y rhif 3 o fewn y colorIndex = 3 mae'r sgript yn nodi'r celloedd lliw coch yr wyf am eu cloi, gallwch eu newid i fynegai lliwiau eraill yr ydych am eu cloi.
3. Yna pwyswch F5 yn allweddol i redeg y cod hwn, a dim ond celloedd lliw coch sydd wedi'u cloi, mae celloedd eraill wedi'u datgloi yn yr ystod a ddefnyddir o ddalen weithredol, gweler y screenshot:
4. Os ydych chi am eu hamddiffyn rhag cael eu haddasu gan ddefnyddwyr eraill, does ond angen i chi gymhwyso'r Diogelu Dalen nodwedd i amddiffyn y daflen waith hon.
Awgrymiadau: I gael y rhif mynegai lliw, gallwch gymhwyso'r Swyddogaeth Diffiniedig Defnyddiwr ganlynol:
Function GetColor(x As Range) As Integer
GetColor = x.Interior.ColorIndex
End Function
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools for Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed o'r blaen. Kutools for 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...
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!
