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 Action/Tindakan (menuliskan data
Tgl + Jam saat ini (jam sistem) baik secara manual atau otomatis (Ctrl ;
atau Ctrl :)
Tetapi itu namanya kan MANUAL banget...
Solusinya saya kira dengan makro yg ditulis sbg Event Prosedur menunggu
terjadi-nya
peristiwa CHANGE pada worksheet: *dimana kita mencegat agar event hanya
memicu makro jika terjadi di kolom B dan hanya dimasukan satu cell demi satu
cell; *
*(dan bukan data kosong)*
Private Sub Worksheet_Change(ByVal Target As Range)
'hapsari / 9 oct 2011
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"
End If
End If
End If
End Sub
Catatan
<>* Format Date Time* dapat anda edit sesuai selera.
<> Makro ini masih BELUM membatasi agar data terakhir (terbawah di kolom B)
saja yg menyebabkan terisinya tme stamp di kolom A.
Di tengah data jika cell di kolom B DI-EDIT maka Time-Stamp tetap akan
dituliskan di Kolom A (sejajar dengan cell yg diedit)
-haps- [9 okt 2011]
2011/10/8 Pungki BERLIANTO <[email protected]>
> **
>
> Saya ada pertanyaan tentang bagaimana cara mengisi data Time,Date (kolom
> A)
>
terakhir saat kita memasukkan data terakhir di kolom sebelahnya (Kolom B).**
> **
>
> Lebih jelasnya saya sertakan pada attachment file.****
>
> Terima kasih atas Pertolongan**
>
> **
>
>
> **
>
menuliskan TimeStamp Otomatis jka ada data baru (haps).xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
