Zaman Aralığı Ekleme
01 Aralık 2020
28 Şubat 2021
878
Bu kod ile Zaman Aralığı Ekleme işlemini çok hızlı bir şekilde gerçekleştirebilir, işlerinizde zaman tasarrufu sağlayabilirsiniz.
Sub TimeStamp()
Dim i As Integer
For i = 1 To 24
ActiveCell.FormulaR1C1 = i & ":00"
ActiveCell.NumberFormat = "[$-409]h:mm AM/PM;@"
ActiveCell.Offset(RowOffset:=1, ColumnOffset:=0).Select
Next i
End SubGerekli Adımlar
Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.
- Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
- Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
- Araç çubuklarından Insert -> Module yazısına tıklayın.
- Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
- Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
- Üstteki kodu yapıştırın.
Kod Açıklaması
Üstteki kodu çalıştırdığınızda, alt alta 24 satıra 24 saatlik zaman aralığını eklendiğini görürsünüz.
Saat biçimini istediğiniz şekilde revize edebilirsiniz.
Etiketler :
| YARARLI KISAYOLLAR | |
|---|---|
| Yazdırma | Ctrl P |
| Şerit Menü Tuşlarını Aktif Etme | Alt |
| Yeni Sayfa Ekleme | Shift F11 |
| Aktif Pencereyi Kapatma | Ctrl W |
| Hücreleri biçimlendirme ekranını açma | Ctrl 1 |