+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Excel hücrede sayısal değeri yazı ile gösterme (/konu-excel-hucrede-sayisal-degeri-yazi-ile-gosterme.html)
Excel hücrede sayısal değeri yazı ile gösterme - sezginsasm - 24/11/2009
Merhaba, benim sizlerden bir ricam var arkadaşlar. Excel'de örneğin 1.250.00.-TL rakamsal ifadeyi ( yalnız bin iki yüz elli TL ) olarak nasıl yazdırabilirim. Bu konuda bana yardımcı olursanız sevinirim. İlgi ve alakanıza şimdiden teşekkürler ediyorum. Saygılarımla
Cvp: Acil yardım - alpeki99 - 24/11/2009
Tüm dünyada tüm forumlarda olduğu gibi bizim sitemizde de konu başlığı acil yardım, ölüyorum, bittim, birileri baksın vb. kullanmak yasaktır. Ayrıca sizin hakkınızda olumsuz intiba oluşturan en önemli hatadır. Konunuzu bilseler bile bakmazlar, cevap yazmazlar hatta başka zaman normal bir sorunuz olsa dahi bakmakta isteksizlik yapar.
Cvp: Acil yardım - sezginsasm - 24/11/2009
kusura bakmayın böyle oldugunu bilmiyordum zaten bilsem o şekilde yazmazdım. Yine de uyarınız için teşekkürler
uyarınızı dikkate aldım ve değiştirdim. Gerçekten teşekkür ederim. Saygılarımla
Cvp: Excel hücrede sayısal değeri yazı ile gösterme - ogulcan92 - 24/11/2009
Merhaba
Sn:sezginsasm
İlk önce site içerisinde araştırırsan bununla ilgili örnekleri bulursun verdiğim sayfadaki konu içerisinde mevcut oradan incelersiniz takıldığın yerde yardımcı olalım
https://accesstr.net/konu-siparis-teklif-formu.html
Cvp: Excel için destek istiyorum - maytas - 24/11/2009
Merhaba.
Bu konuda nette bir çok örnek mevcut.
Sıfırdan hazırlamaktansa elimde mevcut olan M.Temel Korkmaz'ın hazırladığı bir fonksiyonu burada paylaşayım.
Kod:
Function yaz$(sayi)
Dim b$(9)
Dim y$(9)
Dim m$(4)
Dim v(15)
Dim c(3)
b$(0) = ""
b$(1) = "Bir"
b$(2) = "İki"
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(sayi)
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$
yaz$ = s$
GoTo tamam
hata: yaz$ = "Hata"
tamam:
End FunctionCvp: Excel için destek istiyorum - ogulcan92 - 24/11/2009
Sn:maytas
Teşekkürler hocamızın fonksiyonu çok güzel bem örneğimdekinden daha kısa ve net hangisini kulacaksa örneği inceleyerek nasıl uygulandığını görebilir.