formülde on milyon üstü basamakları yazıyla yazdırma

S

shanex

Altın Üye
Katılım
15 Eylül 2019
Mesajlar
41
Excel Vers. ve Dili
2010
Altın Üyelik Bitiş Tarihi
21-11-2025
bu formül ile 9.999.999,99 tl ye kadar yazabiliyorum ama 10 milyon 100 milyon aralığını yazdıramıyorum. yardımcı olabilir misiniz vba olmadan çözmek istiyorum.

="#"&EĞER(E27=0;"Sıfır Krş#";EĞER(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(E27;2);",";""))=UZUNLUK(YUVARLA(E27;2));YUVARLA(E27;2);KIRP(SOLDAN(YUVARLA(E27;2);BUL(",";YUVARLA(E27;2))-1)))*1>=10^6;ELEMAN(SOLDAN(SAĞDAN(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(E27;2);",";""))=UZUNLUK(YUVARLA(E27;2));YUVARLA(E27;2);KIRP(SOLDAN(YUVARLA(E27;2);BUL(",";YUVARLA(E27;2))-1)))*1;7);1)+1;"";"BirMilyon";"İkiMilyon";"ÜçMilyon";"DörtMilyon";"BeşMilyon";"AltıMilyon";"YediMilyon";"SekizMilyon";"DokuzMilyon");"")&EĞER(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(E27;2);",";""))=UZUNLUK(YUVARLA(E27;2));YUVARLA(E27;2);KIRP(SOLDAN(YUVARLA(E27;2);BUL(",";YUVARLA(E27;2))-1)))*1>=10^5;ELEMAN(SOLDAN(SAĞDAN(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(E27;2);",";""))=UZUNLUK(YUVARLA(E27;2));YUVARLA(E27;2);KIRP(SOLDAN(YUVARLA(E27;2);BUL(",";YUVARLA(E27;2))-1)))*1;6);1)+1;"";"Yüz";"İkiYüz";"ÜçYüz";"DörtYüz";"BeşYüz";"AltıYüz";"YediYüz";"SekizYüz";"DokuzYüz");"")&EĞER(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(E27;2);",";""))=UZUNLUK(YUVARLA(E27;2));YUVARLA(E27;2);KIRP(SOLDAN(YUVARLA(E27;2);BUL(",";YUVARLA(E27;2))-1)))*1>=10^4;ELEMAN(SOLDAN(SAĞDAN(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(E27;2);",";""))=UZUNLUK(YUVARLA(E27;2));YUVARLA(E27;2);KIRP(SOLDAN(YUVARLA(E27;2);BUL(",";YUVARLA(E27;2))-1)))*1;5);1)+1;"";"On";"Yirmi";"Otuz";"Kırk";"Elli";"Altmış";"Yetmiş";"Seksen";"Doksan");"")&EĞER(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(E27;2);",";""))=UZUNLUK(YUVARLA(E27;2));YUVARLA(E27;2);KIRP(SOLDAN(YUVARLA(E27;2);BUL(",";YUVARLA(E27;2))-1)))*1>=10^3;ELEMAN(SOLDAN(SAĞDAN(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(E27;2);",";""))=UZUNLUK(YUVARLA(E27;2));YUVARLA(E27;2);KIRP(SOLDAN(YUVARLA(E27;2);BUL(",";YUVARLA(E27;2))-1)))*1;4);1)+1;"";"";"İki";"Üç";"Dört";"Beş";"Altı";"Yedi";"Sekiz";"Dokuz");"")&EĞER(VE(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(E27;2);",";""))=UZUNLUK(YUVARLA(E27;2));YUVARLA(E27;2);KIRP(SOLDAN(YUVARLA(E27;2);BUL(",";YUVARLA(E27;2))-1)))*1>=10^3;SAYIYAÇEVİR(SOLDAN(SAĞDAN(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(E27;2);",";""))=UZUNLUK(YUVARLA(E27;2));YUVARLA(E27;2);KIRP(SOLDAN(YUVARLA(E27;2);BUL(",";YUVARLA(E27;2))-1)))*1;6);3))>0);EĞER(VE(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(E27;2);",";""))=UZUNLUK(YUVARLA(E27;2));YUVARLA(E27;2);KIRP(SOLDAN(YUVARLA(E27;2);BUL(",";YUVARLA(E27;2))-1)))*1>1999;SOLDAN(SAĞDAN(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(E27;2);",";""))=UZUNLUK(YUVARLA(E27;2));YUVARLA(E27;2);KIRP(SOLDAN(YUVARLA(E27;2);BUL(",";YUVARLA(E27;2))-1)))*1;4);1)="1";SOLDAN(SAĞDAN(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(E27;2);",";""))=UZUNLUK(YUVARLA(E27;2));YUVARLA(E27;2);KIRP(SOLDAN(YUVARLA(E27;2);BUL(",";YUVARLA(E27;2))-1)))*1;6);2)<>"00");"BirBin";"Bin");"")&EĞER(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(E27;2);",";""))=UZUNLUK(YUVARLA(E27;2));YUVARLA(E27;2);KIRP(SOLDAN(YUVARLA(E27;2);BUL(",";YUVARLA(E27;2))-1)))*1>=100;ELEMAN(SOLDAN(SAĞDAN(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(E27;2);",";""))=UZUNLUK(YUVARLA(E27;2));YUVARLA(E27;2);KIRP(SOLDAN(YUVARLA(E27;2);BUL(",";YUVARLA(E27;2))-1)))*1;3);1)+1;"";"Yüz";"İkiYüz";"ÜçYüz";"DörtYüz";"BeşYüz";"AltıYüz";"YediYüz";"SekizYüz";"DokuzYüz");"")&EĞER(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(E27;2);",";""))=UZUNLUK(YUVARLA(E27;2));YUVARLA(E27;2);KIRP(SOLDAN(YUVARLA(E27;2);BUL(",";YUVARLA(E27;2))-1)))*1>=10;ELEMAN(SOLDAN(SAĞDAN(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(E27;2);",";""))=UZUNLUK(YUVARLA(E27;2));YUVARLA(E27;2);KIRP(SOLDAN(YUVARLA(E27;2);BUL(",";YUVARLA(E27;2))-1)))*1;2);1)+1;"";"On";"Yirmi";"Otuz";"Kırk";"Elli";"Altmış";"Yetmiş";"Seksen";"Doksan");"")&ELEMAN(MOD(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(E27;2);",";""))=UZUNLUK(YUVARLA(E27;2));YUVARLA(E27;2);KIRP(SOLDAN(YUVARLA(E27;2);BUL(",";YUVARLA(E27;2))-1)))*1;10)+1;"";"Bir";"İki";"Üç";"Dört";"Beş";"Altı";"Yedi";"Sekiz";"Dokuz"))&" TRY "
&EĞER(MOD(E27;1)=0;"Sıfır Krş#";ELEMAN(MOD(TAMSAYI(YUVARLA(MOD(E27;1)*100;0));100)/10+1;"";"On";"Yirmi";"Otuz";"Kırk";"Elli";"Altmış";"Yetmiş";"Seksen";"Doksan")&ELEMAN(MOD(TAMSAYI(YUVARLA(MOD(E27;1)*100;0));10)+1;"";"Bir";"İki";"Üç";"Dört";"Beş";"Altı";"Yedi";"Sekiz";"Dokuz")&" Krş#")
 
