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

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


mboilgeog cheart gorm saighead 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

léim doc go dtí an dáta reatha 1

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 doc go dtí an dáta reatha 2


mboilgeog cheart gorm saighead 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.
léim doc go dtí an dáta reatha 3

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:
léim doc go dtí an dáta reatha 4

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.
léim doc go dtí an dáta reatha 5

Leid: Má tá tú Kutools le haghaidh Excel, is féidir leat a Roghnaigh Cealla Sonracha a láimhseáil go tapa seo task.It feidhm iomlán gan teorainn i 30 lá, íoslódáil agus triail saor in aisce anois.
léim doc go dtí an dáta reatha 6


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á.
cluaisín kte 201905

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á!
bun officetab
Sórtáil tuairimí de réir
Comments (4)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ní oibríonn sé seo leis an gcód VBA, tugann sé suas fuinneog ar a dtugtar "Téigh Go". An raibh sé i gceist againn an cód VBA a chur in eagar ar bhealach éigin?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Torthaí céanna le Peter ... Tugann F5 suas GoTo. Bhaineamar triail as Ctrl-F5 agus Alt-F5 freisin. An bhfuil seicheamh eochrach éigin eile nó breisiú leis an gcód? Go raibh maith agat.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Is duine nua mé le Microsoft Office, agus Excel, ach is ríomhchláraitheoir de réir nádúr mé. Más é an cuspóir ná cill a aimsiú le dáta an lae inniu - agus an cúrsóir a shuíomh chuige, ní fheicim go bhfuil gá leis an gcód sin go léir.Cód simplí (liostaithe thíos) a cruthaíodh i macra, agus sann an macra chuig litir. abair "T", agus mar rogha is féidir leat fiú cnaipe a chruthú agus an macra a shannadh dó, mar sin nuair a chliceálann tú ar an gcnaipe beidh tú ag taisteal go díreach chuig an gcill sin. Tá na línte tuairimí (iad siúd a thosaíonn le ') roghnach. Is féidir leat rogha a dhéanamh gan iad a chlóscríobh. D'úsáid mé iad chun an cód a réiteach. Is uirlis deas é "Msgbox" chun cumarsáid a dhéanamh leat.Seo é mo chód:------------------------------ Fo GoToToday()
'
' GoToToday Macra
'
' Aicearra Méarchláir: Ctrl+t
'
Dim DateRange, DateCell Mar Raon
Dim i Mar Beart
Dim x Mar Teaghrán
Ar Lean Earráid Aghaidh

MySheet = ActiveSheet.Name

' MsgBox (Dáta)
Do i = 12 Go 130
x = "A" &i
' Bosca (x)
' MsgBox (Bileoga Oibre(MySheet).Raon(x))

Más Bileoga Oibre(Mo Bhileog).Raon(x).Luach = Dáta Ansin
' Bosca (i)
' Bosca (x)
' MsgBox (Bileoga Oibre(MySheet).Raon(x))
x = "D" &i
Raon(x).Roghnaigh
Fo-Scoir
Deireadh Má
Next:
Fo Deireadh

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá an sampla seo thar a bheith mall. Is dócha go bhféadfá cuid de na paraiméadair aimsithe a bhearradh, mar sin déan tástáil más mian leat.
cód:

‘Faigh dáta an lae inniu ar an mbileog agus gníomhachtaigh an chill
Cells.Find(Cad:=Dáta, Tar éis:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlAr Aghaidh, MatchCase:=Bréagach _
, SearchFormat:=Bréagach). Gníomhachtaigh
'-----

ActiveWindow.ScrollRow = Amharc scrollaithe ActiveCell.Row 'go dtí an chill roghnaithe
Níl aon tráchtanna curtha suas anseo go fóill
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0   Carachtair
Suímh Molta

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL