ADO ile Yaş Aralığı Bulma

Bu şablon, veriler sayfasındaki doğum tarihlerini ADO bağlantısıyla okuyarak kişileri yaş aralıklarına göre gruplar. Hesaplama hücre formülleriyle değil, VBA ile yazılmış özel bir fonksiyonla yapılır. Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• veriler: A1:E204 aralığında kayıtların bulunduğu veri sayfası. Makro, bu sayfadaki DOĞUM TARİHİ sütununu sorgular.
• yaş-aralığı: D9:E13 aralığında "Yaş Aralıkları" başlığı ve dört aralık yer alır: 18 - 25, 26 - 34, 35 - 50 ve 51 - 99.

Dosyada hücre formülü bulunmaz; sonuçlar makro fonksiyonuyla üretilir.

Makrolar​

• YaşAralığı (Fonksiyon modülü): "18 - 25" gibi bir metni parametre olarak alır. Metnin ilk iki hanesini alt yaş, son iki hanesini üst yaş olarak kullanır; üst yaş dahil olacak şekilde bir artırılır. Ardından veriler sayfasındaki doğum tarihlerini SQL sorgusuyla okur. Bugünün tarihi ile doğum tarihi arasındaki farkı 365,25'e bölerek yaşı bulur ve aralığa düşen kayıtları sayar. Kayıt yoksa sonuç 0 olur.
• Baglanti_Yap (baglanti modülü): Microsoft.ACE.OLEDB.12.0 sağlayıcısıyla dosyanın kendisine ADO bağlantısı açar. Excel 12.0, 14.0, 15.0 ve 16.0 sürümleri için aynı bağlantı dizesi kullanılır; başlık satırı kullanılır (hdr=yes).

Kodda dosya silme ya da dışarıya bağlantı işlemi yoktur; bağlantı yalnızca açık olan çalışma kitabına kurulur.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. veriler sayfasındaki DOĞUM TARİHİ sütununa kendi kayıtlarınızı girin.
3. yaş-aralığı sayfasında aralık metinlerini "18 - 25" biçiminde kullanın.
4. Sonucu görmek istediğiniz hücreye fonksiyonu aralık hücresine başvurarak çağırın:
   
   Excel formülü

   =YaşAralığı(D10)

5. Diğer aralıklar için aynı fonksiyonu D11, D12 ve D13 hücrelerine başvurarak kullanın.

Fonksiyon ACE sağlayıcısını kullandığından bilgisayarda Microsoft ACE OLEDB sürücüsünün kurulu olması gerekir. Dosya .xlsm biçiminde kaydedilmelidir.