Yazıyı Sayıya Çevirme

Bu dosya, yazıyla yazılmış bir Türk lirası tutarını rakamlı gösterime çevirir. Dönüşüm yaziyiRakamaCevir adlı VBA fonksiyonuyla yapılır ve sonuç "#,###.00 TL" biçiminde verilir.
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Tek sayfa vardır. A1 hücresinde örnek metin hazır olarak gelir: "Otuzüçmilyon sekizyüzyetmişbin yirmibeş".
• Sayfada formül, tablo, grafik veya veri doğrulama yoktur; dönüşüm tamamen makro koduyla yapılır.
• Kod Module1 modülünde yer alır.

Makrolar​

• test: A1 hücresindeki metni fonksiyona gönderir ve sonucu bir mesaj kutusunda gösterir. Çalıştırılan makro budur.
• yaziyiRakamaCevir: Metni büyük harfe çevirir, boşlukları siler ve "TÜRKLİRASI" ifadesine göre ikiye ayırır. Lira kısmını "MİLYON" ve "BİN" sözcüklerine göre milyonlar, binler ve birler olarak böler. "KURUŞ" ifadesinden önceki kısım kuruş olarak okunur ve 100'e bölünür. Parçaların toplamı biçimlendirilerek döndürülür.
• parcalaTopla: Üç haneli bir parçayı çözer. "YÜZ" öncesini 100 ile çarpar, ardından onlar basamağını (ON, YİRMİ ... DOKSAN) bulur ve birler basamağını ekler.
• birlerOku: BİR'den DOKUZ'a kadar sözcüğü 1-9 arasındaki sayıya çevirir.

Kodda dosya silme, dışarıya bağlantı gibi zararlı bir işlem yoktur.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. A1 hücresine tutarı yazıyla girin. Metinde "Türk lirası" ifadesi bulunmalıdır; örneğin kuruşlu bir tutar "... Türk lirası ... kuruş" biçiminde yazılır.
3. Alt+F8 ile test makrosunu çalıştırın.
4. Rakamla karşılığı mesaj kutusunda görüntülenir.
5. Fonksiyonu başka hücrelerde kullanmak için yaziyiRakamaCevir fonksiyonu başka bir makroda hücre başvurusuyla çağrılır.

Not: Fonksiyon, metinde "TÜRKLİRASI" ifadesi aranarak çalışır; bu ifade yazılmazsa hata verir. Milyar ve üzeri tutarlar için kodda bölüm yoktur, kapsam milyon seviyesine kadardır.