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;
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]
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
| ayooo... coba cari XL-mania di linkedin.com |
| tanggal 3-4 oktober yahoogroup akan mengalami maintenance. |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
Nenhum comentário:
Postar um comentário