Microsoft Excel’de Sayıları Yazı’ya Nasıl Çevrilir

Kim : Necip

Soru Gönder : Merhaba Adem Hocam , Excel Hazırladığım bir tablo’da aynı fatura’da olduğu gibi çıkan toplam rakamı yazı olarak nasıl yazdırabilir bununla ilgili olarak yardım ederseniz sevinirim. şimdiden teşekkürler

Cevap : Merhaba Necip Bey , Microsoft Excel , le toplama , çıkartma , bölme , çarpma işlemlerin dışında bir çok işlemleri de yapabiliyorsunuz . Bunun dışında Birazda yazılım bilginiz de var ise bunu kullanarak farklı makro işlemlerde yapabilirsiniz. Sizinde bahsettiğiniz gibi Excel çalışma sayfası veya kitabında fatura’da olduğu gibi çıkan toplam rakamı yazı ile yazmak mümkün İnternet üzerinde yaptığım araştırmalar ile bunu size sade bir video anlatım ile nasıl yapıldığı video ile hazırlamak istedim. Umarım Faydalı olmuştur.

Aşağıdaki Kodları Excel Sayfamızda oluşturacağımız Makro Tablo içine yapıştıracağız bunun nasıl yapıldığı hakkında hemen bir ön bilgi veriyim.

* Excel >> Alt + F11 tuş yardımı ile Makro ( Microsoft Visual Basic ) Tablomuzu açıyoruz ve aşağıdaki kodları yapıştırıyoruz.

[ayirac]Dim b$(9)
Dim y$(9)
Dim m$(4)
Dim v(15)
Dim c(3)

Function yaz$(sayi)

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(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 Function[ayirac]

Excel’de Rakam ( Sayı ) Yazı olarak Nasıl Yazılır Video Anlatım :

Arama Tags & Etiket ;

Microsoft Excel  sayıları nasıl yazıya çevirebilirim , Microsoft Excel Rakamları yazı ile yazma , yazıya çevirme , excel ile rakamları yazı convert etme