Herhangi Bir Tarihten Sonraki İlk Pazartesiyi Bulma isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
Faydalanılması temennisiyle
Uygulama Adımları
- 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.
- Alttaki kodu yapıştırın.
Hazır Kod
VBA:
You must log in to view content
(26 satır)
Açıklama
Bu kod iki bölümden oluşmaktadır:- FindNextMonday Fonksiyonu:
- startDate parametresi olarak bir tarih alır.
- Weekday fonksiyonu kullanılarak startDate tarihinin haftanın günü bulunur.
- Pazartesi günü haftanın ikinci günü olduğu için (Weekday fonksiyonunda Pazar 1 olarak sayılır), sonraki Pazartesi gününe kadar geçecek gün sayısını hesaplar.
- Eğer startDate zaten Pazartesi günü ise, o günü döndürür.
- Aksi halde, startDate'den itibaren sonraki Pazartesi'ye kadar olan gün sayısını ekler ve bu tarihi döndürür.
- ShowNextMonday Makrosu:
- Kullanıcıdan InputBox ile bir tarih alır.
- Alınan tarihi FindNextMonday fonksiyonuna gönderir ve sonucu resultDate değişkenine atar.
- Sonucu, bir mesaj kutusunda gösterir, böylece kullanıcı girdiği tarihten sonra gelen ilk Pazartesi gününü görebilir.
Faydalanılması temennisiyle