Haftanın bugünü otomatik olarak güncellenmek istiyorsanız bu makale tam size göre. Bu makale, vba'daki msgbox aracılığıyla kullanıcıyı haftanın geçerli gününü güncellemeye odaklanmaktadır.
Soru): Haftanın gününü belirlemek için bir kod istiyorum.
VB editörünü başlatmak için aşağıdaki adımları izlememiz gerekiyor.
- Geliştirici sekmesine tıklayın
- Kod grubundan Visual Basic'i seçin
- Ekle'ye ve ardından Modül'e tıklayın
- Bu yeni modül oluşturacak
- Modüle aşağıdaki kodu girin
Alt TodaysDay()
Case DatePart("w", Date, vbMonday) seçin
Dava 1
MsgBox "Pzt"
2. durum
MsgBox "Salı"
Durum 3
MsgBox "Çarşamba"
4. vaka
MsgBox "Perşembe"
vaka 5
MsgBox "Cuma"
vaka 6
MsgBox "Ot"
vaka 7
MsgBox "Güneş"
Seçimi Bitir
Alt Bitiş
Not: Bugünün Tarihi 5 Haziran 2015, yani Cuma
“vbPazartesi” Pazartesiyi haftanın ilk günü olarak döndürmek için kullanılır; Pazar haftanın ilk günü ise, kullanmanız gerekir. “vbPazar”
- Makro penceresini açmak için ALT + F8 kısayol tuşuna basın
- Az önce oluşturduğunuz makroyu seçin
- Çalıştır'a tıklayın ve bugünün tarihinin adını alacağız.
- Formatı Cuma'dan Cuma'ya değiştirmek istiyorsanız
- Kodda küçük değişiklikler yapmanız gerekiyor
Alt TodaysDay()
Case DatePart("w", Date, vbMonday) seçin
Dava 1
MsgBox "Pazartesi"
2. durum
MsgBox "Salı"
Durum 3
MsgBox "Çarşamba"
4. vaka
MsgBox "Perşembe"
vaka 5
MsgBox "Cuma"
vaka 6
MsgBox "Cumartesi"
vaka 7
MsgBox "Pazar"
Seçimi Bitir
Alt Bitiş
- Bu sefer günün tam adını gösterebileceksiniz.
Bunda, kullanıcıyı haftanın geçerli günü hakkında bilgilendirmek için VBA mesaj kutusunu kullanabiliriz.
