» » Cara Membuat Tanggal Otomatis dengan Macro VBA

Cara Membuat Tanggal Otomatis dengan Macro VBA

Wow, bagaimana bisa membuat tanggal dan jam otomatis menggunakan macro VBA di excel? Tentu bisa, seperti kita ketahui bersama rumus untuk mengetikkan tanggal adalah kita tinggal mengetikkan di cell yang akan memunculkan tanggal otomatis dengan formula =now() kemudian tekan enter maka akan secara otomatis keluar format tanggal dan jam sekarang tentuanya sesuai dengan setting tanggal dan jam di komputer kamu.

Pada posting kali ini saya akan membahas bagaimana cara membuat tanggal dan waktu secara otomatis menggunakan fungsi macro di excel dan akan terus update secara berkala setelah menekan tombol enter. Logikanya ketika memasukan data atau mengetik data di cell B1 maka secara otomatis di cell A1 tertulis tanggal dan jam tepat saat setelah enter ditekan. Untuk lebih jelasnya lihat gambaran berikut

Nah, untuk bisa membuat data tanggal secara otomatis dengan macro ikuti langkah-langkah berikut
Ketikan script macro VBA seperti di bawah ini

 Atau copy paste script berikut

 'Membuat tanggal otomatis update
 'Menggunakan macro
 'jago -Office.blogspot.com
 
  Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Column = 2 Then
      If Target.Cells.Count = 1 Then
         If Len(Target.Value) > 0 Then
            Target(1, 0) = Now
            Target(1, 0).NumberFormat = "dd mmm yyyy  hh:mm:ss"
         Else
            Target(1, 0).ClearContents
         End If
      End If
   End If
End Sub

Simpan data tersebut dengan type file .xlsm dan coba Anda ketikkan data di cell B1 seperti terlihat pada gambar 1 diatas kemudian tekan enter, maka akan secara otomatis mengupdate tanggal dan jam dan sesuai dengan regional setting di komputer Anda.

Demiikian artikel tentang Cara Membuat Tanggal Otomatis dengan Macro VBA semoga bermanfaat dan tunggu update artikel excel yang lainnya di blog jago-office.blogspot.com yang lebih menarik lagi.

12 Responses to "Cara Membuat Tanggal Otomatis dengan Macro VBA"

  1. Lulus Subiyantoro15 Februari 2013 pukul 20.03

    gan, aku tertarik artikel ini dan pengen buat. Tapi juga dak tahu apa itu macro dan buatnya. Mohon pencerahan, tks.

    BalasHapus
  2. Tanjungpandan13 Maret 2013 pukul 12.21

    salam gan....
    info yg bgus
    minta lebih rinci lgi gan....

    BalasHapus
  3. Yatna Supriyatna14 Maret 2013 pukul 11.03

    Terima kasih, untuk materi tentang macro nanti saya jelaskan lebih rinci lagi.

    BalasHapus
  4. Rudy S9 Mei 2013 pukul 22.12

    Infonya sangat bermanfaat mas.
    Jika data yang ingin dirubah/diketik berada di "cell E", script mana yg harus dirubah mas?

    Thx
    Rudy S

    BalasHapus
    Balasan
    1. Yatna Supriyatna22 Februari 2016 pukul 10.25

      Untuk di kolom C tinggal ganti If Target.Column = 2 menjadi If Target.Column = 5 dan untuk target kolom 0 ganti dengan -3

      Hapus
  5. Yatna Supriyatna10 Mei 2013 pukul 09.21

    Mas Rudi, Jika data yang diketikkan di cell E maka cukup rubah If Target.Column = 2 Then menjadi If Target.Column = 5 Then

    BalasHapus
  6. Rudy S10 Mei 2013 pukul 19.28

    OK mas makasih, sdh ketemu kok.
    Maksud pertanyaan diatas ketik di kolom "A" maka tanggal otomatis muncul di kolom "E".

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then
    If Target.Cells.Count = 1 Then
    If Len(Target.Value) > 0 Then
    Target(1, 5) = Now
    Target(1, 5).NumberFormat = "dd mmm yyyy hh:mm:ss"
    Else
    Target(1, 5).ClearContents
    End If
    End If
    End If
    End Sub

    BalasHapus
  7. Unknown17 Maret 2015 pukul 12.03

    Gan, mau tanya kalo ane mau bikin tanggal update hanya ada di 1 cell ,misal A1, dan range data yg diupdate ada di A2:D10 sehingga ketika data yg ada didalam range di update maka tgl update akan ganti. trm ksh

    BalasHapus
  8. Loker Kota Dumai WA20 Februari 2016 pukul 00.40

    kalau seandainya jika kita menulis di C1, dan tanggal muncul di A1 bagaimana mas? please bantunya mas

    BalasHapus
    Balasan
    1. Yatna Supriyatna22 Februari 2016 pukul 10.26

      Coba begini

      Private Sub Worksheet_Change(ByVal Target As Range)
      If Target.Column = 3 Then
      If Target.Cells.Count = 1 Then
      If Len(Target.Value) > 0 Then
      Target(1, -1) = Now
      Target(1, -1).NumberFormat = "dd mmm yyyy hh:mm:ss"
      Else
      Target(1, -1).ClearContents
      End If
      End If
      End If
      End Sub

      Hapus
  9. budi23 Juli 2016 pukul 21.47

    kalau nulisnya menggunakan rumus bagaimana pak? misalnya menggunakan if(d3=a;"a";"") di koloma a1. apa bisa

    BalasHapus
  10. Unknown24 Oktober 2016 pukul 13.29

    Makasih pencerahannya, tp kalo waktu otomatis nya 2 column bisa ngga?, pengisian B waktu otomatis nya di c, pengisian D waktu otomatis nya d E bisa ngga bos?

    BalasHapus

Tulisan ini Bermanfaat..? Silakan berkomentar sesuai topik artikelnya, tidak dianjurkan menggunakan kata-kata yang dapat menimbulkan hal negatif. Mohon maaf apabila tidak memiliki etika akan Admin HAPUS tanpa pemberitahuan kembali. Terimakasih... salam Exceler

Langganan: Posting Komentar (Atom)