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
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:
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
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
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á!