IBAN Numarasını Kontrol Etme dosyası, hücreye girilen bir IBAN numarasının geçerli olup olmadığını kullanıcı tanımlı bir fonksiyonla denetler. Kontrol, Türkiye Cumhuriyeti Merkez Bankasının "Ek-3: IBAN Kontrol Basamaklarının Doğrulanması" tebliğine göre hazırlanmıştır. Sonuç, koşullu biçimlendirme ile geçerli ya da geçersiz durumuna göre renklendirilir.
Dosyanın içeriği
- Sayfa1: B2 hücresinde "IBAN No" başlığı bulunur. B3 ve B4 hücrelerinde örnek IBAN numaraları yer alır; ikinci örnekte bir hane farklı olduğu için sonuç hatalı çıkar.
- Module1: Kontrolü yapan VBA modülüdür.
Makrolar
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Makrolar bir düğmeyle değil, hücre içinden fonksiyon olarak çağrılır. Kod dosya silme veya dışarıya bağlantı gibi işlemler içermez.- IBAN_Kontrol: Ana fonksiyondur. Boşlukları temizler, ilk dört karakteri sona taşır, harfleri IBAN_Cevir ile sayıya çevirir ve Iban_Mod sonucunu değerlendirir. Sonuç 1 ise "IBAN Numarası Geçerlidir", değilse "IBAN Numarası Hatalıdır" metnini döndürür.
- Iban_Mod: Uzun sayısal diziyi parçalara bölerek 97'ye göre bölümden kalanı hesaplar. Uzunluğu 13-36 karakter aralığı dışında kalan değer için #VALUE! döndürür.
- IBAN_Cevir: Harfin ASCII kodundan 55 çıkararak A=10, B=11 biçiminde sayı karşılığını verir.
Nasıl kullanılır
- Dosyayı açın ve makroları etkinleştirin.
- Sayfa1 sayfasında B3 ve altındaki hücrelere kontrol edilecek IBAN numaralarını girin.
- Sonuç için yanındaki hücreye fonksiyonu şu şekilde yazın:
=IBAN_Kontrol(B3) - Formülü diğer satırlara kopyalayın; sonuç metni ve renk her satır için ayrı belirlenir.
- Fonksiyonu başka bir dosyada kullanmak için Module1 modülünü o dosyaya aktarın.