Loncat ke daftar isi utama

Bagaimana cara memperbarui atau memasukkan tanggal dan waktu (saat ini) dengan Tombol Perintah di Excel?

Biasanya, banyak pengguna Excel cenderung memasukkan stempel waktu dengan rumus = SEKARANG (). Dengan rumus ini, stempel waktu yang dimasukkan akan diperbarui secara otomatis setiap kali Anda membuka buku kerja. Untuk memperbarui tanggal dan waktu secara manual di lembar kerja kapan saja, bagaimana cara mendapatkannya? Artikel ini akan menunjukkan kepada Anda metode untuk memperbarui tanggal dan waktu saat ini dengan mengklik Tombol Perintah di Excel.

Perbarui tanggal dan waktu dengan Tombol Perintah dengan kode VBA

Perbarui tanggal dan waktu dengan Tombol Perintah dengan kode VBA

Harap lakukan hal berikut untuk memperbarui tanggal dan waktu dengan Tombol Perintah di Excel.

1. Sisipkan Tombol Perintah dengan mengklik Pengembang > Menyisipkan > Tombol Perintah (Kontrol ActiveX). Lihat tangkapan layar:

2. Klik kanan Tombol Perintah yang dimasukkan, lalu klik Lihat kode dari menu klik kanan.

3. Dalam bermunculan Microsoft Visual Basic untuk Aplikasi jendela, harap ganti kode asli dengan kode VBA di bawah ini.

Kode VBA: Perbarui tanggal dan waktu dengan Tombol Perintah di Excel

Private Sub CommandButton1_Click()
    Range("A2").Value = Now()
End Sub

Note: Di dalam kode, CommandButton1 adalah nama Tombol Perintah yang Anda sisipkan. Dan A2 adalah sel tempat tanggal dan waktu pembaruan akan ditampilkan. Harap ubah sesuai kebutuhan Anda.

4. Matikan Mode Desain di bawah tab Pengembang. Klik pada Command Button, kemudian tanggal dan waktu saat ini dimasukkan ke dalam sel A2.

Dan setiap kali Anda mengklik Tombol Perintah, tanggal dan waktu di sel A2 akan segera diperbarui.

Terkait artikel:

Alat Produktivitas Kantor Terbaik

馃 Kutools AI Ajudan: Merevolusi analisis data berdasarkan: Eksekusi Cerdas   |  Hasilkan Kode  |  Buat Rumus Khusus  |  Analisis Data dan Hasilkan Grafik  |  Aktifkan Fungsi Kutools...
Fitur Populer: Temukan, Sorot, atau Identifikasi Duplikat   |  Hapus Baris Kosong   |  Gabungkan Kolom atau Sel tanpa Kehilangan Data   |   Putaran tanpa Formula ...
Pencarian Super: VLookup Beberapa Kriteria  |   VLookup Nilai Berganda  |   VLookup di Beberapa Lembar   |   Pencarian Fuzzy ....
Daftar Drop-down Lanjutan: Buat Daftar Drop Down dengan Cepat   |  Daftar Drop Down yang Bergantung   |  Multi-pilih Drop Down List ....
Manajer Kolom: Tambahkan Jumlah Kolom Tertentu  |  Pindahkan Kolom  |  Alihkan Status Visibilitas Kolom Tersembunyi  |  Bandingkan Rentang & Kolom ...
Fitur Unggulan: Fokus Kisi   |  Tampilan Desain   |   Bar Formula Besar   |  Manajer Buku Kerja & Lembar   |  Perpustakaan Sumberdaya (Teks otomatis)   |  Pemetik tanggal   |  Gabungkan Lembar Kerja   |  Enkripsi/Dekripsi Sel   |  Kirim Email berdasarkan Daftar   |  Filter Super   |   Filter Khusus (filter tebal/miring/coret...) ...
15 Perangkat Teratas:  12 Teks Tools (Tambahkan Teks, Hapus Karakter, ...)   |   50 + Grafik jenis (Gantt Chart, ...)   |   40+ Praktis Rumus (Hitung usia berdasarkan ulang tahun, ...)   |   19 Insersi Tools (Masukkan Kode QR, Sisipkan Gambar dari Jalur, ...)   |   12 Konversi Tools (Angka ke Kata, Konversi Mata Uang, ...)   |   7 Gabungkan & Pisahkan Tools (Lanjutan Gabungkan Baris, Pisahkan Sel, ...)   |   ... dan banyak lagi

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...

Deskripsi Produk

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!
Comments (7)
No ratings yet. Be the first to rate!
Rhonda
Rhonda
This comment was minimized by the moderator on the site
How do i update the code to put the time/date stamp in the cell NEXT to the button so it applies to each row thereon
Reply
0
0
Michelle
Michelle
This comment was minimized by the moderator on the site
I have a question. There is a workbook that we keep on a share drive for the whole team to access. I want to add this macro to it so anytime changes are made, we can simply pres the button and the time and date will auto populate at a click. Now here is the question, from this workbook, data is pulled to other workbooks if I save a new file as "Macro-Enabled" and delete the old "Non-Macro" workbook, will the data continue to pull from this new workbook or will I need to fix all the other workbooks.
Reply
0
0
crystal
crystal     Michelle
This comment was minimized by the moderator on the site
Hi Michelle,
After saving the workbook as an Macro-Enabled Excel workbook, the code still works fine.
Reply
Report
0
0
raph
raph
This comment was minimized by the moderator on the site
Awesome! Thanks for this tutorial.


However, how do i insert ONLY the date in DD/MM/YYYY format?
Reply
0
0
crystal
crystal     raph
This comment was minimized by the moderator on the site
Hi,
You can format the output cell as Short Date formatting to solve the problem.
Reply
Report
0
0
joeywarren27@gmail.com
This comment was minimized by the moderator on the site
Hi there.. this is really good basic info..


One question - how do you modify the code to put the datestamp into the NEXT row below, each time the button is pressed? (keeping the data previously written above?)


Thank you so much!
Reply
Report
0
0
crystal
crystal    
This comment was minimized by the moderator on the site
Hi,
The below VBA code will work on selected cell. When you want to insert timestampe to a cell, just select it and press the button.

Private Sub CommandButton1_Click()
Dim xRg As Range
On Error Resume Next
Set xRg = Selection
xRg.Value = Now()
End Sub
Reply
Report
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
脳
Rate this post:
Reset
0   Characters
Suggested Locations