rakamı yazıya çeviremiyorum...

[bluemarmaris2002]

arkadaşlar hücre içindeki rakamı yazıya çeviremiyorum. :kafa: bunla ilgili linkleri inceledim yinede yapamadım.bidaha ayrıntılı anlatırmasınız-ofisxp kullanıyorum.

 

[bluemarmaris2002]

varsa bi örnek gönderirmisiniz....
huseyin3127@hotmail.com

 

[Levent Menteşoğlu]

YTL olarak yazmasınımı istiyorsunuz. Eğer böyle ise Forum ana sayfada kırmızı yazı ile linki verilen "Excel İçin YTL Programı" nı indirin bu program sayıyı yazıya çeviren bir fonksiyonda içermektedir.

 

[bluemarmaris2002]

evet leventm
rakamı ytl ye çeviren programı indirdim.kurdum.f7 tuşu ili iyi çalışıyor.
ama hücredeki rakamı yazıya çeviremiyorum.

 

[bluemarmaris2002]

hücreye =yaz(a1) diyorum AD? BÃ?GLE BİÞEY GELİYOR

 

[xxrt]

kurdum.f7 tuşu ili iyi çalışıyor.

Bahsettiğimiz Proğram F7 İle çalışmıyor.Menü Halinde Tasarlandı.Menüden Seçime bağlı işlemleri yapıyorsunuz..
Aşağıdada Görüleceği üzere
A1 Hücresine Rakamı Yazdık.Saha Sonra

Buradaki YTL Yazıya Çevir Menüsünden
YTL Oku Diyerek Tıklıyoruz.

Daha Sonra Hangi Hücreye Yazı İle Yazdırmak İsterseniz O Hücreyi Seçiyoruz.
Ve

Yazıyla Yazdır Butonunu Tıklıyoruz..
Sanırım Bukadar.

 

[erdoğankaplan]

resimlerdeki arayüz, renkler çok güzel, benim araç çubuklarım ve offis görüntümü bu şekilde nasıl ayarlarım. teşekkürler.

 

[birol_mumcu]

merhaba;

hücreye =yaz(a1) diyorum AD? BÃ?GLE BİÞEY GELİYOR

syn bluemarmaris2002;
aşağıdaki linki inceleyiniz
http://www.excel.web.tr/viewtopic.php?t=3355

 

[xxrt]

erdoğankaplan,

resimlerdeki arayüz, renkler çok güzel, benim araç çubuklarım ve offis görüntümü bu şekilde nasıl ayarlarım. teşekkürler.

Bu konu içinde ara soru olmasına karşın,ara cevap olarak vermek isterim..
*Almak İstediğiniz Resmi Prt Sc Tuşuna bastık
*Bir Paind dosyası açtık
*İçine Paste ettik
*Daha sonra seçilecek Bölümü keserek copy yapıyoruz..
*Daha Sonra Adobe Photoshop da yeni bir sayfaya yapıştırıyoruz.
*Bu dosyatı Save As Yani Farklı Kaydediyoruz.

Bence Adobeden Kaydettiğim için Resimdeki Görüntü Kalitesi Farklı Görünüyor.
Paintten yapınca sizin gibi oluyor.
Adobesi Olmayanlar için,
WinXP'deki Paint dosyasında .jpg olarak kaydetme özelliği var..O Þekiilde kaydedilebilir..
Eğer yinede görüntü düzgün çıkmıyorsa bir tane Parasız Domain sitesi bulup,dosyanızı oraya yüklüyorsunuz ve oranın linkini veriyorsunuz.
Mesela;
http://www.domaindlx.com/
sitesi güzel..


****/ ****

hücreye =yaz(a1) diyorum AD? BÃ?GLE BİÞEY GELİYOR

İşlemleri Sırası İle aktarayım..
1.)Ã?nce Aşağıdaki Kodları Modüle Yerleştirin.
Bu Kodlar Halil Tunç'a aittir.
[vb:1:5cab320b9d]Public Function YaziylaYTL(cTutar As Currency) As String
Dim cLira As Currency, cKurus As Currency, sStr As String, bEksi As Boolean
If cTutar < 0 Then cTutar = -cTutar: bEksi = True
cTutar = Format(cTutar, "#,##0.00")
cLira = Int(cTutar)
cKurus = Left((cTutar - cLira) * 100, 2)
If cLira = 0 Then
sStr = ""
Else
sStr = Yaziyla(cLira) & " YTL"
End If
If cKurus = 0 Then
sStr = sStr & ""
Else
sStr = sStr & IIf(sStr <> "", ", ", "") & Yaziyla(cKurus) & " YKR"
End If
If sStr = "" Then sStr = "sıfır"
If bEksi Then sStr = "eksi" & sStr
YaziylaYTL = sStr
End Function


Private Function Yaziyla(cTutar As Currency)
Dim a, s, e As String
Dim pozitif, negatif As Boolean
Dim x As Byte
Dim b$(9)
Dim y$(9)
Dim m$(4)
Dim v(15)
Dim c(3)

b$(0) = ""
b$(1) = "bir"
b$(2) = "iki"
b$(3) = "üç"
b$(4) = "dört"
b$(5) = "beş"
b$(6) = "altı"
b$(7) = "yedi"
b$(8) = "sekiz"
b$(9) = "dokuz"

y$(0) = ""
y$(1) = "on"
y$(2) = "yirmi"
y$(3) = "otuz"
y$(4) = "kırk"
y$(5) = "elli"
y$(6) = "altmış"
y$(7) = "yetmiş"
y$(8) = "seksen"
y$(9) = "doksan"

m$(0) = "trilyon"
m$(1) = "milyar"
m$(2) = "milyon"
m$(3) = "bin"
m$(4) = ""

a = Str(cTutar)
If Left$(a, 1) = " " Then pozitif = 1 Else pozitif = 0
a = Right$(a, Len(a) - 1)
For x = 1 To Len(a)
If (Asc(Mid$(a, x, 1)) > Asc("9")) Or (Asc(Mid$(a, x, 1)) < Asc("0")) Then GoTo hata
Next x
If Len(a) > 15 Then GoTo hata
a = String(15 - Len(a), "0") + a
For x = 1 To 15
v(x) = Val(Mid$(a, x, 1))
Next x
s = ""
For x = 0 To 4
c(1) = v((x * 3) + 1)
c(2) = v((x * 3) + 2)
c(3) = v((x * 3) + 3)
If c(1) = 0 Then
e = ""
ElseIf c(1) = 1 Then
e = "yüz"
Else
e = b$(c(1)) + "yüz"
End If
e = e + y$(c(2)) + b$(c(3))
If e <> "" Then e = e + m$(x)
If (x = 3) And (e = "birbin") Then e = "bin"
s = s + e
Next x
If s = "" Then s = "sıfır"
If pozitif = 0 Then s = "eksi" + s
Yaziyla = s '+ " TL"
GoTo tamam
hata: Yaziyla = "HATA"
tamam:
End Function[/vb:1:5cab320b9d]

Daha Sonra
A1 Hücresine Rakamı yazın.
A2 Hücresinede
=YaziylaYTL(A1) yazın..
Bu kadar.