Sut i neidio i'r gell yn gyflym gyda'r dyddiad cyfredol yn Excel?
Dyma ddalen gyda rhestr o ddyddiadau, rydych chi am neidio i'r gell yn gyflym sydd gyda'r dyddiad cyfredol, sut i ddatrys y broblem hon?
Neidio i'r dyddiad cyfredol gyda VBA
Neidio i'r dyddiad cyfredol gyda Find and Replace
Neidio i'r dyddiad cyfredol gyda VBA
Dyma god VBA a all eich helpu i neidio i'r gell yn gyflym gyda'r dyddiad cyfredol.
1. Galluogi'r llyfr gwaith rydych chi am ei ddefnyddio, a gwasgwch Alt + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, pastiwch y cod isod i'r Modiwlau.
VBA: Neidio i'r dyddiad cyfredol
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. Gwasgwch F5 allwedd, yna mae'r cyrchwr yn neidio i'r gell gyda'r dyddiad cyfredol ble bynnag y byddwch chi'n dod o hyd iddo yn y llyfr gwaith.
Neidio i'r dyddiad cyfredol gyda Find and Replace
Os nad ydych chi'n gyfarwydd â chod VBA, gallwch chi hefyd gymhwyso'r Dod o hyd ac yn ei le cyfleustodau i neidio i'r dyddiad cyfredol.
1. Galluogi'r ddalen sy'n cynnwys y rhestr ddyddiadau, a dewis cell wag, teipiwch y fformiwla hon = HEDDIW (), y wasg Rhowch allwedd, nawr rydych chi'n cael y dyddiad heddiw.
2. Gwasgwch Ctrl + C i gopïo'r dyddiad heddiw, ac ewch i ddewis y rhestr o ddyddiadau, ac yna pwyswch Ctrl + F i alluogi'r Dod o hyd ac yn ei le deialog, yn y Dewch o hyd i beth blwch testun, gwasg Ctrl + V i'r past y dyddiad heddiw i mewn. Gweler y screenshot:
3. Cliciwch Dewch o Hyd i Bawb. Nawr mae'r cyrchwr yn neidio i'r gell gyda heddiw yn y rhestr a ddewiswyd.
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn 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!