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.

 

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

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

Adem ÖCÜT

Merhabalar , Bu Benim Kişisel Blog Sayfam'dır. Diğer Açıklayıcı ve Yasal Hakları İletişim Kısmından Bulabilirsiniz. Adem ÖCÜT ( MCP-MCSA)

Microsoft Excel’de Sayıları Yazı’ya Nasıl Çevrilir (4 Yorum)

Yorum Yaz

  1. Merhaba,
    Faturadaki rakalmları yazıya çevrmeye çalışıyorum. Gösterdiğiniz yöntemleri uyguladım kodalrı yazdım yine de olumlu sonuç alamadım.
    yardımcı olur musunuz?

    • murat bey , tam açıklayıcı olarak anlattım ama , kodları yapıştırdık dan sonra kayıt edeceksiniz.

  2. evet o sorunu halletim şu an yeni bi sorun oluştu. formülü kodlamayı yapıp çalıştırıyorum kaydetip çıkıyorum fakat yeniden açınca modül kayıtlı ama formül çalılmıyor

  3. RAKAMLARI YAZIYA ÇEVİRMEK İÇİN EKLİ MAKRO YAZILIMINI İLAVE

    1 – Excel >> Alt + F11 tuş yardımı ile Makro ( Microsoft Visual Basic ) Tablomuzu açıyoruz ,
    2 – yada GELİŞTİRİCİ – VİSUAL BASİC – İNSERT SEKMESİNDE MODULE tıklayarak yeni sayfa açıyoruz.
    3 – Açılan sayfaya aşağıdaki kodları yapıştırıyoruz.
    4 – Sayfadan çıkarken FİLE – CLOSE AND RETURNE TO MİCROSOFT EXEL ( ALTQ) İLE ÇIKIŞ YAPIYORUZ.
    5 – EXEL E DÖNÜNCE YAZIYA DÖNÜŞMESİNİ İSTEDİĞİMİZ HÜCRE İÇERSİNE ( = yaz ( A1 ) ve enter ….Rakamlar metne dönüşüyor.

Bu konuyla ilgili yorumunuzu yazın