Bu dosya, ay ve yıl değiştirilebilen bir aylık takvimdir. Takvimdeki bir güne çift tıklanınca not girilir; not alınan günler takvimde mavi renkle gösterilir. Haziran 2019 takvimi açık gelir.
İlk haftada ayın 1. günü, WEEKDAY ve COLUMNS ile doğru gün sütununa yerleştirilir; sonraki günler bir artırılarak devam eder. Sonraki satırlarda ise DAY fonksiyonu ile ayın son günü aşılmaz. Sayfa3 sayfasında QUOTIENT ve MOD fonksiyonları, ay değeri 12'yi geçince yılı otomatik kaydırır.
Dosyanın içeriği
- Takvim: Ay ve yıl başlığı ile Pzt, Sal, Çrş gibi gün başlıklarını ve B7:H12 aralığındaki gün tablosunu içerir. Gün sayıları formüllerle yerleşir.
- Sayfa3: Gizli sayfadır. B1 hücresinde yıl, B2 hücresinde ay değeri tutulur; C1 ve C2 hücreleri bu değerlerden gerçek yıl ve ayı hesaplar.
- Notlar: B sütununda tarihler, C sütununda bu tarihlere ait notlar listelenir. Sayfa her açıldığında sütun genişlikleri otomatik ayarlanır.
Kullanılan formüller
Takvim başlığındaki ay adı ve yıl, TEXT ve DATE fonksiyonlarıyla üretilir:İlk haftada ayın 1. günü, WEEKDAY ve COLUMNS ile doğru gün sütununa yerleştirilir; sonraki günler bir artırılarak devam eder. Sonraki satırlarda ise DAY fonksiyonu ile ayın son günü aşılmaz. Sayfa3 sayfasında QUOTIENT ve MOD fonksiyonları, ay değeri 12'yi geçince yılı otomatik kaydırır.
Makrolar
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.- Worksheet_BeforeDoubleClick (Takvim sayfası): Gün tablosundaki dolu bir hücreye çift tıklanınca not giriş kutusu açılır. Girilen not ve seçilen tarih Notlar sayfasının C ve B sütunlarındaki ilk boş satıra yazılır, ardından renklendirme çalışır.
- Worksheet_Activate (Notlar sayfası): Sayfa açıldığında sütun genişliklerini içeriğe göre ayarlar.
- Yıl_Artisi, Yıl_Azalisi, Ay_Artisi, Ay_Azalisi: Sayfa3 sayfasındaki yıl veya ay değerini bir artırır ya da azaltır; takvim buna göre yenilenir.
- renklendir: Notu bulunan günlerin yazı rengini maviye, diğerlerini siyaha çevirir.
- GetMonthlyList: Görüntülenen aya ait notları gün ve ay adıyla bir mesaj kutusunda listeler; not yoksa bunu bildirir.
Nasıl kullanılır
- Dosyayı açın ve makroları etkinleştirin.
- Ay ve yıl değiştirmek için ilgili makroları çalıştıran düğmeleri veya Alt+F8 listesindeki makroları kullanın.
- Not eklemek istediğiniz güne çift tıklayın, açılan kutuya notu yazın.
- Notlu günler mavi görünür; ayın notlarını görmek için GetMonthlyList makrosunu çalıştırın.
- Tüm kayıtları Notlar sayfasından izleyin.