VBA Now (Adım Adım Kılavuz) | Excel VBA'da Şimdi İşlevi Nasıl Kullanılır?

Excel VBA Now İşlevi

ŞİMDİ, her iki VBA'da da geçerli sistem tarihini ve saatini almak için kullanılan bir tarih ve saat işlevidir , tıpkı içinde herhangi bir argüman almayan çalışma sayfası işlevi gibi, VBA'da artık işlev de herhangi bir argüman almaz, dönüş çıkışı bu işlev için tarih.

VBA NOW işlevi, excel çalışma sayfası işlevindekine benzer. VBA "ŞİMDİ" deki DATE fonksiyonunun da geçecek parametreleri olmadığı gibi, sadece fonksiyonu kapalı parantezle veya paranteze gerek kalmadan geçmemiz gerekiyor. VBA'da TARİH işlevini kullanarak, üzerinde çalıştığımız sistemi gösteren geçerli tarihi oluşturabiliriz. Ancak tarihle birlikte şimdiki zamana ihtiyaç duyduğumuz durumlar da gördüm. Excel'de pek çok şey yapabiliriz, benzer şekilde excel'de NOW adlı basit bir fonksiyonla güncel tarih ve saati oluşturabiliriz.

VBA NOW'un formülü basittir.

ŞİMDİ ()

VBA Excel'de ŞİMDİ İşlevi Örneği

VBA'daki NOW işlevinin basit örneğine bakın. VBA kodunu yazmak ve ŞİMDİ hakkında biraz bilgi sahibi olmak ve kodu yazmak için aşağıdaki adımları izleyin.

Adım 1: Bir makro adı vererek alt prosedürü başlatın.

Kod:

 Sub Now_Example1 () End Sub

Adım 2: Değişkeni "Tarih" olarak bildirin. Son sonucumuz Tarih ve Saat biçiminde olduğu için değişkeni "Tarih" olarak tanımlamamızın nedeni.

Kod:

 Sub Now_Example1 () Dim k As Date End Sub 

Adım 3: VBA NOW işlevini uygulayarak değeri "k" değişkenine atayın.

Kod:

 Sub Now_Example1 () Dim k As Date k = Now End Sub 

Adım 4: Şimdi VBA'daki mesaj kutusunda "k" değişkenine atadığımız fonksiyonun ŞİMDİ değerini gösterin.

Kod:

 Sub Now_Example1 () Dim k As Date k = Şimdi MsgBox k End Sub 

Tamam, bitirdik.

Kodu F5 tuşunu kullanarak veya manuel olarak çalıştırın ve sonucun ne olduğunu görün.

Sonuç 4/15/2019, 5:03:35 gösterir.

Bilgisayarımın tarih biçimi “aa-gg-yyyy”.

FORMAT işlevini kullanarak tarih formatını da değiştirebiliriz. Tarih formatını değiştirmek için kod aşağıdadır.

Kod:

 Sub Now_Example1 () Dim k As Date k = Now MsgBox Format (k, "DD-MMM-YYYY SS: MM: SS") Son Alt 

Kodu çalıştırın ve farkı görün.

Şimdi uygun bir tarih ve saat formatımız var. Bu format ile tarih ve saat formatını herkes anlayabilir.

Doğada Uçucu:

İlk örnekte görebileceğiniz gibi zaman sonucunu 5:03:35 olarak aldık ve ikinci örnekte sonuca 17:19:02 olarak gidiyoruz. Bu, NOW işlevinin her saniye değişen geçici bir işlev olduğunu gösterir.

VBA'daki Zamanlayıcı İşlevine Alternatif

VBA TIMER'a alternatif olarak, görevi tamamlamak için makronun harcadığı toplam süreyi hesaplamak için "VBA NOW" işlevini kullanabiliriz.

Kodunuzun harcadığı zamanı hesaplamak için aşağıdaki kodu kullanın.

C0de:

 Sub TotalDuration () Dim k As Date k = Now '' 'Kodunuzu buraya girin' '' MsgBox "Görevi tamamlamak için makronun aldığı Toplam Süre:" & _ Format ((Şimdi - k), "SS: DD : SS ") Son Alt 

Yeşil renkli alana kodunuzu kopyalayıp yapıştırın.

F5 tuşuna basarak veya çalıştır düğmesine basarak kodu yürütün. Yürütmeyi tamamlar tamamlamaz, makronun mesaj kutusundaki görev mesajını tamamlamak için harcadığı zamanı alacağız. Aşağıda bunun bir örneği var.

Bunun gibi, VBA'da NOW işlevini birçok şekilde kullanabiliriz.

Bu Excel VBA Now Function şablonunu buradan indirebilirsiniz - VBA Now Function Template