excelde yazdıklarımın toplamı olan tutarı yazıya çevirmek istiyorum..

[lalebahcesi]

excelde yazdıklarımın toplamı olan tutarı yazıya çevirmek istiyorum..


toplamlar örnek b2 hücresınde b3 hücresınede yazı ıle yazılmasını ıstıyorum

 

[aligunes]

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

 

[zehfeysal]

Public Function YAZIYACEVIR(Para_Tutar)

Dim Para_TutarStr As String
Dim ParaBirimi As String, ParaAltBirimi As String

HücreAdı = Para_Tutar.Address

If Para_Tutar = "" Then
YAZIYACEVIR = HücreAdı & " Hücresine bir değer girmelisiniz !..."
Exit Function
End If

If Not IsNumeric(Para_Tutar) Then
YAZIYACEVIR = HücreAdı & " Hücresine girilen değer, sayı değil !..."
Exit Function
End If

ParaStr = Format(Abs(Para_Tutar), "0.00")
ParaBirimi = Left(ParaStr, Len(ParaStr) - 3)
ParaAltBirimi = Right(ParaStr, 2)

YAZIYACEVIR = IIf(Para_Tutar = 0, "Yalnız " & Cevir(ParaBirimi) & " TL ", "") & _
IIf(Para_Tutar <> 0, "Yalnız ", "") & _
IIf(Para_Tutar < 0, "Eksi (-) ", "") & _
IIf(Para_Tutar <> 0, Cevir(ParaBirimi) & " TL ", "") & _
IIf(Val(ParaAltBirimi) <> 0, Cevir(ParaAltBirimi) & " Kr.", "")

If ParaBirimi = 0 And ParaAltBirimi > 0 Then
YAZIYACEVIR = "Yalnız " & Cevir(ParaAltBirimi) & " Kr."

If Para_Tutar < 0 And ParaAltBirimi > 0 Then
YAZIYACEVIR = "Yalnız Eksi (-) " & Cevir(ParaAltBirimi) & " Kr."

End If

End If

End Function

Private Function Cevir(SayiStr As String) As String

Dim Rakam(15)
Dim c(3), Sonuc, e

Birler = Array("", "bir", "iki", "üç", "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", "")

SayiStr = String(15 - Len(SayiStr), "0") + SayiStr

For i = 1 To 15
Rakam(i) = Val(Mid$(SayiStr, i, 1))
Next i

Sonuc = ""
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"
Sonuc = Sonuc + e
Next i

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

Cevir = UCase(Mid(Sonuc, 1, 1)) + Mid(Sonuc, 2, Len(Sonuc) - 1)
End Function

 

[Haluk]

Sayıyı Yazıya Çevirme Uygulamaları

Bu başlıkta, Türkçe ve ingilizce olarak sayıyı yazıya çevirme ve YTL-YKR uygulamalarını bulabilirsiniz.

www.excel.web.tr

.

 

[igultekin2000]

excelde yazdıklarımın toplamı olan tutarı yazıya çevirmek istiyorum..


toplamlar örnek b2 hücresınde b3 hücresınede yazı ıle yazılmasını ıstıyorum

Merhaba;
ilgili dosyası sayfanıza eklerseniz her rakamı rahat bir şekilde yazıya çevirirsiniz

 

[zehfeysal]

=yaziyacevir(b3)

 

[muratgunay48]

=yaziyacevir(b3)

Hocam, ben bu özelliği bilmiyordum. Yalnız bende olmadı versiyondan dolayı olabilir mi.

 

[igultekin2000]

Hocam, ben bu özelliği bilmiyordum. Yalnız bende olmadı versiyondan dolayı olabilir mi.

=YaziyaCevir(b3) değil YaziyaCevir!B3 olabilir, YazıyaCevir veri alacağınız sayfa ! bu da sayfayı belirtiyor, yani YaziyiCevir! formül başlığı değil ilgili sayfa.