Notu yazıya çevirme

[Sfenks]

Merhaba.
Arkadaşlar ben öğrenci notları için küçük bi program hazırlıyorum. Ama notu nasıl yazıya çevireceğimi bulamadım. Mesela 4,25 yazdığımda programın "Dört yirmi beş" yazmasnı istiyorum. Forumda bununla ilgili konuları okudum. Linkler çalışmadığı için çoğunu kendime göre de uyarlayamadım. Yardımcı olursanız çok sevinirim.

 

[Metin Karaağaç]

Excel Dersanesini incelediniz mi?
http://www.excel.web.tr/forumdisplay.php?f=116

 

[Metin Karaağaç]

Aşağıdaki kodların en sonunda yazan yerde "YTL" ve "YKR" yazan yerleri silerseniz sanırım istediğiniz olur.

Function yaz$(ytl, ykr)
Dim aa(2)
Dim deg(2)
aa(1) = Val(ytl)
aa(2) = Val(ykr)
For zz = 1 To 2
Sayi = aa(zz)
Dim b$(9)


Dim y$(9)
Dim m$(4)
Dim v$(15)
Dim c$(3)
b$(0) = ""
b$(1) = "BİR"
b$(2) = "İKİ"
b$(3) = "ÜÇ"
b$(4) = "DÖRT"
b$(5) = "BEŞ"
b$(6) = "ALTI"
b$(7) = "YEDİ"
b$(8) = "SEKİZ"
b$(9) = "DOKUZ"
y$(0) = ""
y$(1) = "ON"
y$(2) = "YİRMİ"
y$(3) = "OTUZ"
y$(4) = "KIRK"
y$(5) = "ELLİ"
y$(6) = "ALTMIŞ"
y$(7) = "YETMİŞ"
y$(8) = "SEKSEN"
y$(9) = "DOKSAN"
m$(0) = "TRILYON"
m$(1) = "MİLYAR"
m$(2) = "MİLYON"
m$(3) = "BİN"
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
a$ = ""
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&#220;Z"
Else
e$ = b$(c(1)) + "Y&#220;Z"
End If
e$ = e$ + y$(c(2)) + b$(c(3))
If e$ <> "" Then e$ = e$ + m$(x)
If (x = 3) And (e$ = "B&#304;RB&#304;N") Then e$ = "B&#304;N"
s$ = s$ + e$
Next x
If s$ = "" Then s$ = "SIFIR"
If pozitif = 0 Then s$ = "" + s$
deg(zz) = s$
GoTo tamam
hata: yaz$ = "hata"
tamam:
s$ = ""
Next
yaz$ = deg(1) & " YTL " & deg(2) & " YKR"
End Function

 

[Sfenks]

Dediğiniz yerlere baktım ama onlar düz sayılar çeviriyolar. Ondalık sayıyı çeviren bir tane lazım. Onları uyarlamanın mümkün olduğundan eminim ama benim o kadar excel bilgim olmadığından onu yapamıyorum.
Aslında istediğim verilen örneklere göre çok basit. Çünkü nöğrenci notları sadece 5 e kadar. o yüzden yüzle binle işim yok. ama ondalık olduğu için problemli.

Yine de çok teşekkür ediyorum yardımınız için.

 

[Sfenks]

Aslında bende bir örneği var ama çok uzun bir yapılmış. Bütün olası sayılar(yaklaşık 400 kadar) hücrelere girilmiş. Düşeyara formülü ile istenen yazı bulunmaya çalışılmış. Ben daha kestirme bir yolunu merak etmiştim. Çünkü zaten programın her yeri formül dolu o yüzden ekonomik bir formül arıyorum.

 

[Sfenks]

Ahhh. tamam teşekkürler. çözümü buldum. çok teşekkürler

 

[Ali]

Aslında istediğim verilen örneklere göre çok basit. Çünkü nöğrenci notları sadece 5 e kadar. o yüzden yüzle binle işim yok. ama ondalık olduğu için problemli.

Yine de çok teşekkür ediyorum yardımınız için.

Ondalıklı beşe kadar yazılacak ise formüllü


=EĞER((A1-(SAĞDAN(A1;1))=0);ARA(A1;{0;1;2;3;4;5};{"Sıfır";"Bir";"İki";"Üç";"Dört";"Beş"});ARA(A1;{0;1;2;3;4;5};{"Sıfır";"Bir";"İki ";"Üç";"Dört";"Beş"})&" nokta "&(ELEMAN((SAĞDAN(A1;1));"bir";"iki";"üç";"dört";" beş";"altı";"yedi";"sekiz";"dokuz";"on")))


olarak deneyiniz.

 

[Yüksel Varlı]

Ahhh. tamam teşekkürler. çözümü buldum. çok teşekkürler

Bulduğunuz çözümü kendinize mi saklayacaksınız peki?

 

[Sfenks]

hayır yazacaktım ama ben hazırlayıncaya kadar arkadaş daha kısasını yazıvermiş
o yüzden gerek duymadım