Vba kullanarak zaman damgası nasıl eklenir (örnekle)

Excel’deki belirli bir hücreye zaman damgası eklemek için VBA’da aşağıdaki temel sözdizimini kullanabilirsiniz:

 SubInsertTimestamp ()

Range("A1").Value = Format(Now, "mm/dd/yyyy hh:mm:ss")
    
End Sub

Bu özel makro, geçerli saati aa/gg/yyyy ss:dd:ss biçiminde A1 hücresine ekler.

Not : VBA’nın Şimdi işlevi, bilgisayarınızın sistem tarihi ve saatine göre geçerli tarih ve saati döndürür.

Aşağıdaki örnek, bu sözdiziminin pratikte nasıl kullanılacağını gösterir.

Örnek: VBA kullanarak zaman damgası nasıl eklenir

Geçerli tarih ve saati zaman damgası olarak Excel’deki geçerli sayfamızın A1 hücresine eklemek için aşağıdaki makroyu oluşturduğumuzu varsayalım:

 SubInsertTimestamp ()

Range("A1").Value = Format(Now, "mm/dd/yyyy hh:mm:ss")
    
End Sub

Bu makroyu çalıştırdığımızda aşağıdaki çıktıyı alıyoruz:

A1 hücresi artık bu makronun çalıştırıldığı geçerli tarih ve saati görüntüler.

Bu özel örnek için, tarihsaat aa/gg/yyyy ss:dd:ss biçimindedir.

Kullanılacak farklı bir format da belirtebileceğimizi unutmayın.

Örneğin, geçerli saati gg-aa-yyyy ss:dd:ss biçiminde görüntülemek için B1 hücresinde aşağıdaki makroyu oluşturabiliriz:

 SubInsertTimestamp ()

Range("A1").Value = Format(Now, "mm/dd/yyyy hh:mm:ss")
Range("B1").Value = Format(Now, "dd-mm-yyyy hh:mm:ss")

End Sub

Bu makroyu çalıştırdığımızda aşağıdaki çıktıyı alıyoruz:

Artık A1 ve B1 hücrelerinin her ikisi de geçerli tarih ve saati farklı formatlarda görüntülüyor.

Not : VBA’daki Format işlevinin tam belgelerini burada bulabilirsiniz.

Ek kaynaklar

Aşağıdaki eğitimlerde VBA’da diğer ortak görevlerin nasıl gerçekleştirileceği açıklanmaktadır:

VBA’da tarihler nasıl karşılaştırılır
VBA’da saat nasıl biçimlendirilir
VBA’da zaman farkı nasıl hesaplanır