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

Bagaimana cara cepat melompat ke sel dengan tanggal saat ini di Excel?

Berikut adalah lembar dengan daftar tanggal, Anda ingin cepat melompat ke sel yang tanggal sekarang, bagaimana mengatasi masalah ini?

Lompat ke tanggal saat ini dengan VBA

Lompat ke tanggal saat ini dengan Temukan dan Ganti


panah gelembung kanan biru Lompat ke tanggal saat ini dengan VBA

Berikut adalah kode VBA yang dapat membantu Anda dengan cepat beralih ke sel dengan tanggal sekarang.

1. Aktifkan buku kerja yang ingin Anda gunakan, dan tekan Alt + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. klik Menyisipkan > Modul, tempel kode di bawah ini ke Modul.

VBA: Lompat ke tanggal sekarang

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

doc lompat ke tanggal sekarang 1

3. tekan F5 tombol, lalu kursor melompat ke sel dengan tanggal saat ini di mana pun Anda menemukan di buku kerja.
doc lompat ke tanggal sekarang 2


panah gelembung kanan biru Lompat ke tanggal saat ini dengan Temukan dan Ganti

Jika Anda tidak terbiasa dengan kode VBA, Anda juga dapat menerapkan Cari dan Ganti utilitas untuk melompat ke tanggal sekarang.

1. Aktifkan lembar yang berisi daftar tanggal, dan pilih sel kosong, ketikkan rumus ini = HARI INI (), tekan Enter kunci, sekarang Anda mendapatkan tanggal hari ini.
doc lompat ke tanggal sekarang 3

2. tekan Ctrl + C untuk menyalin tanggal hari ini, dan pergi untuk memilih daftar tanggal, dan kemudian tekan Ctrl + F untuk mengaktifkan Cari dan Ganti dialog, di Temukan apa kotak teks, tekan Ctrl + V untuk menempelkan tanggal hari ini ke. Lihat tangkapan layar:
doc lompat ke tanggal sekarang 4

3. klik Temukan semua. Sekarang kursor melompat ke sel dengan hari ini di daftar yang dipilih.
doc lompat ke tanggal sekarang 5

olymp trade indonesiaTip: Jika Anda memiliki Kutools untuk Excel, Anda dapat menerapkannya Pilih Sel Spesifik untuk menangani tugas ini dengan cepat. Ini berfungsi penuh tanpa batasan dalam 30 hari, silakan unduh dan dapatkan uji coba gratis sekarang.
doc lompat ke tanggal sekarang 6


Alat Produktivitas Kantor Terbaik

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2019 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
tab kte 201905

Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah

  • Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
  • Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
  • Tingkatkan produktivitas Anda hingga 50%, dan kurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (4)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Ini tidak bekerja dengan kode VBA, itu hanya menampilkan jendela yang disebut "Go To". Apakah kami dimaksudkan untuk mengedit kode VBA dengan cara tertentu?
Komentar ini diminimalkan oleh moderator di situs
Hasil yang sama seperti Peter ... F5 menampilkan GoTo. Kami juga mencoba Ctrl-F5 dan Alt-F5. Apakah ada urutan kunci lain atau penambahan kode? Terima kasih.
Komentar ini diminimalkan oleh moderator di situs
Saya seorang pemula dengan Microsoft Office, dan Excel, tetapi pada dasarnya saya adalah seorang programmer. Jika tujuannya adalah untuk menemukan sel dengan tanggal hari ini - dan memposisikan kursor ke sana, saya tidak dapat melihat perlunya semua kode itu. Kode sederhana (tercantum di bawah) dibuat dalam makro, dan menetapkan makro ke huruf ucapkan "T", dan sebagai opsi, Anda bahkan dapat membuat tombol dan menetapkan makro ke dalamnya, jadi ketika Anda mengklik tombol tersebut, Anda akan langsung menuju ke sel itu. Baris komentar (yang dimulai dengan ') bersifat opsional. Anda dapat memilih untuk tidak mengetiknya. Saya menggunakannya untuk memecahkan masalah kode. "Msgbox" adalah alat yang bagus untuk berkomunikasi dengan Anda. Ini kode saya:--------------------------------- Sub GoToToday()
'
' Makro GoToToday
'
' Pintasan Keyboard: Ctrl+t
'
Redup DateRange, DateCell Sebagai Rentang
Redupkan saya Sebagai Byte
Redup x Sebagai String
On Error Resume Next

MySheet = LembarAktif.Nama

' MsgBox (Tanggal)
Untuk i = 12 Sampai 130
x = "A" & i
' Kotak Pesan (x)
' MsgBox (Lembar Kerja(MySheet).Rentang(x))

If Worksheets(MySheet).Rentang(x).Nilai = Tanggal Kemudian
' Kotak Pesan (i)
' Kotak Pesan (x)
' MsgBox (Lembar Kerja(MySheet).Rentang(x))
x = "D" & i
Rentang (x). Pilih
Keluar dari Sub
End If
Berikutnya:
End Sub

Komentar ini diminimalkan oleh moderator di situs
Contoh ini sangat lambat. Anda mungkin dapat memangkas beberapa parameter find, jadi ujilah jika Anda mau.
Kode:

'Temukan tanggal hari ini di lembar dan aktifkan sel
Cells.Find(What:=Date, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlBerikutnya, MatchCase:=False _
, SearchFormat:=False).Aktifkan
'-----

ActiveWindow.ScrollRow = ActiveCell.Row 'gulir tampilan ke sel yang dipilih
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan