Sözcüklere sayıları dönüştürme

Önemli : Bu makale makine çevisidir. Bkz. yasal uyarı. Bu makalenin İngilizce sürümüne buradan ulaşabilirsiniz.

Excel 2013 ve Excel 2016 sayıları elektronik tablo hücresinde İngilizce sözcükler olarak görüntüleyen bir varsayılan işlevi yoktur, ancak SpellNumber işlevi kodunu bir Modül sayfasına yapıştırarak, bu özelliği ekleyebilirsiniz. Bu işlev, dolar ve Sent tutarları dönüştürmek için sözcükleri sağlar.

Sayısal değerleri sözcükleri METNEÇEVİR işlevini kullanın yerine görüntülemeden için bunları metin biçimine dönüştürmek istiyorsanız.

Bu makalede

Sayılar için sözcükleri dönüştürmek için SpellNumber işlevi oluşturma

  1. Visual Basic Düzenleyicisi'ni açmak için Alt + F11 klavye kısayolunu kullanın.

    Not : Ayrıca Visual Basic Düzenleyicisi Geliştirici sekmesini gösteren , şeritte erişebilirsiniz.

  2. Ekle sekmesini tıklatın ve modülü' nü tıklatın.

    Ekle menüsünde Modül'ı tıklatın.
  3. Şu kod satırlarını kopyalayın.

    Not : Makro işleviolarak da bilinen bu kod numaraları elektronik tablonuzu tamamında metne dönüştürme görevini otomatik hale getirir.

    Açık seçeneği

    ' Ana işlevi

    İşlev SpellNumber (ByVal MyNumber)

    Dolar, Kuruşluk, Temp dim

    GKV ondalık basamak sayısı

    Dize olarak Place(9) reDim

    Place(2) = "Bin"

    Place(3) = "milyon"

    Place(4) = "Milyar"

    Place(5) = "trilyon"

    ' Dize olarak tutar gösterimi.

    MyNumber Trim(Str(MyNumber)) =

    ' Ondalık basamak 0 yoksa konumunu.

    Ondalık basamak InStr = (MyNumber, ".")

    ' Kuruşluk dönüştürme ve MyNumber dolar tutarı ayarlayın.

    Varsa ondalık basamak > 0 sonra

    Kuruşluk GetTens = (sol (Mid (MyNumber, ondalık basamak + 1) & _ "00"; 2))

    MyNumber = Kırp (sol (MyNumber, ondalık basamak - 1))

    End IF

    Count = 1

    While MyNumber <> ""

    Temp GetHundreds = (sağ (MyNumber, 3))

    Varsa Temp <> "" sonra dolar = Temp & Place(Count) & dolar

    Varsa Len(MyNumber) > 3 sonra

    MyNumber = soldan (MyNumber, Len(MyNumber) - 3)

    Else

    MyNumber = ""

    End IF

    Count = Say + 1

    Döngü

    Büyük/küçük harf dolar seçin

    Büyük/küçük harf ""

    Dolar = "ABD Doları"

    Büyük/küçük harf "Tek"

    Dolar = "Bir dolar"

    Büyük/küçük harf başka

    Dolar = dolar & "Dolar"

    Bitiş seçin

    Büyük/küçük harf Kuruşluk seçin

    Büyük/küçük harf ""

    Kuruşluk = "ve Kuruşların yok"

    Büyük/küçük harf "Tek"

    Kuruşluk = "ve bir Sent"

    Büyük/küçük harf başka

    Kuruşluk = "ve" & Kuruşluk & "Kuruşluk"

    Bitiş seçin

    SpellNumber dolar & Kuruşluk =

    Bitiş işlevi

    ' Bir sayı 100-999 arasındaki metne dönüştürür

    İşlev GetHundreds (ByVal MyNumber)

    GKV sonucu dize olarak

    Varsa Val(MyNumber) = 0 sonra çıkış işlevi

    MyNumber = sağdan ("000" & MyNumber, 3)

    ' Yüzler basamağını dönüştürür.

    Eğer Mid (MyNumber, 1, 1) sonra <> "0"

    Sonuç GetDigit (Mid (MyNumber, 1, 1)) = & "yüz"

    End IF

    ' Onlar ve birler yeri dönüştürün.

    Eğer Mid (MyNumber, 2, 1) sonra <> "0"

    Sonuç sonuç & GetTens (Mid (MyNumber, 2)) =

    Else

    Sonuç sonuç & GetDigit (Mid (MyNumber, 3)) =

    End IF

    GetHundreds sonuç =

    Bitiş işlevi

    ' Bir sayının 10-99 metne dönüştürür.

    GetTens(TensText) işlevi

    GKV sonucu dize olarak

    Sonuç = "" ' geçici işlev değerini yoksayın.

    Varsa Val (Left (TensText, 1)) = 1 sonra ' varsa değerini 10-19 arasında...

    Büyük/küçük harf Val(TensText) seçin

    Büyük/küçük harf 10: Sonuç = "On"

    Büyük/küçük harf 11: Sonuç = "On"

    Büyük/küçük harf 12: Sonuç = "On iki"

    Büyük/küçük harf 13: Sonuç = "On üç"

    Büyük/küçük harf 14: Sonuç = "On dört"

    Büyük/küçük harf 15: Sonuç = "On beş"

    Büyük/küçük harf 16: Sonuç = "On altı"

    Büyük/küçük harf 17: Sonuç = "On yedi"

    Büyük/küçük harf 18: Sonuç = "On sekiz"

    Büyük/küçük harf 19: Sonuç = "On dokuz"

    Büyük/küçük harf başka

    Bitiş seçin

    Başka ' varsa 20-99 arasında değer...

    Büyük/küçük harf Val seçin (sol (TensText, 1))

    Büyük/küçük harf 2: Sonuç = "Yirmi"

    Büyük/küçük harf 3: Sonuç "Otuz" =

    Büyük/küçük harf 4: Sonuç = "Kırk"

    Büyük/küçük harf 5: Sonuç = "Elli"

    Büyük/küçük harf 6: Sonuç = "Altmış"

    Büyük/küçük harf 7: Sonuç "Yetmiş" =

    Büyük/küçük harf 8: Sonuç "Seksen" =

    Büyük/küçük harf 9: Sonuç = "Doksan"

    Büyük/küçük harf başka

    Bitiş seçin

    Sonuç = sonuç & GetDigit _

    (Sağ (TensText, 1)) ' Birler basamağını Al.

    End IF

    GetTens sonuç =

    Bitiş işlevi

    ' Bir sayı 1'den 9 olarak metne dönüştürür.

    GetDigit(Digit) işlevi

    Büyük/küçük harf Val(Digit) seçin

    Büyük/küçük harf 1: GetDigit = "Bir"

    Büyük/küçük harf 2: GetDigit = "İki"

    Büyük/küçük harf 3: GetDigit = "Üç"

    Büyük/küçük harf 4: GetDigit = "Dört"

    Büyük/küçük harf 5: GetDigit = "Beş"

    Büyük/küçük harf 6: GetDigit = "Altı"

    Büyük/küçük harf 7: GetDigit = "Yedi"

    Büyük/küçük harf 8: GetDigit = "Sekiz"

    Büyük/küçük harf 9: GetDigit = "Dokuz"

    Büyük/küçük harf başka: GetDigit = ""

    Bitiş seçin

    Bitiş işlevi

  4. Kod satırlarının yapıştırma Modül1 (kod) kutusu.

    Modül1 içinde yapıştırılan kodu (kod) kutusu.
  5. Dosya' yı tıklatın ve Kapat ve Microsoft Excel uygulamasına dönseçeneğini tıklatın. SpellNumber işlevinin artık kullanılmaya hazırdır.

    Not : Bu işlev, açık yalnızca geçerli Excel dosya için çalışır. Bu işlev Excel başka bir çalışma kitabında kullanmak için o dosyada kodu yapıştırmak için adımları yinelemeniz gerekir.

Sayfanın Başı

Ayrı hücrelerdeki SpellNumber işlevini kullanma

  1. Yazılı sayı görüntülemek için seçim numaranızı ile değer değiştirme istediğiniz hücreye formül SpellNumber =(değer) yazın.

  2. Klavyenizde Enter tuşuna basın.

    Örneğin, =SpellNumber(22.50)yazarsanız, hücre Yirmi iki lira ve elli Kuruşlukokumalısınız.

    İpucu : Sayıları ayrı bir hücre içindeki metne dönüştürmek için sayısal değeri SpellNumber formüldeki hücre başvurusu ile değiştirin. Örneğin, A1 hücresi yazılı değerini görüntülemek için =SpellNumber(A1) yazın.

Sayfanın Başı

SpellNumber işlevi çalışma kitabınızı kaydetme

Excel bir çalışma kitabına makro işlevleri standart makrosuz çalışma kitabı biçiminde kaydedemezsiniz. Dosya ' yı tıklatırsanız > kaydedin. VB proje iletişim kutusunu açar. Hayır' ı tıklatın.

VB proje iletişim kutusunda tıklatın No

Dosyanızı, geçerli biçimiyle dosyanızı tutmak için bir Makro içerebilen Excel şablonu olarak kaydedebilirsiniz.

  1. Dosya > Farklı Kaydet'i tıklatın.

  2. Kayıt türü açılan menüyü tıklatın ve Excel Macro-Enabled Templateseçin.

    Excel makro içerebilen şablonu seçin.
  3. Kaydet'i tıklatın.

Sayfanın Başı

Not : Makine Çevirisi Yasal Uyarısı: Bu makale, insan müdahalesi olmadan bir bilgisayar sistemi tarafından çevrilmiştir. Microsoft bu makine çevirilerini İngilizce bilmeyen kullanıcıların Microsoft ürünleri, hizmetleri ve teknolojileriyle ilgili içeriklerden yararlanmasına yardımcı olmak için sunar. Bu makale makine çevirisi olduğundan sözcük, cümle dizilimi ve gramer hataları içerebilir.

Ayrıca Bkz:

METNEÇEVİR işlevi

Yeteneklerinizi geliştirin
Eğitimleri keşfedin
Yeni özellikleri ilk olarak siz edinin
Office Insider Programına Katılın

Bu bilgi yararlı oldu mu?

Görüşleriniz için teşekkür ederiz!

Geri bildiriminiz için teşekkürler! Office destek temsilcilerimizden biriyle görüşmeniz yararlı olabilir.

×