Rakamı Metine Çevirme

[iplikci_80]

Arkadaşlar rakamları örneğin 10 ON, 20 YİRMİ .... vb. şeklinde nasıl metine çevirebiliriz.

 

[Mdemir63]

Selamlar

Aşağıdaki fonksiyonu A1 hücresine yapıştır. Sonra C1 hücresine Rakam yazarak deneyiniz

=EĞER(C1>=10^6;ELEMAN(SOLDAN(SAĞDAN(C1;7);1)+1;"";"birmilyon";"ikimilyon";"üçmilyon";"dörtmilyon";"beşmilyon";"altımilyon";"yedimilyon";"sekizmilyon";"dokuzmilyon");"")&EĞER(C1>=10^5;ELEMAN(SOLDAN(SAĞDAN(C1;6);1)+1;"";"yüz";"ikiyüz";"üçyüz";"dörtyüz";"beşyüz";"altıyüz";"yediyüz";"sekizyüz";"dokuzyüz");"")&EĞER(C1>=10^4;ELEMAN(SOLDAN(SAĞDAN(C1;5);1)+1;"";"on";"yirmi";"otuz";"kırk";"elli";"altmış";"yetmiş";"seksen";"doksan");"")&EĞER(C1>=10^3;ELEMAN(SOLDAN(SAĞDAN(C1;4);1)+1;"";"";"iki";"üç";"dört";"beş";"altı";"yedi";"sekiz";"dokuz");"")&EĞER(C1>10^3;EĞER(VE(C1>1999;SOLDAN(SAĞDAN(C1;4);1)="1");"birbin";"bin");"")&EĞER(C1>=100;ELEMAN(SOLDAN(SAĞDAN(C1;3);1)+1;"";"yüz";"ikiyüz";"üçyüz";"dörtyüz";"beşyüz";"altıyüz";"yediyüz";"sekizyüz";"dokuzyüz");"")&EĞER(C1>=10;ELEMAN(SOLDAN(SAĞDAN(C1;2);1)+1;"";"on";"yirmi";"otuz";"kırk";"elli";"altmış";"yetmiş";"seksen";"doksan");"")&ELEMAN(MOD(C1;10)+1;"";"bir";"iki";"üç";"dört";"beş";"altı";"yedi";"sekiz";"dokuz")

 

[turist]

Aşağıdaki konuyu inceleyiniz.
https://www.excel.web.tr/threads/yaziyla-makrosunda-hata-var.67961/

 

[byfika]

Merhabalar,
Örnek dosya ve açıklaması ekte, umarım işinizi görür.
İyi çalışmalar.

 

[KMLZDMR]

Sayın komutan63
Excel2003 de formülü koyaldım "formül çok uzun" diyor. Ne yapılabilir?

 

[iplikci_80]

Arkadaşlar ilginize teşekkür ederim.

 

[Ömer BARAN]

Merhaba.

Biraz uzun oldu ama aşağıdaki formülü bir deneyin bakalım, alternatiif olsun.
İkinci satır TRİLYONlar, üçüncü satır MİLYARlar, dördüncü satır MİLYONlar, beşinci satır BİNler kısmıdır.
Eğer kullanacağınız belgede, metne çevireceğiniz değer için belli bir üst sınır varsa; gerekmeyen satırları silerek kullanabilirsiniz.

