Rakamı Yazıya Çevirme

Katılım
15 Eylül 2006
Mesajlar
6
Excel Vers. ve Dili
Office XP
Merhaba Arkadaşlar Alanda 75 YTL olarak görülen değeri
Yetmişbeş YTL olarak yazdırabileceğim bir fonksiyon yada bir vba yazılımı var mı teşekkürler ,
 
Katılım
29 Kasım 2005
Mesajlar
8
Yaziya Çevİrme

ARKADAŞIM EKTEKİ DOSYAYI KAYDET SONRADA İÇİNDEKİ EXCEL DOSYASINI BİRYERE KOPYALA SONRA ARAÇLAR +EKLENTİLER + GÖZAT KOPYALADIĞIN EXCELL DOSYASINI BUL VE SEÇ TAMAM DİYEREK ÇIK

SONRA YAZDIRILMASINI (NEREYE YAZDIRACAKSAN) SEÇ EKLE SEÇENEĞİNDEN İŞLEV İ SEÇ ORDA FONKSİYON EKLE SEÇENEĞİ ÇIKACAK ORDAN TÜMÜNÜ SEÇEREK YAZİYAÇEVİRYTL SEÇENEĞİNİ BUL VE SEÇ SONRA RAKAMIN YAZDIĞI HÜCREYİ SEÇ VE ENTER BU KADAAAARRR...

İYİ ÇALIŞMKALAR.
necati.kose@hotmail.com
 
Katılım
25 Aralık 2005
Mesajlar
4,160
Excel Vers. ve Dili
MS Office 2010 Pro Türkçe
Sayın onlyforyou,

Sonuç da fonksiyon kullanılıyor.

Function yaziyla(sayi)
On Error Resume Next
Dim deg(3), s(3), deger(2)
a = Array("", "bir", "iki", "üç", "dört", "beş", "altı", "yedi", "sekiz", "dokuz")
b = Array("", "on", "yirmi", "otuz", "kırk", "elli", "altmış", "yetmiş", "seksen", "doksan")
c = Array("", "", "bin", "milyon", "milyar", "trilyon")
deger(1) = Int(sayi)
deger(2) = Round(sayi - deger(1), 2) * 100
If sayi = 0 Then son = "sıfır"
For g = 1 To 2
yazi = deger(g)
For d = 1 To Len(yazi) Step 3
e = e + 1
deg(1) = Mid(yazi, Len(yazi) - d - 1, 1)
deg(2) = Mid(yazi, Len(yazi) - d, 1)
deg(3) = Mid(yazi, Len(yazi) - d + 1, 1)
If deg(1) <> 0 Then s(1) = Replace(a(deg(1)) & "yüz", "biryüz", "yüz")
s(2) = b(deg(2))
s(3) = a(deg(3)) & c(e)
If deg(1) + deg(2) + deg(3) = 0 Then s(3) = ""
son = s(1) & s(2) & s(3) & son
If Left(son, 6) = "birbin" Then son = Replace(son, "birbin", "bin")
For f = 1 To 3
deg(f) = ""
s(f) = ""
Next: Next
If g = 1 And deger(1) <> 0 Then ytl = son & " YTL"
If g = 2 And deger(2) <> 0 Then ykr = " " & son & " YKR"
son = ""
e = 0
Next
yaziyla = ytl & ykr
End Function

İyi çalışmalar:)
 
Son düzenleme:
Katılım
15 Eylül 2006
Mesajlar
6
Excel Vers. ve Dili
Office XP
YTL çevirme

Teşekkürler modalı ;
verdiğin fonksiyon işe yaradı oldukça yararlı oldu
 

assenucler

Altın Üye
Katılım
19 Ağustos 2004
Mesajlar
3,521
Excel Vers. ve Dili
Ofis 365 TR 64 Windows 11 Home Single Language x64 TR
Altın Üyelik Bitiş Tarihi
29-05-2025
Te&#351;ekk&#252;r, say&#305;n Modal&#305;...
 
Katılım
10 Mart 2009
Mesajlar
1
Excel Vers. ve Dili
2003 TR
teşekkürler ellerinize emeğinize sağlık. çok sağolunuz.
 