H

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,756
Excel Vers. ve Dili
Excel 2019 Türkçe
chatgpt yanıtı:

Bu Excel formülü çok uzun ve karmaşık, çünkü bir sayıyı Türkçe yazıyla (örneğin “On Milyon Beş Yüz Bin Dört Yüz Altmış Yedi TL Elli Kuruş”) olarak ifade etmeye çalışıyor. Ancak mevcut formül sadece 9.999.999,99 TL’ye kadar doğru çalışacak şekilde yapılandırılmış. 10 milyon (ve üzeri) değerlerde "BirMilyon"'dan sonra gelen basamaklar doğru işlenmediği için eksik ya da hatalı çıkabilir.

✅ Amacınız:

10 milyon ve üzeri sayıları yazıyla doğru şekilde göstermek.

🔧 Mevcut Formülün Sorunu:

Formül şu an en fazla 7 basamak (yani 9.999.999) için dizayn edilmiş. 8 basamaklı sayılar (örneğin 10.000.000) geldiğinde ELEMAN(...) fonksiyonu doğru çalışmaz çünkü SAĞDAN(...;7) gibi sınırlamalar içeriyor.

✅ Çözüm Önerisi 1: Makro (VBA) ile çözüm

Eğer sayıyı yazıya çevirmek istiyorsanız, en temiz ve sürdürülebilir yol, Excel'de bir VBA fonksiyonu kullanmaktır.
🔽 Aşağıdaki VBA fonksiyonunu Excel'e yapıştırın:

  1. Alt + F11 tuşuna basarak VBA editörünü açın.
  2. Menüden Insert > Module seçin.
  3. Aşağıdaki kodu yapıştırın:


Function SayiyiYaziyaCevir(Sayi As Currency) As String
Dim birler, onlar, yuzler, binler, milyonlar, milyarlar
Dim tmp, kalan, yazi As String
Dim i As Integer

birler = Array("", "Bir", "İki", "Üç", "Dört", "Beş", "Altı", "Yedi", "Sekiz", "Dokuz")
onlar = Array("", "On", "Yirmi", "Otuz", "Kırk", "Elli", "Altmış", "Yetmiş", "Seksen", "Doksan")

tmp = Format(Sayi, "000000000000.00") ' 12 hane + kuruş
yazi = ""

For i = 1 To 12 Step 3
kalan = Mid(tmp, i, 3)
If kalan <> "000" Then
If Mid(kalan, 1, 1) <> "0" Then
If Mid(kalan, 1, 1) = "1" Then
yazi = yazi & "Yüz"
Else
yazi = yazi & birler(Val(Mid(kalan, 1, 1))) & "Yüz"
End If
End If
yazi = yazi & onlar(Val(Mid(kalan, 2, 1)))
yazi = yazi & birler(Val(Mid(kalan, 3, 1)))

Select Case i
Case 1: yazi = yazi & "Milyar"
Case 4: yazi = yazi & "Milyon"
Case 7: If kalan <> "001" Then yazi = yazi & "Bin" Else yazi = yazi & "Bin"
Case Else
End Select
End If
Next i

If yazi = "" Then yazi = "Sıfır"

' Kuruş ekle
Dim kurusTens, kurusUnits As Integer
kurusTens = Val(Mid(tmp, 14, 1))
kurusUnits = Val(Mid(tmp, 15, 1))

If kurusTens + kurusUnits > 0 Then
yazi = yazi & " TL " & onlar(kurusTens) & birler(kurusUnits) & " Kuruş"
Else
yazi = yazi & " TL Sıfır Kuruş"
End If

SayiyiYaziyaCevir = yazi
End Function


✔ Kullanımı:

Excel hücresine şunu yazın:


=SayiyiYaziyaCevir(E27)


Böylece 10.000.000,00 TL gibi sayılar için “On Milyon TL Sıfır Kuruş” sonucu alınır.
Genişletmek için tıkla ...

✅ Çözüm Önerisi 2: Formülünüzü Genişletmek

Eğer VBA kullanmak istemiyorsanız, mevcut formülü 9 basamaklı sayıları (yani yüz milyonlar) kapsayacak şekilde genişletmeniz gerekir. Bu oldukça karmaşık hale gelir. Ancak örnek olarak:


ELEMAN(SOLDAN(SAĞDAN(... ;8);1)+1;"";"YüzMilyon";"İkiYüzMilyon";... )


şeklinde 10^8 kontrolleri, yeni ELEMAN blokları ile artırılabilir. Fakat bu yöntem:

  • Yavaş çalışır
  • Hata yapma riski yüksek olur
  • Sürdürülemez olur
 
S

shanex

Altın Üye
Katılım
15 Eylül 2019
Mesajlar
41
Excel Vers. ve Dili
2010
Altın Üyelik Bitiş Tarihi
21-11-2025
hamitcan' Alıntı:
chatgpt yanıtı:

