Conas léim go tapa chun na cille leis an dáta reatha in Excel?
Seo bileog le liosta dátaí, ba mhaith leat léim go tapa chuig an gcill atá leis an dáta reatha, conas an fhadhb seo a réiteach?
Léim go dtí an dáta reatha le VBA
Léim go dtí an dáta reatha le Aimsigh agus Ionadaigh
Léim go dtí an dáta reatha le VBA
Seo cód VBA a chabhróidh leat léim go tapa chun na cille leis an dáta reatha.
1. Cumasaigh an leabhar oibre is mian leat a úsáid, agus brúigh Alt + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. cliceáil Ionsáigh > Modúil, greamaigh thíos an cód leis an Modúil.
VBA: Léim go dtí an dáta reatha
Private Sub Workbook_Open()
'UpdatebyExtendoffice20161221
Dim daterng As Range
Dim DateCell As Range
Dim WorkSht As Worksheet
Dim dateStr As String
Application.ScreenUpdating = False
For Each WorkSht In Worksheets
WorkSht.Select
'Set daterng = Range("A:A")
Set daterng = WorkSht.UsedRange
'daterng.Select
For Each DateCell In daterng
DateCell.Activate
ActiveCell.Select
On Error Resume Next
dateStr = DateCell.Value
If dateStr = Date Then
DateCell.Select
Exit Sub
End If
Next
Next WorkSht
Application.ScreenUpdating = True
'Worksheets(1).Select
End Sub
3. Brúigh F5 eochair, ansin léimeann an cúrsóir go dtí an cill leis an dáta reatha cibé áit a aimsíonn tú sa leabhar oibre.
Léim go dtí an dáta reatha le Aimsigh agus Ionadaigh
Mura bhfuil tú eolach ar chód VBA, is féidir leat an Aimsigh agus Ionadaigh fóntais chun léim go dtí an dáta reatha.
1. Cumasaigh an bhileog ina bhfuil an liosta dáta, agus roghnaigh cill bhán, clóscríobh an fhoirmle seo = TODAY (), brúigh Iontráil eochair, anois gheobhaidh tú an dáta inniu.
2. Brúigh Ctrl + C chun dáta an lae inniu a chóipeáil, agus téigh chun liosta na ndátaí a roghnú, agus ansin brúigh Ctrl + F chun a chumasú Aimsigh agus Ionadaigh dialóg, sa Aimsigh cad bosca téacs, brúigh Ctrl + V chun an dáta inniu a ghreamú isteach. Féach an pictiúr:
3. cliceáil Faigh Gach. Anois léim an cúrsóir go dtí an cill leis an lá atá inniu ann ar an liosta roghnaithe.
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á!