=EĞER(A1>=10^15;"";BÜYÜKHARF(
EĞER(A1>10^12;ARA(TAMSAYI(TAMSAYI(MOD(A1;10^15)/10^12)/100);{0;1;2;3;4;5;6;7;8;9};{"";"yüz";"ikiyüz";"üçyüz";"dörtyüz";"beşyüz";"altıyüz";"yediyüz";"sekizyüz";"dokuzyüz"})&ARA(TAMSAYI(MOD(TAMSAYI(MOD(A1;10^15)/10^12);100)/10);{0;1;2;3;4;5;6;7;8;9};{"";"on";"yirmi";"otuz";"kırk";"elli";"altmış";"yetmiş";"seksen";"doksan"})&ARA(MOD(TAMSAYI(MOD(A1;10^15)/10^12);10);{0;1;2;3;4;5;6;7;8;9};{"";"bir";"iki";"üç";"dört";"beş";"altı";"yedi";"sekiz";"dokuz"})&"trilyon ";"")&
EĞER(A1>10^9;ARA(TAMSAYI(TAMSAYI(MOD(A1;10^12)/10^9)/100);{0;1;2;3;4;5;6;7;8;9};{"";"yüz";"ikiyüz";"üçyüz";"dörtyüz";"beşyüz";"altıyüz";"yediyüz";"sekizyüz";"dokuzyüz"})&ARA(TAMSAYI(MOD(TAMSAYI(MOD(A1;10^12)/10^9);100)/10);{0;1;2;3;4;5;6;7;8;9};{"";"on";"yirmi";"otuz";"kırk";"elli";"altmış";"yetmiş";"seksen";"doksan"})&ARA(MOD(TAMSAYI(MOD(A1;10^12)/10^9);10);{0;1;2;3;4;5;6;7;8;9};{"";"bir";"iki";"üç";"dört";"beş";"altı";"yedi";"sekiz";"dokuz"})&EĞER(TAMSAYI(MOD(A1;10^12)/10^9)=0;"";"milyar ");"")&
EĞER(A1>10^6;ARA(TAMSAYI(TAMSAYI(MOD(A1;10^9)/10^6)/100);{0;1;2;3;4;5;6;7;8;9};{"";"yüz";"ikiyüz";"üçyüz";"dörtyüz";"beşyüz";"altıyüz";"yediyüz";"sekizyüz";"dokuzyüz"})&ARA(TAMSAYI(MOD(TAMSAYI(MOD(A1;10^9)/10^6);100)/10);{0;1;2;3;4;5;6;7;8;9};{"";"on";"yirmi";"otuz";"kırk";"elli";"altmış";"yetmiş";"seksen";"doksan"})&ARA(MOD(TAMSAYI(MOD(A1;10^9)/10^6);10);{0;1;2;3;4;5;6;7;8;9};{"";"bir";"iki";"üç";"dört";"beş";"altı";"yedi";"sekiz";"dokuz"})&EĞER(TAMSAYI(MOD(A1;10^9)/10^6)=0;"";"milyon ");"")&
EĞER(A1>10^3;ARA(TAMSAYI(TAMSAYI(MOD(A1;10^6)/10^3)/100);{0;1;2;3;4;5;6;7;8;9};{"";"yüz";"ikiyüz";"üçyüz";"dörtyüz";"beşyüz";"altıyüz";"yediyüz";"sekizyüz";"dokuzyüz"})&ARA(TAMSAYI(MOD(TAMSAYI(MOD(A1;10^6)/10^3);100)/10);{0;1;2;3;4;5;6;7;8;9};{"";"on";"yirmi";"otuz";"kırk";"elli";"altmış";"yetmiş";"seksen";"doksan"})&EĞER(VE(SAĞDAN(A1;5)+0<10000;TAMSAYI(SAĞDAN(A1;6)/1000)=1);"";ARA(MOD(TAMSAYI(MOD(A1;10^6)/10^3);10);{0;1;2;3;4;5;6;7;8;9};{"";"bir";"iki";"üç";"dört";"beş";"altı";"yedi";"sekiz";"dokuz"}))&EĞER(TAMSAYI(MOD(A1;10^6)/10^3)=0;"";"bin ");"")&
EĞER(A1>=1;ARA(TAMSAYI(MOD(A1;10^3)/100);{0;1;2;3;4;5;6;7;8;9};{"";"yüz";"ikiyüz";"üçyüz";"dörtyüz";"beşyüz";"altıyüz";"yediyüz";"sekizyüz";"dokuzyüz"})&ARA(TAMSAYI(MOD(MOD(A1;10^3);100)/10);{0;1;2;3;4;5;6;7;8;9};{"";"on";"yirmi";"otuz";"kırk";"elli";"altmış";"yetmiş";"seksen";"doksan"})&ARA(MOD(MOD(A1;10^3);10);{0;1;2;3;4;5;6;7;8;9};{"";"bir";"iki";"üç";"dört";"beş";"altı";"yedi";"sekiz";"dokuz"});"")
))

 

[iplikci_80]

Ömer Bey ilginize teşekkür ederim.

 

[Ömer BARAN]

Kolay gelsin.