• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Rakamı Yazıya Nasıl Çevire Bilirim

R

Robinson_Crusoe

Katılım
30 Ağustos 2006
Mesajlar
67
Excel Vers. ve Dili
Microsoft Excel 2016 64 Bit
Toplam dite bir satır oluşturacağum buraya girilen para değeriği yazı ile para olarak yazacak bunu nasıl yaparım arkadaşlar,

Mesela 100 ₺ girildiyse bunu yazı ilede yazacak Yüz ₺ diye,

Edit:Office 2016 kullanıyorum,
 
Son düzenleme:
=YAZIM.DÜZENİ(EĞER(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(A1;2); ","; ""))=UZUNLUK(YUVARLA(A1;2));YUVARLA(A1;2);KIRP(SOLDAN(YUVARLA(A1;2);BUL(",";YUVARLA(A1;2))-1)))*1>=10^6;ELEMAN(SOLDAN(SAĞDAN(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(A1;2); ","; ""))=UZUNLUK(YUVARLA(A1;2));YUVARLA(A1;2);KIRP(SOLDAN(YUVARLA(A1;2);BUL(",";YUVARLA(A1;2))-1)))*1;7);1)+1;"";"birmilyon";"ikimilyon";"üçmilyon";"dörtmilyon";"beşmilyon";"altımilyon";"yedimilyon";"sekizmilyon";"dokuzmilyon");"")&EĞER(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(A1;2); ","; ""))=UZUNLUK(YUVARLA(A1;2));YUVARLA(A1;2);KIRP(SOLDAN(YUVARLA(A1;2);BUL(",";YUVARLA(A1;2))-1)))*1>=10^5;ELEMAN(SOLDAN(SAĞDAN(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(A1;2); ","; ""))=UZUNLUK(YUVARLA(A1;2));YUVARLA(A1;2);KIRP(SOLDAN(YUVARLA(A1;2);BUL(",";YUVARLA(A1;2))-1)))*1;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(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(A1;2); ","; ""))=UZUNLUK(YUVARLA(A1;2));YUVARLA(A1;2);KIRP(SOLDAN(YUVARLA(A1;2);BUL(",";YUVARLA(A1;2))-1)))*1>=10^4;ELEMAN(SOLDAN(SAĞDAN(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(A1;2); ","; ""))=UZUNLUK(YUVARLA(A1;2));YUVARLA(A1;2);KIRP(SOLDAN(YUVARLA(A1;2);BUL(",";YUVARLA(A1;2))-1)))*1;5);1)+1;"";"on";"yirmi";"otuz";"kırk";"elli";"altmış";"yetmiş";"seksen";"doksan");"")&EĞER(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(A1;2); ","; ""))=UZUNLUK(YUVARLA(A1;2));YUVARLA(A1;2);KIRP(SOLDAN(YUVARLA(A1;2);BUL(",";YUVARLA(A1;2))-1)))*1>=10^3;ELEMAN(SOLDAN(SAĞDAN(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(A1;2); ","; ""))=UZUNLUK(YUVARLA(A1;2));YUVARLA(A1;2);KIRP(SOLDAN(YUVARLA(A1;2);BUL(",";YUVARLA(A1;2))-1)))*1;4);1)+1;"";"";"iki";"üç";"dört";"beş";"altı";"yedi";"sekiz";"dokuz");"")&EĞER(VE(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(A1;2); ","; ""))=UZUNLUK(YUVARLA(A1;2));YUVARLA(A1;2);KIRP(SOLDAN(YUVARLA(A1;2);BUL(",";YUVARLA(A1;2))-1)))*1>=10^3;SAYIYAÇEVİR(SOLDAN(SAĞDAN(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(A1;2); ","; ""))=UZUNLUK(YUVARLA(A1;2));YUVARLA(A1;2);KIRP(SOLDAN(YUVARLA(A1;2);BUL(",";YUVARLA(A1;2))-1)))*1;6);3))>0);EĞER(VE(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(A1;2); ","; ""))=UZUNLUK(YUVARLA(A1;2));YUVARLA(A1;2);KIRP(SOLDAN(YUVARLA(A1;2);BUL(",";YUVARLA(A1;2))-1)))*1>1999;SOLDAN(SAĞDAN(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(A1;2); ","; ""))=UZUNLUK(YUVARLA(A1;2));YUVARLA(A1;2);KIRP(SOLDAN(YUVARLA(A1;2);BUL(",";YUVARLA(A1;2))-1)))*1;4);1)="1");"birbin";"bin");"")&EĞER(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(A1;2); ","; ""))=UZUNLUK(YUVARLA(A1;2));YUVARLA(A1;2);KIRP(SOLDAN(YUVARLA(A1;2);BUL(",";YUVARLA(A1;2))-1)))*1>=100;ELEMAN(SOLDAN(SAĞDAN(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(A1;2); ","; ""))=UZUNLUK(YUVARLA(A1;2));YUVARLA(A1;2);KIRP(SOLDAN(YUVARLA(A1;2);BUL(",";YUVARLA(A1;2))-1)))*1;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(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(A1;2); ","; ""))=UZUNLUK(YUVARLA(A1;2));YUVARLA(A1;2);KIRP(SOLDAN(YUVARLA(A1;2);BUL(",";YUVARLA(A1;2))-1)))*1>=10;ELEMAN(SOLDAN(SAĞDAN(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(A1;2); ","; ""))=UZUNLUK(YUVARLA(A1;2));YUVARLA(A1;2);KIRP(SOLDAN(YUVARLA(A1;2);BUL(",";YUVARLA(A1;2))-1)))*1;2);1)+1;"";"on";"yirmi";"otuz";"kırk";"elli";"altmış";"yetmiş";"seksen";"doksan");"")&ELEMAN(MOD(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(A1;2); ","; ""))=UZUNLUK(YUVARLA(A1;2));YUVARLA(A1;2);KIRP(SOLDAN(YUVARLA(A1;2);BUL(",";YUVARLA(A1;2))-1)))*1;10)+1;"";"bir";"iki";"üç";"dört";"beş";"altı";"yedi";"sekiz";"dokuz")) & " TL "
&
EĞER(YADA(UZUNLUK(YERİNEKOY(A1; ","; ""))=UZUNLUK(A1);UZUNLUK(YERİNEKOY(YUVARLA(A1;2); ","; ""))=UZUNLUK(YUVARLA(A1;2)));"";
YAZIM.DÜZENİ(EĞER(EĞER(UZUNLUK(KIRP(SAĞDAN(YUVARLA(A1;2);UZUNLUK(YUVARLA(A1;2))-BUL(",";YUVARLA(A1;2)))))<2;KIRP(SAĞDAN(YUVARLA(A1;2);UZUNLUK(YUVARLA(A1;2))-BUL(",";YUVARLA(A1;2))))*10;KIRP(SAĞDAN(YUVARLA(A1;2);UZUNLUK(YUVARLA(A1;2))-BUL(",";YUVARLA(A1;2))))*1)>=10^5;ELEMAN(SOLDAN(SAĞDAN(EĞER(UZUNLUK(KIRP(SAĞDAN(YUVARLA(A1;2);UZUNLUK(YUVARLA(A1;2))-BUL(",";YUVARLA(A1;2)))))<2;KIRP(SAĞDAN(YUVARLA(A1;2);UZUNLUK(YUVARLA(A1;2))-BUL(",";YUVARLA(A1;2))))*10;KIRP(SAĞDAN(YUVARLA(A1;2);UZUNLUK(YUVARLA(A1;2))-BUL(",";YUVARLA(A1;2))))*1);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(EĞER(UZUNLUK(KIRP(SAĞDAN(YUVARLA(A1;2);UZUNLUK(YUVARLA(A1;2))-BUL(",";YUVARLA(A1;2)))))<2;KIRP(SAĞDAN(YUVARLA(A1;2);UZUNLUK(YUVARLA(A1;2))-BUL(",";YUVARLA(A1;2))))*10;KIRP(SAĞDAN(YUVARLA(A1;2);UZUNLUK(YUVARLA(A1;2))-BUL(",";YUVARLA(A1;2))))*1)>=10^4;ELEMAN(SOLDAN(SAĞDAN(EĞER(UZUNLUK(KIRP(SAĞDAN(YUVARLA(A1;2);UZUNLUK(YUVARLA(A1;2))-BUL(",";YUVARLA(A1;2)))))<2;KIRP(SAĞDAN(YUVARLA(A1;2);UZUNLUK(YUVARLA(A1;2))-BUL(",";YUVARLA(A1;2))))*10;KIRP(SAĞDAN(YUVARLA(A1;2);UZUNLUK(YUVARLA(A1;2))-BUL(",";YUVARLA(A1;2))))*1);5);1)+1;"";"on";"yirmi";"otuz";"kırk";"elli";"altmış";"yetmiş";"seksen";"doksan");"")&EĞER(EĞER(UZUNLUK(KIRP(SAĞDAN(YUVARLA(A1;2);UZUNLUK(YUVARLA(A1;2))-BUL(",";YUVARLA(A1;2)))))<2;KIRP(SAĞDAN(YUVARLA(A1;2);UZUNLUK(YUVARLA(A1;2))-BUL(",";YUVARLA(A1;2))))*10;KIRP(SAĞDAN(YUVARLA(A1;2);UZUNLUK(YUVARLA(A1;2))-BUL(",";YUVARLA(A1;2))))*1)>=10^3;ELEMAN(SOLDAN(SAĞDAN(EĞER(UZUNLUK(KIRP(SAĞDAN(YUVARLA(A1;2);UZUNLUK(YUVARLA(A1;2))-BUL(",";YUVARLA(A1;2)))))<2;KIRP(SAĞDAN(YUVARLA(A1;2);UZUNLUK(YUVARLA(A1;2))-BUL(",";YUVARLA(A1;2))))*10;KIRP(SAĞDAN(YUVARLA(A1;2);UZUNLUK(YUVARLA(A1;2))-BUL(",";YUVARLA(A1;2))))*1);4);1)+1;"";"";"iki";"üç";"dört";"beş";"altı";"yedi";"sekiz";"dokuz");"")&EĞER(EĞER(UZUNLUK(KIRP(SAĞDAN(YUVARLA(A1;2);UZUNLUK(YUVARLA(A1;2))-BUL(",";YUVARLA(A1;2)))))<2;KIRP(SAĞDAN(YUVARLA(A1;2);UZUNLUK(YUVARLA(A1;2))-BUL(",";YUVARLA(A1;2))))*10;KIRP(SAĞDAN(YUVARLA(A1;2);UZUNLUK(YUVARLA(A1;2))-BUL(",";YUVARLA(A1;2))))*1)>=10;ELEMAN(SOLDAN(SAĞDAN(EĞER(UZUNLUK(KIRP(SAĞDAN(YUVARLA(A1;2);UZUNLUK(YUVARLA(A1;2))-BUL(",";YUVARLA(A1;2)))))<2;KIRP(SAĞDAN(YUVARLA(A1;2);UZUNLUK(YUVARLA(A1;2))-BUL(",";YUVARLA(A1;2))))*10;KIRP(SAĞDAN(YUVARLA(A1;2);UZUNLUK(YUVARLA(A1;2))-BUL(",";YUVARLA(A1;2))))*1);2);1)+1;"";"on";"yirmi";"otuz";"kırk";"elli";"altmış";"yetmiş";"seksen";"doksan");"")&ELEMAN(MOD(EĞER(UZUNLUK(KIRP(SAĞDAN(YUVARLA(A1;2);UZUNLUK(YUVARLA(A1;2))-BUL(",";YUVARLA(A1;2)))))<2;KIRP(SAĞDAN(YUVARLA(A1;2);UZUNLUK(YUVARLA(A1;2))-BUL(",";YUVARLA(A1;2))))*10;KIRP(SAĞDAN(YUVARLA(A1;2);UZUNLUK(YUVARLA(A1;2))-BUL(",";YUVARLA(A1;2))))*1);10)+1;"";"bir";"iki";"üç";"dört";"beş";"altı";"yedi";"sekiz";"dokuz")) & " Kr")
 
Hiç bir eklentiyi indiremiyorum, :(

Ayrca o kadar uzun formül görmedim mustafa bey onu nasıl yazacağım,
 
Aşağıdaki kodları boş bir excel kitabında boş bir modüle uygulayınız.

Hücrede kullanım şekli;

Kod: 
=YAZIYAÇEVİR(A1;"TL";KRŞ")
Kod: 
Function YAZIYAÇEVİR(Para, Optional PBirim = "LİRA", Optional KBirim = "KURUŞ")
    Dim ParaStr As String
    Dim Lira As String, Kuruş As String
    
    If Not IsNumeric(Para) Then
    YAZIYAÇEVİR = "#DEĞER!"
    Exit Function
    End If
    
    ParaStr = Format(Abs(Para), "0.00")
    
    Lira = Left(ParaStr, Len(ParaStr) - 3)
    Kuruş = Right(ParaStr, 2)
    
    YAZIYAÇEVİR = IIf(Para < 0, "Eksi ", "") & ÇEVİR(Lira) & " " & PBirim & " " & _
                  IIf(Val(Kuruş) <> 0, ÇEVİR(Kuruş) & " " & KBirim & " ", "")
End Function

Private Function ÇEVİR(SayıStr As String) As String
    Dim Rakam(15)
    Dim C(3), Sonuç, E
    
    Birler = Array("", "Bir", "İki", "Üç", "Dört", "Beş", "Altı", "Yedi", "Sekiz", "Dokuz")
    Onlar = Array("", "On", "Yirmi", "Otuz", "Kırk", "Elli", "Altmış", "Yetmiş", "Seksen", "Doksan")
    Binler = Array("Trilyon ", "Milyar ", "Milyon ", "Bin ", "")
    
    SayıStr = String(15 - Len(SayıStr), "0") + SayıStr
    
    For i = 1 To 15
    Rakam(i) = Val(Mid$(SayıStr, i, 1))
    Next i
    
    Sonuç = ""
    For i = 0 To 4
    C(1) = Rakam(i * 3 + 1)
    C(2) = Rakam(i * 3 + 2)
    C(3) = Rakam(i * 3 + 3)
    If C(1) = 0 Then
    E = ""
    ElseIf C(1) = 1 Then
    E = "Yüz"
    Else
    E = Birler(C(1)) + "Yüz"
    End If
    E = E + Onlar(C(2)) + Birler(C(3))
    If E <> "" Then E = E + Binler(i)
    If (i = 3) And (E = "BirBin ") Then E = "Bin"
    Sonuç = Sonuç + E
    Next i
    
    If Sonuç = "" Then Sonuç = "Sıfır"
    
    ÇEVİR = UCase(Mid(Sonuç, 1, 1)) + Mid(Sonuç, 2, Len(Sonuç) - 1)
End Function
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst