Note: The other languages of the website are Google-translated. Back to English

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


swigen dde glas saeth 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:

celloedd cloi doc yn ôl lliw 1

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

Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a 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!
gwaelod officetab
sylwadau (4)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Bonjour,
j'aurais voulu savoir si il était possible de faire la même roghnaigh mais avec la valeur de la cellule plutôt que la couleur?
Par enghraifft: Verrouiller toutes les cellules dont la valeur est "-" de la plage B2:E25.

diolch ymlaen llaw
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A ellir cymhwyso hyn i ddalen gyda chelloedd wedi'u huno ac a all adnabod lliw cell sy'n seiliedig ar fformatio amodol? Rwyf am gloi celloedd sy'n god lliw 15 ac mae'r celloedd hynny yn god lliw 15 yn seiliedig ar fformat amodol. Diolch ymlaen llaw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut ydych chi'n rhedeg hyn mewn dolen, fel y bydd pob cell ym mhob dalen nad yw'r lliw penodol yn cael ei diogelu?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Bonjour, yat il une astuce quand la feuille est protégée d utiliser le panel des couleurs dans l onglet accueil pour mettre un fond de couleur sur les cases non protégés merci
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir