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 01-01-2010, 23:57   #11
sqrm
Altın Üye
 
Giriş: 13/06/2006
Mesaj: 35
Excel Vers. ve Dili:
excell 2010 türkçe
Varsayılan

ilginize çok teşekkür ederim forumu araştırıp başka bir başlıktan sorunumu çözdüm. iyi günler
sqrm Çevrimdışı   Alıntı Yaparak Cevapla
Eski 04-11-2010, 21:17   #12
mehmetturk
 
Giriş: 04/11/2010
Şehir: İstanbul
Mesaj: 1
Excel Vers. ve Dili:
2007 Türkçe
Varsayılan

Alıntı:
modalı tarafından gönderildi Mesajı Görüntüle
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?
mehmetturk Çevrimdışı   Alıntı Yaparak Cevapla
Eski 04-11-2010, 21:29   #13
Taruz
Uzman
 
Taruz kullanıcısının avatarı
 
Giriş: 18/04/2007
Şehir: İstanbul
Mesaj: 2,062
Excel Vers. ve Dili:
Access 2010
Varsayılan

Alıntı:
mehmetturk tarafından gönderildi Mesajı Görüntüle
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/
__________________
"Bulunamayan yerleri bulmak için önce kaybolmak gerekir.''
Kaptan Hector Barbossa
Taruz Çevrimdışı   Alıntı Yaparak Cevapla
Eski 06-11-2010, 19:12   #14
TcShark
 
Giriş: 05/10/2010
Şehir: İstanbul
Mesaj: 51
Excel Vers. ve Dili:
Türkçe İngilizce
Varsayılan

Sayın Taruz Bey
Hazır bakmışken bunu Accesste yapmanın yordamını verebilirmisiniz.
TcShark Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-09-2011, 16:05   #15
ayşeadıgüzel
 
Giriş: 23/09/2011
Şehir: denizli
Mesaj: 1
Excel Vers. ve Dili:
microsoft office excel 2007
Varsayılan

Nasıl yapılacak bu ya anlamadım
ayşeadıgüzel Çevrimdışı   Alıntı Yaparak Cevapla
Eski 24-09-2011, 14:27   #16
Taruz
Uzman
 
Taruz kullanıcısının avatarı
 
Giriş: 18/04/2007
Şehir: İstanbul
Mesaj: 2,062
Excel Vers. ve Dili:
Access 2010
Varsayılan

Alıntı:
ayşeadıgüzel tarafından gönderildi Mesajı Görüntüle
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...28&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..
__________________
"Bulunamayan yerleri bulmak için önce kaybolmak gerekir.''
Kaptan Hector Barbossa
Taruz Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-10-2011, 17:54   #17
onlyforyou
 
Giriş: 15/09/2006
Mesaj: 6
Excel Vers. ve Dili:
Office XP
Varsayılan tşk

teşekkürler
onlyforyou Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-01-2012, 20:28   #18
naimgll
 
Giriş: 12/11/2011
Mesaj: 24
Excel Vers. ve Dili:
2010 / Türkçe
Varsayılan Excel de para birimini kurusuna kadar yazi cevirme.

Alıntı:
necati kose tarafından gönderildi Mesajı Görüntüle
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.
naimgll Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-02-2017, 12:29   #19
turkanet
 
Giriş: 30/03/2005
Mesaj: 753
Excel Vers. ve Dili:
2016 EN
Varsayılan

Alıntı:
modalı tarafından gönderildi Mesajı Görüntüle
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) = ı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
__________________
TÜRKÇEMİZE SAHİP ÇIKALIM
turkanet Ç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 18:24


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- Çorlu Çelik Konstruksiyon-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden