Excell'de Rakam Yazıya Nasıl Çevrilir?

[celal_gozlek]

EXCELL'DE RAKAM YAZIYA NASIL ÇEVRILIR?

Arkadaslar,ben excell’de isimize çok yarayan rakami yaziya çevirme olayini anlatmak istiyorum.
1)Öncelikle bir excell sayfasi açin.
2)Araçlar menüsünden Macro seçenegine gelin.
3)Visual Basic Düzenleyicisi seçenegini tiklatin.
4Karsimiza kod ekleyebilecegimiz bir alan çikar.
5)En üstte Insert menüsünde Module seçenegini tiklayin.
6) Option Explicit yazan bir kod alani açilir.
7) Option Explicit yazisini da silerek asagidaki kodlari oraya yazin. (Veya kopyalayip yapistirin.)
Dim b$(9)
Dim y$(9)
Dim m$(4)
Dim v(15)
Dim c(3)

Function Yaziyla$(sayi)

b$(0) = ""
b$(1) = "Bir"
b$(2) = "Iki"
b$(3) = "Üç"
b$(4) = "Dört"
b$(5) = "Bes"
b$(6) = "Alti"
b$(7) = "Yedi"
b$( = "Sekiz"
b$(9) = "Dokuz"

y$(0) = ""
y$(1) = "On"
y$(2) = "Yirmi"
y$(3) = "Otuz"
y$(4) = "Kirk"
y$(5) = "Elli"
y$(6) = "Altmis"
y$(7) = "Yetmis"
y$( = "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$ = "Sifir"
If pozitif = 0 Then s$ = "Eksi" + s$
Yaziyla$ = s$
GoTo tamam
hata: Yaziyla$ = "Hata"
tamam:
End Function

8)Kod sayfalarimizdan çikalim.
9)Açtigimiz bu excell sayfasini kaydedelim.

Herhangi bir hücreyi seçip formül çubuguna :
(Ben örnek olsun diye B1 hücresini seçiyorum)
=YAZIYLA(A1)
yazin.Enter tusuna basin.Simdi A1 hücresine bir rakam yazin.B1 hücresine yaziyla yazildigini göreceksiniz.
Bu kodlarimi Not Fisi dosyamda bulabilirsiniz.