Conas cealla a chosaint bunaithe ar dháta in Excel?
De ghnáth, is féidir linn an bhileog oibre a chosaint chun cosc a chur ar dhaoine eile luachanna na gcealla a eagarthóireacht nó a mhodhnú, ach, uaireanta, ní mór duit na cealla a chosaint bunaithe ar dháta. Mar shampla, ba mhaith liom cealla eile a chosaint ach gan ach luachanna cille dáta an lae inniu a mhodhnú mar a leanas an pictiúr a thaispeántar, labhróidh an t-alt seo faoi conas cealla a chosaint bunaithe ar dháta.
Cosain na sraitheanna go léir ach amháin as a chéile dáta an lae inniu le cód VBA
Cosain gach sraitheanna a rith an dáta le cód VBA
Cosain na sraitheanna go léir ach amháin as a chéile dáta an lae inniu le cód VBA
Ná lig ach an tsraith atá cothrom le dáta an lae inniu a mhodhnú, is féidir leis an gcód seo a leanas cabhrú leat, déan é seo le do thoil:
1. Cliceáil ar dheis ar an táb bileog a theastaíonn uait na cealla a chosaint bunaithe ar dháta, agus ansin roghnaigh Féach an cód ón roghchlár comhthéacs, sa popped amach Microsoft Visual Basic d’Fheidhmchláir fuinneog, cóipeáil agus greamaigh an cód seo a leanas sa Mhodúl bán:
Cód VBA: Cosain na sraitheanna go léir ach amháin as a chéile dáta an lae inniu:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice 20161025
If Range("E" & Selection.Row).Value <> Date Then
ActiveSheet.Protect Password:="111111"
MsgBox "Only today's date row can be edited!", vbInformation, "Kutools for Excel"
ElseIf Range("E" & Selection.Row).Value = Date Then
ActiveSheet.Unprotect Password:="111111"
ActiveSheet.EnableSelection = xlNoRestrictions
End If
End Sub
nótaí: Sa chód thuas, an litir E is é ceanntásc an cholúin ina bhfuil an dáta suite, “111111"Is é an focal faire chun an bhileog seo a chosaint. Is féidir leat iad a athrú de réir do riachtanas.
2. Ansin sábháil agus dún an fhuinneog cód seo.
(1.) Má chliceálann tú cealla eile níos faide ná a chéile dáta an lae inniu, tiocfaidh bosca pras amach le cur i gcuimhne duit nach féidir an cill a chur in eagar, féach an scáileán:
(2.) Má chliceálann tú agus má dhéanann tú eagarthóireacht ar an tsraith is ionann agus dáta an lae inniu, athrófar é go rathúil, féach an scáileán:
Cosain gach sraitheanna a rith an dáta le cód VBA
Más gá duit na sraitheanna go léir a rith an dáta a chosaint, ná lig ach sraitheanna an lae inniu agus na todhchaí a mhodhnú, cuir an cód VBA seo a leanas i bhfeidhm:
1. Cliceáil ar dheis ar an táb bileog a theastaíonn uait na cealla a chosaint bunaithe ar dháta, agus ansin roghnaigh Féach an cód ón roghchlár comhthéacs, sa popped amach Microsoft Visual Basic d’Fheidhmchláir fuinneog, cóipeáil agus greamaigh an cód seo a leanas sa Mhodúl bán:
Cód VBA: Cosain gach dáta atá caite:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Updateby Extendoffice 20161025
Dim xRow As Long
xRow = 2
ThisWorkbook.ActiveSheet.Unprotect Password:="111111"
ThisWorkbook.ActiveSheet.Cells.Locked = False
Do Until IsEmpty(Cells(xRow, 5))
If Cells(xRow, 5) < Date Then
Rows(xRow).Locked = True
End If
xRow = xRow + 1
Loop
ThisWorkbook.ActiveSheet.Protect Password:="111111"
End Sub
nótaí: Sa chód thuas, an uimhir 5 is í uimhir an cholúin ina bhfuil an dáta suite, “111111"Is é an focal faire chun an bhileog seo a chosaint. Is féidir leat iad a athrú de réir do riachtanas.
3. Ansin sábháil agus dún an fhuinneog cód seo.
(1.) Má chliceálann tú go bhfuil dáta na gcealla caite, tiocfaidh bosca pras amach le cur i gcuimhne duit nach féidir an cill a chur in eagar, féach an scáileán:
(2.) Má chliceálann tú cill na sraitheanna chun iarracht a dhéanamh na luachanna i dáta an lae inniu nó sa dáta amach anseo a athrú, athrófar é go rathúil, féach an pictiúr:
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á.
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á!