Bu Excel formülü çok uzun ve karmaşık, çünkü bir sayıyı Türkçe yazıyla (örneğin “On Milyon Beş Yüz Bin Dört Yüz Altmış Yedi TL Elli Kuruş”) olarak ifade etmeye çalışıyor. Ancak mevcut formül sadece 9.999.999,99 TL’ye kadar doğru çalışacak şekilde yapılandırılmış. 10 milyon (ve üzeri) değerlerde "BirMilyon"'dan sonra gelen basamaklar doğru işlenmediği için eksik ya da hatalı çıkabilir.

✅ Amacınız:

10 milyon ve üzeri sayıları yazıyla doğru şekilde göstermek.

🔧 Mevcut Formülün Sorunu:

Formül şu an en fazla 7 basamak (yani 9.999.999) için dizayn edilmiş. 8 basamaklı sayılar (örneğin 10.000.000) geldiğinde ELEMAN(...) fonksiyonu doğru çalışmaz çünkü SAĞDAN(...;7) gibi sınırlamalar içeriyor.

✅ Çözüm Önerisi 1: Makro (VBA) ile çözüm

Eğer sayıyı yazıya çevirmek istiyorsanız, en temiz ve sürdürülebilir yol, Excel'de bir VBA fonksiyonu kullanmaktır.
🔽 Aşağıdaki VBA fonksiyonunu Excel'e yapıştırın:

  1. Alt + F11 tuşuna basarak VBA editörünü açın.
  2. Menüden Insert > Module seçin.
  3. Aşağıdaki kodu yapıştırın:


Function SayiyiYaziyaCevir(Sayi As Currency) As String
Dim birler, onlar, yuzler, binler, milyonlar, milyarlar
Dim tmp, kalan, yazi As String
Dim i As Integer

birler = Array("", "Bir", "İki", "Üç", "Dört", "Beş", "Altı", "Yedi", "Sekiz", "Dokuz")
onlar = Array("", "On", "Yirmi", "Otuz", "Kırk", "Elli", "Altmış", "Yetmiş", "Seksen", "Doksan")

tmp = Format(Sayi, "000000000000.00") ' 12 hane + kuruş
yazi = ""

For i = 1 To 12 Step 3
kalan = Mid(tmp, i, 3)
If kalan <> "000" Then
If Mid(kalan, 1, 1) <> "0" Then
If Mid(kalan, 1, 1) = "1" Then
yazi = yazi & "Yüz"
Else
yazi = yazi & birler(Val(Mid(kalan, 1, 1))) & "Yüz"
End If
End If
yazi = yazi & onlar(Val(Mid(kalan, 2, 1)))
yazi = yazi & birler(Val(Mid(kalan, 3, 1)))

Select Case i
Case 1: yazi = yazi & "Milyar"
Case 4: yazi = yazi & "Milyon"
Case 7: If kalan <> "001" Then yazi = yazi & "Bin" Else yazi = yazi & "Bin"
Case Else
End Select
End If
Next i

If yazi = "" Then yazi = "Sıfır"

' Kuruş ekle
Dim kurusTens, kurusUnits As Integer
kurusTens = Val(Mid(tmp, 14, 1))
kurusUnits = Val(Mid(tmp, 15, 1))

If kurusTens + kurusUnits > 0 Then
yazi = yazi & " TL " & onlar(kurusTens) & birler(kurusUnits) & " Kuruş"
Else
yazi = yazi & " TL Sıfır Kuruş"
End If

SayiyiYaziyaCevir = yazi
End Function


✔ Kullanımı:

Excel hücresine şunu yazın:


=SayiyiYaziyaCevir(E27)





✅ Çözüm Önerisi 2: Formülünüzü Genişletmek

Eğer VBA kullanmak istemiyorsanız, mevcut formülü 9 basamaklı sayıları (yani yüz milyonlar) kapsayacak şekilde genişletmeniz gerekir. Bu oldukça karmaşık hale gelir. Ancak örnek olarak:


ELEMAN(SOLDAN(SAĞDAN(... ;8);1)+1;"";"YüzMilyon";"İkiYüzMilyon";... )


şeklinde 10^8 kontrolleri, yeni ELEMAN blokları ile artırılabilir. Fakat bu yöntem:

  • Yavaş çalışır
  • Hata yapma riski yüksek olur
  • Sürdürülemez olur