Katılım
25 Aralık 2005
Mesajlar
4,160
Excel Vers. ve Dili
MS Office 2010 Pro Türkçe
Sayın sqrm,

Gerçi sorunuzu yanlış yere sordunuz. Excel bölümünde olmalıydı.
Aşağıdaki fonksiyonu kullanın. Değiştirince düzeldi.

Kod:
Function yaziyla(sayi)
On Error Resume Next
Dim deg(3), s(3), deger(2)
a = Array("", "bir", "iki", "üç", "dört", "beş", "altı", "yedi", "sekiz", "dokuz")
b = Array("", "on", "yirmi", "otuz", "kırk", "elli", "altmış", "yetmiş", "seksen", "doksan")
c = Array("", "", "bin", "milyon", "milyar", "trilyon")
deger(1) = Int(sayi)
deger(2) = Round(sayi - deger(1), 2) * 100
If sayi = 0 Then son = "sıfır"
For g = 1 To 2
yazi = deger(g)
For d = 1 To Len(yazi) Step 3
e = e + 1
deg(1) = Mid(yazi, Len(yazi) - d - 1, 1)
deg(2) = Mid(yazi, Len(yazi) - d, 1)
deg(3) = Mid(yazi, Len(yazi) - d + 1, 1)
If deg(1) <> 0 Then s(1) = Replace(a(deg(1)) & "yüz", "biryüz", "yüz")
s(2) = b(deg(2))
s(3) = a(deg(3)) & c(e)
If deg(1) + deg(2) + deg(3) = 0 Then s(3) = ""
son = s(1) & s(2) & s(3) & son
If Left(son, 6) = "birbin" Then son = Replace(son, "birbin", "bin")
For f = 1 To 3
deg(f) = ""
s(f) = ""
Next: Next
If g = 1 And deger(1) <> 0 Then ytl = son & " YTL"
If g = 2 And deger(2) <> 0 Then ykr = " " & son & " YKR"
son = ""
e = 0
Next
yaziyla = ytl & ykr
End Function
 
Katılım
13 Haziran 2006
Mesajlar
49
Excel Vers. ve Dili
excell 2016 türkçe
Altın Üyelik Bitiş Tarihi
09/06/2022
ilginize çok teşekkür ederim forumu araştırıp başka bir başlıktan sorunumu çözdüm. iyi günler
 
Katılım
4 Kasım 2010
Mesajlar
3
Excel Vers. ve Dili
2007 Türkçe
Sayın onlyforyou,

Sonuç da fonksiyon kullanılıyor.

Function yaziyla(sayi)
On Error Resume Next
Dim deg(3), s(3), deger(2)
a = Array("", "bir", "iki", "üç", "dört", "beş", "altı", "yedi", "sekiz", "dokuz")
b = Array("", "on", "yirmi", "otuz", "kırk", "elli", "altmış", "yetmiş", "seksen", "doksan")
c = Array("", "", "bin", "milyon", "milyar", "trilyon")
deger(1) = Int(sayi)
deger(2) = Round(sayi - deger(1), 2) * 100
If sayi = 0 Then son = "sıfır"
For g = 1 To 2
yazi = deger(g)
For d = 1 To Len(yazi) Step 3
e = e + 1
deg(1) = Mid(yazi, Len(yazi) - d - 1, 1)
deg(2) = Mid(yazi, Len(yazi) - d, 1)
deg(3) = Mid(yazi, Len(yazi) - d + 1, 1)
If deg(1) <> 0 Then s(1) = Replace(a(deg(1)) & "yüz", "biryüz", "yüz")
s(2) = b(deg(2))
s(3) = a(deg(3)) & c(e)
If deg(1) + deg(2) + deg(3) = 0 Then s(3) = ""
son = s(1) & s(2) & s(3) & son
If Left(son, 6) = "birbin" Then son = Replace(son, "birbin", "bin")
For f = 1 To 3
deg(f) = ""
s(f) = ""
Next: Next
If g = 1 And deger(1) <> 0 Then ytl = son & " YTL"
If g = 2 And deger(2) <> 0 Then ykr = " " & son & " YKR"
son = ""
e = 0
Next
yaziyla = ytl & ykr
End Function

