Rakamı Yazıya Çevirme

onlyforyou · 16 Eylül 2006

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 ,

necati kose · 16 Eylül 2006

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

necati kose · 16 Eylül 2006

özür

ben excell zannettim kusura bakmayın bunlar excel için geçerli

modalı · 16 Eylül 2006

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

onlyforyou · 16 Eylül 2006

YTL çevirme

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

czeki · 13 Mayıs 2008

çok teşekkürler

assenucler · 14 Mayıs 2008

Teşekkür, sayın Modalı...

alievren · 10 Mart 2009

teşekkürler ellerinize emeğinize sağlık. çok sağolunuz.

sqrm · 1 Ocak 2010

bu fonksiyon neden bende ad hatası veriyor olabilir

modalı · 1 Ocak 2010

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

sqrm · 2 Ocak 2010

ilginize çok teşekkür ederim forumu araştırıp başka bir başlıktan sorunumu çözdüm. iyi günler

mehmetturk · 4 Kasım 2010

modalı' Alıntı:
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?

Taruz · 4 Kasım 2010

mehmetturk' Alıntı:
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?

Merhaba..

Konu Ms. Access ile ilgili.. Linkini verdiğim başlıkta bu konu hakkında birçok örnek ve bilgiyi bulabilirsiniz..

http://www.excel.web.tr/f116/

TcShark · 6 Kasım 2010

Sayın Taruz Bey
Hazır bakmışken bunu Accesste yapmanın yordamını verebilirmisiniz.

ayşeadıgüzel · 23 Eylül 2011

Nasıl yapılacak bu ya anlamadım

Taruz · 24 Eylül 2011

ayşeadıgüzel' Alıntı:
Nasıl yapılacak bu ya anlamadım

Merhaba..

Sayın modalı'nın linkteki fonksiyonunu bir modüle yapıştın..:

http://www.excel.web.tr/showpost.php?p=110028&postcount=4

sonra da yazının görünmesini istediğiniz metin kutusunun denetim kaynağına =yaziyla([rakamın bulunduğu alan ve ya nesne adı]) yazın..

onlyforyou · 10 Ekim 2011

tşk

teşekkürler

naimgll · 21 Ocak 2012

Excel de para birimini kurusuna kadar yazi cevirme.

necati kose' Alıntı:
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.

turkanet · 19 Şubat 2017

modalı' Alıntı:

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

Rakamı Yazıya Çevirme

Ekli dosyalar