Bu dosya, bir kişinin doğum tarihinden hangi kuşağa girdiğini bulur. Aynı sonuç iki yöntemle hesaplanır: hücre formülü ile ve VBA ile yazılmış kullanıcı tanımlı fonksiyon (KTF) ile. Kendi tablolarınıza uyarlamak için hazır bir örnek sunar.
Kuşak aralıkları şöyledir:
Dosyanın içeriği
- Sheet1: H7:J14 aralığında doğum tarihlerinin girildiği H sütunu ve kuşak sonucunun hesaplandığı J sütunu bulunur. Sayfada 7 formül vardır.
- Module1: Kusak adlı kullanıcı tanımlı fonksiyonu içeren VBA modülüdür.
Kullanılan formüller
J sütunundaki formül, H sütunundaki tarihin yılını YEAR ile alır ve iç içe IF ile AND fonksiyonlarıyla yıl aralıklarını kontrol eder. J8 hücresindeki formül şöyledir:- 1946-1960: B
- 1961-1981: C
- 1982-1999: Y
- 2000 ve sonrası: Z
- 1946 öncesi: Kuşaksız
Makrolar
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Modülde yer alan Kusak fonksiyonu, kendisine verilen değeri Select Case yapısıyla yukarıdaki aralıklara göre karşılaştırır ve B, C, Y, Z ya da "Kuşaksız" sonucunu döndürür. Fonksiyon yıl değeri üzerinden karşılaştırma yapar; bu nedenle argüman olarak yıl girilmelidir. Kod dosya silme veya dışarıya bağlantı gibi işlemler içermez. Fonksiyon, makro olarak çalıştırılmaz; hücreye formül gibi yazılarak kullanılır.Nasıl kullanılır
- Dosyayı açın ve makroları etkinleştirin.
- H8:H14 hücrelerine doğum tarihlerini girin.
- J sütunundaki formül, kuşak sonucunu otomatik hesaplar.
- KTF ile hesaplamak için boş bir hücreye Kusak fonksiyonunu yazıp argüman olarak doğum yılını verin.
- Daha fazla satır gerekiyorsa J sütunundaki formülü aşağı kopyalayın.