İyi çalışmalar:)
Bu kodları, exceli her açtığımda, yani sfırdan bir excelaçtığımda da kullanabilmek için bir yöntem var mı? Yani programa entegre etmek gibi?
 
Katılım
5 Ekim 2010
Mesajlar
51
Excel Vers. ve Dili
Türkçe
İngilizce
Sayın Taruz Bey
Hazır bakmışken bunu Accesste yapmanın yordamını verebilirmisiniz.
 
Katılım
13 Kasım 2011
Mesajlar
24
Excel Vers. ve Dili
2010 / Türkçe
Excel de para birimini kurusuna kadar yazi cevirme.

ARKADAŞIM EKTEKİ DOSYAYI KAYDET SONRADA İÇİNDEKİ EXCEL DOSYASINI BİRYERE KOPYALA SONRA ARAÇLAR +EKLENTİLER + GÖZAT KOPYALADIĞIN EXCELL DOSYASINI BUL VE SEÇ TAMAM DİYEREK ÇIK

SONRA YAZDIRILMASINI (NEREYE YAZDIRACAKSAN) SEÇ EKLE SEÇENEĞİNDEN İŞLEV İ SEÇ ORDA FONKSİYON EKLE SEÇENEĞİ ÇIKACAK ORDAN TÜMÜNÜ SEÇEREK YAZİYAÇEVİRYTL SEÇENEĞİNİ BUL VE SEÇ SONRA RAKAMIN YAZDIĞI HÜCREYİ SEÇ VE ENTER BU KADAAAARRR...

İYİ ÇALIŞMKALAR.
necati.kose@hotmail.com
arkadasim merhaba. bu konu daha once acilmis ve bitmis. rar dosyasini ekte vermissin ama ne yazikki rar dosyasinin oldugu sayfa acilmiyor. senden sonra baska bir arkadasta excel sayfasi yuklemis linke ama oda acilmiyor. acaba elinde bu rar dosyasi olan tekrar update yapabilir mi?
Saygilar.
 
Katılım
30 Mart 2005
Mesajlar
755
Excel Vers. ve Dili
2016 EN
sayın sqrm,

gerçi sorunuzu yanlış yere sordunuz. Excel bölümünde olmalıydı.
Aşağıdaki fonksiyonu kullanın. Değiştirince düzeldi.

Kod:
function yaziyla(sayi)
on error resume next
dim deg(3), s(3), deger(2)
a = array("", "bir", "iki", "üç", "dört", "beş", "altı", "yedi", "sekiz", "dokuz")
b = array("", "on", "yirmi", "otuz", "kırk", "elli", "altmış", "yetmiş", "seksen", "doksan")
c = array("", "", "bin", "milyon", "milyar", "trilyon")
deger(1) = ınt(sayi)
deger(2) = round(sayi - deger(1), 2) * 100
ıf sayi = 0 then son = "sıfır"
for g = 1 to 2
yazi = deger(g)
for d = 1 to len(yazi) step 3
e = e + 1
deg(1) = mid(yazi, len(yazi) - d - 1, 1)
deg(2) = mid(yazi, len(yazi) - d, 1)
deg(3) = mid(yazi, len(yazi) - d + 1, 1)
ıf deg(1) <> 0 then s(1) = replace(a(deg(1)) & "yüz", "biryüz", "yüz")
s(2) = b(deg(2))
s(3) = a(deg(3)) & c(e)
ıf deg(1) + deg(2) + deg(3) = 0 then s(3) = ""
son = s(1) & s(2) & s(3) & son
ıf left(son, 6) = "birbin" then son = replace(son, "birbin", "bin")
for f = 1 to 3
deg(f) = ""
s(f) = ""
next: Next
ıf g = 1 and deger(1) <> 0 then ytl = son & " ytl"
ıf g = 2 and deger(2) <> 0 then ykr = " " & son & " ykr"
son = ""
e = 0
next
yaziyla = ytl & ykr
end function
teşekkürler
 
Üst