Input Tanggal dan Jam Otomatis dengan macro
Thursday, April 4, 2013
Edit
Input Tanggal dan Jam Otomatis dengan macro
Bagaimana cara record Time and Date (Kolom A)secara otomatis pada saat data Serial Number ( Kolom B) di isi?
dengan FUNGSI misal NOW () atau TODAY(); memang bisa; tetapi data tanda waktu di kolom A yg anda maksudkan sebagai TimeStamp akan ikut JALAN seiring dengan berjalannya waktu 1 menit lagi akan berubah, besok akan berubah tgl nya; dst.Jadi menurut pendapat saya, harus dengan tindakan (menuliskan jam baik secara manual atau otomatis (Ctrl ; atau Ctrl :)
Tetapi itu namanya kan MANUAL banget...
Solusinya saya kira dengan makro yg dituis sbg Event Prosedur menunggu terjadi-nya peristiwa CHANGE pada worksheet: dimana kita mencegat agar event hanya memicu makro hanya jika terjadi di kolom B dan hanya dimasukan satu cell demi satu cell; (dan bukan data kosong)
Tuliskan pada workbook yang akan distel otomatis
masukkan kode ini
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
yang berwarana merah dan kuning bisa kamu rubah formatnya, oh ya arti dari macro ini adalah ketika kita mengetikkan sesuatu pada Cel B2 maka Cell A1 akan terisi tanggal saat anda mengetik itu juga, dan seterusnya
jiak sobat pengen meletakkan di cell yang dikendaki maka rubah n utak atik saja kode yang berwarna biru.
