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

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


swigen dde glas saeth 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

neidio doc i'r dyddiad cyfredol 1

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 doc i'r dyddiad cyfredol 2


swigen dde glas saeth 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.
neidio doc i'r dyddiad cyfredol 3

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:
neidio doc i'r dyddiad cyfredol 4

3. Cliciwch Dewch o Hyd i Bawb. Nawr mae'r cyrchwr yn neidio i'r gell gyda heddiw yn y rhestr a ddewiswyd.
neidio doc i'r dyddiad cyfredol 5

Tip: Os oes gennych Kutools ar gyfer Excel, gallwch gymhwyso ei Dewiswch Gelloedd Penodol i drin y dasg hon yn gyflym. Mae'n swyddogaeth lawn heb gyfyngiad mewn 30 diwrnod, lawrlwythwch a chael treial am ddim nawr.
neidio doc i'r dyddiad cyfredol 6


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a 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!
gwaelod officetab
sylwadau (4)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Nid yw hyn yn gweithio gyda'r cod VBA, mae'n dod â ffenestr o'r enw "Go To". A oeddem i fod i olygu'r cod VBA mewn rhyw ffordd?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yr un canlyniadau â Peter ... Mae F5 yn dod â GoTo i fyny. Fe wnaethon ni hefyd roi cynnig ar Ctrl-F5 ac Alt-F5. A oes rhyw ddilyniant neu ychwanegiad allweddol arall i'r cod? Diolch.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n ddechreuwr gyda Microsoft Office, ac Excel, ond rwy'n rhaglennydd wrth natur. Os mai'r amcan yw lleoli cell gyda dyddiad heddiw - a gosod y cyrchwr iddo, ni allaf weld yr angen am yr holl god hwnnw.Cod syml (a restrir isod) wedi'i greu mewn macro, a aseinio'r macro i lythyren dweud "T", ac fel opsiwn efallai y byddwch hyd yn oed yn creu botwm ac yn aseinio'r macro iddo, felly pan fyddwch yn clicio ar y botwm byddwch yn teithio'n uniongyrchol i'r gell honno. Mae'r llinellau sylwadau (y rhai sy'n dechrau gyda ') yn ddewisol. Efallai y byddwch yn dewis peidio â'u teipio. Defnyddiais nhw ar gyfer datrys problemau'r cod. Mae "Msgbox" yn arf neis i gyfathrebu gyda chi.Dyma fy nghod:------------------------------ Is-GoToToday()
'
' GoToToday Macro
'
' Llwybr Byr Bysellfwrdd: Ctrl+t
'
Dim DateRange, DateCell Fel Ystod
Dim i Fel Beit
Dim x Fel Llinyn
Ar Ail-ddechrau Gwall Nesaf

MySheet = ActiveSheet.Name

' MsgBox (Dyddiad)
Ar gyfer i = 12 I 130
x = "A" &i
' MsgBox (x)
' MsgBox (Taflenni Gwaith(Fy Nhaflen). Ystod(x))

Os Taflenni Gwaith(Fy Nhaflen).Ystod(x).Gwerth = Dyddiad Yna
' MsgBox (i)
' MsgBox (x)
' MsgBox (Taflenni Gwaith(Fy Nhaflen). Ystod(x))
x = "D" &i
Ystod(x).Dewiswch
Is Allanfa
Gorffennwch Os
nesaf:
Is-End

Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'r enghraifft hon yn ofnadwy o araf. Mae'n debyg y gallech chi docio rhai o'r paramedrau darganfod, felly profwch os ydych chi eisiau.
Côd:

'Dewch o hyd i ddyddiad heddiw yn y ddalen ac actifadu cell
Cells.Find(Beth:=Dyddiad, Ar Ôl:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=Anghywir _
, SearchFormat:=Anghywir). Activate
'-----

ActiveWindow.ScrollRow=Golwg sgrolio ActiveCell.Row 'i'r gell a ddewiswyd
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir