ListView Başlığında Ay'ın Günlerini Listelemek

Bu dosya, bir UserForm üzerindeki ListView denetiminin sütun başlıklarına içinde bulunulan ayın günlerini otomatik olarak ekleyen çalışan bir örnektir. Başlıklar bugünün tarihine göre oluşturulur; ay 30 gün ise 30, 31 gün ise 31 sütun başlığı gelir. Puantaj, vardiya veya günlük takip formları hazırlayanlar için temel bir yapı sunar.

Dosyanın içeriği​

• Sheet1: B2 hücresinde "Listview Başlığında Ay'ın Günleri" yazan başlık metni bulunur. Sayfada formül yoktur.
• UserForm1: İçinde ListView1 denetimi bulunan form. Form açılırken başlıklar oluşturulur.
• Module1: Formu açan FormuAc makrosunu içerir.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Kodda dosya silme veya dışarıya bağlantı gibi zararlı bir işlem yoktur.

• FormuAc: UserForm1 formunu ekranda gösterir.
• UserForm_Initialize: Form açıldığında çalışır. ListView görünümünü rapor (lvwReport) biçimine alır, tam satır seçimini ve ızgara çizgilerini açar, mevcut sütun başlıklarını temizler. Ardından bugünün tarihinden ayın ilk gününü ve son gününü hesaplar; son gün, bir sonraki ayın birinci gününden bir gün çıkarılarak bulunur. Döngü ayın ilk gününden son gününe kadar her gün numarasını sütun başlığı olarak ekler.

Kodda iki alternatif satır yorum olarak bırakılmıştır. Bunlardan biri başlığa sayısal tarihi, diğeri "dd mmmm yyyy" biçiminde tam tarihi yazar. Yorum işareti kaldırılarak başlık biçimi değiştirilebilir.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Alt+F8 ile FormuAc makrosunu çalıştırın; form açılır ve ay günleri başlık olarak görünür.
3. Başlık biçimini değiştirmek için Alt+F11 ile VBA düzenleyicisini açın, UserForm1 kodunda ilgili yorum satırını etkinleştirin.
4. Kendi formunuzda kullanmak için UserForm_Initialize içindeki kodu kopyalayıp ListView denetiminizin adına göre uyarlayın.