İçinde Bulunduğumuz Günü Bulma isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
Üstte bulunan kodu çalıştırdığınızda, resimde göreceğiniz üzere bir MsgBox nesnesinde günün adı görünecektir.
Faydalanılması temennisiyle
Hazır Kod
VBA:
Sub HaftaninKacinciGunu()
Select Case Weekday(Date, vbMonday)
'Weekday(Date, vbMonday) şu anki tarihin (Date) haftanın kaçıncı günü olduğunu verir.
'Çıkan sonuç kaç ise o satıra (Örn: Case 5) gidip komutu işletir.
Case 1: gun = "Pazartesi"
Case 2: gun = "Salı"
Case 3: gun = "Çarşamba"
Case 4: gun = "Perşembe"
Case 5: gun = "Cuma"
Case 6: gun = "Cumartesi"
Case 7: gun = "Pazar"
End Select
MsgBox gun
End SubAçıklama
Üstte bulunan kodu çalıştırdığınızda, resimde göreceğiniz üzere bir MsgBox nesnesinde günün adı görünecektir.
Faydalanılması temennisiyle
