Zaman Aralığı Ekleme
01 Aralık 2020
28 Şubat 2021
835
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 | |
|---|---|
| Altı Çizgili Yazdırma / Alternatif | Ctrl 4 |
| Formül Çubuğı Genişletme/Daraltma | Ctrl Shift U |
| Şerit Menü Tuşlarını Aktif Etme / Alternatif | Shift F6 |
| Satır Seçme | Shift Space |
| Özel Yapıştır Penceresini Açma | Ctrl Alt V |