- Katılım
- 12 Mart 2005
- Mesajlar
- 8
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.
-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
rakamı yazıya çeviremiyorum...
- Konbuyu başlatan bluemarmaris2002
- Başlangıç tarihi
- Katılım
- 12 Mart 2005
- Mesajlar
- 8
varsa bi örnek gönderirmisiniz....
huseyin3127@hotmail.com
huseyin3127@hotmail.com
- Katılım
- 13 Ekim 2004
- Mesajlar
- 16,057
- Excel Vers. ve Dili
-
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
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.
- Katılım
- 12 Mart 2005
- Mesajlar
- 8
evet leventm
rakamı ytl ye çeviren programı indirdim.kurdum.f7 tuşu ili iyi çalışıyor.
ama hücredeki rakamı yazıya çeviremiyorum.
rakamı ytl ye çeviren programı indirdim.kurdum.f7 tuşu ili iyi çalışıyor.
ama hücredeki rakamı yazıya çeviremiyorum.
- Katılım
- 12 Mart 2005
- Mesajlar
- 8
hücreye =yaz(a1) diyorum AD? BÃ?GLE BİÃEY GELİYOR
X
xxrt
Misafir
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.
- Katılım
- 28 Temmuz 2004
- Mesajlar
- 43
- Excel Vers. ve Dili
- Office 2003
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.
- Katılım
- 28 Şubat 2005
- Mesajlar
- 707
- Excel Vers. ve Dili
-
office 2007 (excel2007)English işte
office 2003 (excel2003)
Türkçe evde
merhaba;
aşağıdaki linki inceleyiniz
http://www.excel.web.tr/viewtopic.php?t=3355
syn bluemarmaris2002;bluemarmaris2002' Alıntı:
aşağıdaki linki inceleyiniz
http://www.excel.web.tr/viewtopic.php?t=3355
X
xxrt
Misafir
erdoğankaplan,
*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..
****/ ****
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.
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..
****/ ****
İşlemleri Sırası İle aktarayım..bluemarmaris2002' Alıntı:
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.