Tarih Yazınca Günün Gösterilmesi

Bu dosya, bir UserForm üzerindeki TextBox'a yazılan tarihin gün adını (Pazartesi, Salı gibi) aynı formdaki Label'da gösteren makrolu bir örnektir. Tarih değiştikçe gün adı anında güncellenir. Konuyu tek bir amaca indirgeyen kısa bir VBA örneği olduğu için UserForm olaylarını öğrenmek isteyenler için de uygundur.

Dosyanın içeriği​

• UserForm1: Tarihin yazıldığı tbDate adlı TextBox ile gün adının görüntülendiği lblWeekday adlı Label bu formda yer alır.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Kodda dosya silme ya da dışarıya bağlantı gibi işlemler yoktur. Makrolar UserForm1 modülündedir:

• UserForm_Initialize: Form açıldığında çalışır. Bugünün tarihinden geriye doğru giderek en yakın pazartesi gününü bulur ve tbDate kutusuna yazar. Bugün pazartesi ise bugünün tarihi yazılır.
• tbDate_Change: TextBox içeriği her değiştiğinde çalışır. Kutudaki tarihi Format fonksiyonu ile "dddd" biçiminde gün adına çevirir ve lblWeekday içine yazar. Kodda On Error Resume Next bulunduğundan, geçerli bir tarih yazılmadığında hata mesajı çıkmaz ve Label güncellenmez.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Visual Basic düzenleyicisini Alt+F11 ile açın, Project penceresinden UserForm1 öğesine çift tıklayın.
3. Formu F5 tuşuyla çalıştırın; kutuda en yakın pazartesinin tarihi görünür.
4. TextBox'a gün.ay.yıl biçiminde başka bir tarih yazın, örneğin 31.01.2021.
5. Tarihin karşılık geldiği gün adı Label'da otomatik olarak görüntülenir.

Gün adı Excel'in dil ayarına göre görüntülenir. Form, kendi çalışma kitaplarınıza Dışa Aktar ve Dosya Al komutlarıyla aktarılarak kullanılabilir.