Excel Uygulamaları – 2
Sayıyı metne çevirmek
Rakamla yazılan sayının metinle ifade edilmesidir. Bunun kod yazmakla bir çok yolu olsa da her ortamda çalışan versiyonu aşağıdaki gibidir. Tablomuzu aşağıdaki formatta oluşturuyoruz. Tabloyu milyona kadar devam ettirmemiz gerekiyor.
| A | B | C | D | E | F | G |
| 0 | 1 | 10 | 100 | 1.000 | 10.000 | 100.000 |
| 1 | BİR | ON | YÜZ | BİN | ONBİN | YÜZBİN |
| 2 | İKİ | YİRMİ | İKİYÜZ | İKİBİN | YİRMİBİN | İKİYÜZBİN |
| 3 | ÜÇ | OTUZ | ÜÇYÜZ | ÜÇBİN | OTUZBİN | ÜÇYÜZBİN |
| 4 | DÖRT | KIRK | DÖRTYÜZ | DÖRTBİN | KIRKBİN | DÖRTYÜZBİN |
| 5 | BEŞ | ELLİ | BEŞYÜZ | BEŞBİN | ELLİBİN | BEŞYÜZBİN |
| 6 | ALTI | ALTMIŞ | ALTIYÜZ | ALTIBİN | ALTMIŞBİN | ALTIYÜZBİN |
| 7 | YEDİ | YETMİŞ | YEDİYÜZ | YEDİBİN | YETMİŞBİN | YEDİYÜZBİN |
| 8 | SEKİZ | SEKSEN | SEKİZYÜZ | SEKİZBİN | SEKSENBİN | SEKİZYÜZBİN |
| 9 | DOKUZ | DOKSAN | DOKUZYÜZ | DOKUZBİN | DOKSANBİN | DOKUZYÜZBİN |
Formül: A15 hücresinde 13.001 varsa B15 hücresine aşağıdaki formülü yazıdığınız zaman size ONÜÇBİNBİR verecektir.
=VLOOKUP(ROUNDDOWN(RIGHT(A15;7)/1000000;0);$A$1:$H$11;8;0)& IF(ROUNDDOWN(RIGHT(A15;6)/1000;0)=1;”BİN”; IF(ROUNDDOWN(RIGHT(A15;6)/1000;0)<>0; VLOOKUP(ROUNDDOWN(RIGHT(A15;6)/100000;0);$A$1:$D$11;4;0)& VLOOKUP(ROUNDDOWN(RIGHT(A15;5)/10000;0);$A$1:$C$11;3;0)& VLOOKUP(ROUNDDOWN(RIGHT(A15;4)/1000;0); $A$1:$C$11;2;0)&”BİN”;””))& VLOOKUP(ROUNDDOWN(RIGHT(A15;3)/100;0); $A$1:$H$11;4;0)& VLOOKUP(ROUNDDOWN(RIGHT(A15;2)/10;0); $A$1:$H$11;3;0)& VLOOKUP(ROUNDDOWN(RIGHT(A15;1)/1;0);$A$1:$H$11;2;0)