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
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
3. tekan F5 tombol, lalu kursor melompat ke sel dengan tanggal saat ini di mana pun Anda menemukan di buku kerja.
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.
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:
3. klik Temukan semua. Sekarang kursor melompat ke sel dengan hari ini di daftar yang dipilih.
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
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.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!