Genişletmek için tıkla ...
Teşekkür ederim.
Ancak excel ile vba olmadan tek haneli milyonlar var paylaştığım formülde ve buna iki haneli milyonlar da nasıl ekleyebiliriz formül ile onunla ilgili destek verebilir misiniz. chatgpt ve gemini ile denedim ama sürekli kendi algoritmasına göre düzenleme yapıyor ve bir süre sonra sürdürülemez şekilde hatalı formül yazıyor kendi karar verip kısaltma vs yaptığı için.
 
S

shanex

Altın Üye
Katılım
15 Eylül 2019
Mesajlar
41
Excel Vers. ve Dili
2010
Altın Üyelik Bitiş Tarihi
21-11-2025
sanırım yaptım :)
="#"&EĞER(E27=0;"Sıfır Krş#";EĞER(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(E27;2);",";""))=UZUNLUK(YUVARLA(E27;2));YUVARLA(E27;2);KIRP(SOLDAN(YUVARLA(E27;2);BUL(",";YUVARLA(E27;2))-1)))*1>=10^7;ELEMAN(SOLDAN(SAĞDAN(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(E27;2);",";""))=UZUNLUK(YUVARLA(E27;2));YUVARLA(E27;2);KIRP(SOLDAN(YUVARLA(E27;2);BUL(",";YUVARLA(E27;2))-1)))*1;8);1)+1;"";"On";"Yirmi";"Otuz";"Kırk";"Elli";"Almış";"Yetmiş";"Seksen";"Doksan");"")&EĞER(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(E27;2);",";""))=UZUNLUK(YUVARLA(E27;2));YUVARLA(E27;2);KIRP(SOLDAN(YUVARLA(E27;2);BUL(",";YUVARLA(E27;2))-1)))*1>=10^6;ELEMAN(SOLDAN(SAĞDAN(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(E27;2);",";""))=UZUNLUK(YUVARLA(E27;2));YUVARLA(E27;2);KIRP(SOLDAN(YUVARLA(E27;2);BUL(",";YUVARLA(E27;2))-1)))*1;7);1)+1;"";"BirMilyon";"İkiMilyon";"ÜçMilyon";"DörtMilyon";"BeşMilyon";"AltıMilyon";"YediMilyon";"SekizMilyon";"DokuzMilyon");"")&EĞER(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(E27;2);",";""))=UZUNLUK(YUVARLA(E27;2));YUVARLA(E27;2);KIRP(SOLDAN(YUVARLA(E27;2);BUL(",";YUVARLA(E27;2))-1)))*1>=10^5;ELEMAN(SOLDAN(SAĞDAN(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(E27;2);",";""))=UZUNLUK(YUVARLA(E27;2));YUVARLA(E27;2);KIRP(SOLDAN(YUVARLA(E27;2);BUL(",";YUVARLA(E27;2))-1)))*1;6);1)+1;"";"Yüz";"İkiYüz";"ÜçYüz";"DörtYüz";"BeşYüz";"AltıYüz";"YediYüz";"SekizYüz";"DokuzYüz");"")&EĞER(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(E27;2);",";""))=UZUNLUK(YUVARLA(E27;2));YUVARLA(E27;2);KIRP(SOLDAN(YUVARLA(E27;2);BUL(",";YUVARLA(E27;2))-1)))*1>=10^4;ELEMAN(SOLDAN(SAĞDAN(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(E27;2);",";""))=UZUNLUK(YUVARLA(E27;2));YUVARLA(E27;2);KIRP(SOLDAN(YUVARLA(E27;2);BUL(",";YUVARLA(E27;2))-1)))*1;5);1)+1;"";"On";"Yirmi";"Otuz";"Kırk";"Elli";"Altmış";"Yetmiş";"Seksen";"Doksan");"")&EĞER(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(E27;2);",";""))=UZUNLUK(YUVARLA(E27;2));YUVARLA(E27;2);KIRP(SOLDAN(YUVARLA(E27;2);BUL(",";YUVARLA(E27;2))-1)))*1>=10^3;ELEMAN(SOLDAN(SAĞDAN(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(E27;2);",";""))=UZUNLUK(YUVARLA(E27;2));YUVARLA(E27;2);KIRP(SOLDAN(YUVARLA(E27;2);BUL(",";YUVARLA(E27;2))-1)))*1;4);1)+1;"";"";"İki";"Üç";"Dört";"Beş";"Altı";"Yedi";"Sekiz";"Dokuz");"")&EĞER(VE(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(E27;2);",";""))=UZUNLUK(YUVARLA(E27;2));YUVARLA(E27;2);KIRP(SOLDAN(YUVARLA(E27;2);BUL(",";YUVARLA(E27;2))-1)))*1>=10^3;SAYIYAÇEVİR(SOLDAN(SAĞDAN(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(E27;2);",";""))=UZUNLUK(YUVARLA(E27;2));YUVARLA(E27;2);KIRP(SOLDAN(YUVARLA(E27;2);BUL(",";YUVARLA(E27;2))-1)))*1;6);3))>0);EĞER(VE(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(E27;2);",";""))=UZUNLUK(YUVARLA(E27;2));YUVARLA(E27;2);KIRP(SOLDAN(YUVARLA(E27;2);BUL(",";YUVARLA(E27;2))-1)))*1>1999;SOLDAN(SAĞDAN(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(E27;2);",";""))=UZUNLUK(YUVARLA(E27;2));YUVARLA(E27;2);KIRP(SOLDAN(YUVARLA(E27;2);BUL(",";YUVARLA(E27;2))-1)))*1;4);1)="1";SOLDAN(SAĞDAN(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(E27;2);",";""))=UZUNLUK(YUVARLA(E27;2));YUVARLA(E27;2);KIRP(SOLDAN(YUVARLA(E27;2);BUL(",";YUVARLA(E27;2))-1)))*1;6);2)<>"00");"BirBin";"Bin");"")&EĞER(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(E27;2);",";""))=UZUNLUK(YUVARLA(E27;2));YUVARLA(E27;2);KIRP(SOLDAN(YUVARLA(E27;2);BUL(",";YUVARLA(E27;2))-1)))*1>=100;ELEMAN(SOLDAN(SAĞDAN(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(E27;2);",";""))=UZUNLUK(YUVARLA(E27;2));YUVARLA(E27;2);KIRP(SOLDAN(YUVARLA(E27;2);BUL(",";YUVARLA(E27;2))-1)))*1;3);1)+1;"";"Yüz";"İkiYüz";"ÜçYüz";"DörtYüz";"BeşYüz";"AltıYüz";"YediYüz";"SekizYüz";"DokuzYüz");"")&EĞER(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(E27;2);",";""))=UZUNLUK(YUVARLA(E27;2));YUVARLA(E27;2);KIRP(SOLDAN(YUVARLA(E27;2);BUL(",";YUVARLA(E27;2))-1)))*1>=10;ELEMAN(SOLDAN(SAĞDAN(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(E27;2);",";""))=UZUNLUK(YUVARLA(E27;2));YUVARLA(E27;2);KIRP(SOLDAN(YUVARLA(E27;2);BUL(",";YUVARLA(E27;2))-1)))*1;2);1)+1;"";"On";"Yirmi";"Otuz";"Kırk";"Elli";"Altmış";"Yetmiş";"Seksen";"Doksan");"")&ELEMAN(MOD(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(E27;2);",";""))=UZUNLUK(YUVARLA(E27;2));YUVARLA(E27;2);KIRP(SOLDAN(YUVARLA(E27;2);BUL(",";YUVARLA(E27;2))-1)))*1;10)+1;"";"Bir";"İki";"Üç";"Dört";"Beş";"Altı";"Yedi";"Sekiz";"Dokuz"))&" TRY "
&EĞER(MOD(E27;1)=0;"Sıfır Krş#";ELEMAN(MOD(TAMSAYI(YUVARLA(MOD(E27;1)*100;0));100)/10+1;"";"On";"Yirmi";"Otuz";"Kırk";"Elli";"Altmış";"Yetmiş";"Seksen";"Doksan")&ELEMAN(MOD(TAMSAYI(YUVARLA(MOD(E27;1)*100;0));10)+1;"";"Bir";"İki";"Üç";"Dört";"Beş";"Altı";"Yedi";"Sekiz";"Dokuz")&" Krş#")
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst