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

Conas luachanna cille a chosaint nó a ghlasáil bunaithe ar dhath an chúlra?

Ag ceapadh, tá bileog oibre mhór agam agus líontar ilchealla le dathanna cúlra éagsúla, anois, ba mhaith liom na cealla a ghlasáil nó a chosaint bunaithe ar dhath líonta áirithe, mar shampla gach cealla a bhfuil dath dearg orthu a ghlasáil nó a chosaint. An bhfuil aon mhodhanna maithe ann chun déileáil leis an tasc seo in Excel?

Luachanna cille a chosaint nó a ghlasáil bunaithe ar dhath an chúlra le cód VBA


mboilgeog cheart gorm saighead Luachanna cille a chosaint nó a ghlasáil bunaithe ar dhath an chúlra le cód VBA

Mar shampla, ba mhaith liom gach cealla dearga a ghlasáil agus a chosaint, d’fhonn cosc ​​a chur ar úsáideoirí eile na luachanna cille seo a mhodhnú, is féidir leis an gcód VBA seo a leanas an post seo a réiteach duitse, déan mar seo le do thoil:

1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Modúil Fuinneog.

Cód VBA: Luachanna cille a chosaint nó a ghlasáil bunaithe ar dhath:

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

nótaí: Sa chód thuas, an uimhir 3 laistigh de na dathInnéacs = 3 Léiríonn script na cealla dathanna dearga ba mhaith liom a ghlasáil, is féidir leat iad a athrú go hinnéacs dathanna eile a theastaíonn uait a ghlasáil.

3. Ansin brúigh F5 eochair chun an cód seo a rith, agus gan ach cealla dath dearg curtha faoi ghlas, díghlasáiltear cealla eile sa raon úsáidte de bhileog ghníomhach, féach an scáileán:

cealla glas doc de réir datha 1

4. Más mian leat iad a chosaint ar mhodhnú ag úsáideoirí eile, níl le déanamh agat ach an Bileog Cosanta gné chun an bhileog oibre seo a chosaint.

Leideanna: Chun an uimhir innéacs dathanna a fháil, is féidir leat an Fheidhm Sainithe Úsáideora seo a leanas a chur i bhfeidhm:

Function GetColor(x As Range) As Integer
GetColor = x.Interior.ColorIndex
End Function

Na hUirlisí Táirgiúlachta Oifige is Fearr

Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%

  • Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
  • Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
  • Cumaisc Cealla / Sraitheanna / Colúin gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
  • Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
  • Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
  • Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
  • Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
  • Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
  • Níos mó ná 300 gné chumhachtach. Tacaíonn Office / Excel 2007-2021 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d'fhiontar nó d'eagraíocht. Gnéithe iomlána triail saor in aisce 30-lá. Ráthaíocht airgid ar ais 60-lá.
cluaisín kte 201905

Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
bun officetab
Sórtáil tuairimí de réir
Comments (4)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit,
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?
Mar shampla: Verrouiller toutes les cellules dont la valeur est “-” de la plage B2:E25.

go raibh maith agat roimh ré
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An féidir é seo a chur i bhfeidhm ar bhileog le cealla cumaiscthe agus an féidir dath cille a aithint atá bunaithe ar fhormáidiú coinníollach? Ba mhaith liom cealla a bhfuil dathchód 15 orthu a ghlasáil agus is dathchód 15 iad na cealla sin bunaithe ar fhormáid choinníollach. Go raibh maith agat roimh ré.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Conas a ritheann tú seo i lúb, ionas go gcosnófar na cealla go léir i ngach bileog nach bhfuil an dath sonrach?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
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 case non protégés merci
Níl aon tráchtanna curtha suas anseo go fóill
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0   Carachtair
Suímh Molta

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL