code macronya Option Explicit
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, 2) = Now Target(1, 2).NumberFormat = "dd mmm yyyy hh:mm:ss" Else Target(1, 2).ClearContents End If End If End If End Sub wassalam Ghozi Alkatiri ________________________________ Dari: Wawan Djuwanda <[email protected]> Kepada: [email protected] Dikirim: Rabu, 24 Oktober 2012 13:49 Judul: ]] XL-mania [[ Fungsi TODAY / NOW pada Ms Excel? Para suhu Excel yg sy hormati, Tolong mau Tanya nih, Bagaimana caranya kalo kita isi data pada cell A1, maka pada cell B1 terisi otomatis tanggal dan jam saat itu. ( Sesuai waktu diinput, tetap dan tidak berubah) Waktu berikutnya ketika isi data pada cell A2 , pada cell B2 pun terisi otomatis sesuai tanggal dan jam waktu diinput. (isi B1 dan B2 pasti berbeda) Ms Excel saya edisi 2007. Terima kasih atas pencerahannya.
ghozi 25102012 time stamp.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
