Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > Diğer Yazılımlar > Access Soruları
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Access Soruları Access hakkındaki sorular ve cevaplar.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 16-09-2006, 11:04   #1
onlyforyou
 
Giriş: 15/09/2006
Mesaj: 6
Excel Vers. ve Dili:
Office XP
Varsayılan Rakamı Yazıya Çevirme

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 ,
onlyforyou Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-09-2006, 11:21   #2
necati kose
 
Giriş: 29/11/2005
Şehir: istanbul-maslak
Mesaj: 8
Varsayılan 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
Eklenmiş Dosyalar
Dosya Türü: zip yaziyacevirYTL.zip (10.4 KB, 597 Görüntülenme)
necati kose Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-09-2006, 11:25   #3
necati kose
 
Giriş: 29/11/2005
Şehir: istanbul-maslak
Mesaj: 8
Varsayılan özür

ben excell zannettim kusura bakmayın bunlar excel için geçerli
necati kose Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-09-2006, 11:57   #4
modalı
Uzman
 
modalı kullanıcısının avatarı
 
Giriş: 25/12/2005
Şehir: İstanbul
Mesaj: 4,162
Excel Vers. ve Dili:
MS Office 2010 Pro Türkçe
Varsayılan

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
Eklenmiş Dosyalar
Dosya Türü: rar rakammetinv1.rar (17.1 KB, 177 Görüntülenme)

Bu mesaj en son " 16-09-2006 " tarihinde saat 12:10 itibariyle modalı tarafından düzenlenmiştir....
modalı Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-09-2006, 13:45   #5
onlyforyou
 
Giriş: 15/09/2006
Mesaj: 6
Excel Vers. ve Dili:
Office XP
Varsayılan YTL çevirme

Teşekkürler modalı ;
verdiğin fonksiyon işe yaradı oldukça yararlı oldu
onlyforyou Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-05-2008, 11:02   #6
czeki
 
Giriş: 12/05/2008
Şehir: istanbul
Mesaj: 5
Excel Vers. ve Dili:
türkçe
Varsayılan

çok teşekkürler
czeki Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-05-2008, 07:49   #7
assenucler
Altın Üye
 
Giriş: 19/08/2004
Şehir: Istanbul
Mesaj: 2,500
Excel Vers. ve Dili:
Office 2016 TR - Windows 10 TR x64
Varsayılan

Teşekkür, sayın Modalı...
__________________
Windows 10 Türkçe
Office 365 TR Ev Ekstra 2016
assenucler Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-03-2009, 15:41   #8
alievren
 
Giriş: 10/03/2009
Mesaj: 1
Excel Vers. ve Dili:
2003 TR
Varsayılan

teşekkürler ellerinize emeğinize sağlık. çok sağolunuz.
alievren Çevrimdışı   Alıntı Yaparak Cevapla
Eski 01-01-2010, 16:56   #9
sqrm
Altın Üye
 
Giriş: 13/06/2006
Mesaj: 35
Excel Vers. ve Dili:
excell 2010 türkçe
Varsayılan

bu fonksiyon neden bende ad hatası veriyor olabilir
Eklenmiş Dosyalar
Dosya Türü: rar Fatura Baskı İçin işlenmiş.rar (25.8 KB, 181 Görüntülenme)
sqrm Çevrimdışı   Alıntı Yaparak Cevapla
Eski 01-01-2010, 20:00   #10
modalı
Uzman
 
modalı kullanıcısının avatarı
 
Giriş: 25/12/2005
Şehir: İstanbul
Mesaj: 4,162
Excel Vers. ve Dili:
MS Office 2010 Pro Türkçe
Varsayılan

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: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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
modalı Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 05:51


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden