Skip to main content

Word belgesinde sayıları kelimelere nasıl dönüştürürüm?

Author: Sun Last Modified: 2025-06-10

Bu makale, Word belgesindeki sayıları İngilizce kelimelere dönüştürme yönteminden bahsediyor. İlginizi çekiyorsa lütfen devam edin ve ayrıntıları görüntüleyin.

VBA ile sayıları İngilizce kelimelere dönüştürme

Excel'de Kutools for Excel ile sayıları İngilizce kelimelere dönüştürme


VBA ile sayıları İngilizce kelimelere dönüştürme

1. Kelimeye dönüştürmek istediğiniz sayıyı seçin ve Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.

2. Ekle > Modül'e tıklayın ve aşağıdaki kodları kopyalayıp Modül betiğine yapıştırın.

VBA: Sayıyı kelimeye dönüştürme

Sub ConvertNumberToWord()
'UpdatebyExtendoffice20181010
    Dim xDigit As Double
    Dim xBuff As String
    On Error Resume Next
    Selection.MoveLeft wdWord, 1, wdMove
    Selection.MoveRight wdWord, 1, wdExtend
    xDigit = Val(Trim(Selection.Text))
    If xDigit = 0 And Str(xDigit) <> Trim(Selection.Text) Then Exit Sub
    If xDigit > 999999 Then
        If xDigit <= 999999999 Then
            xBuff = Trim(Int(Str(xDigit / 1000000)))
            Selection.Fields.Add Selection.Range, wdFieldEmpty, "= " + xBuff + " \* CardText", True
            Selection.MoveLeft wdWord, 1, wdExtend
            xBuff = Selection.Text & " million "
            xDigit = Right(Str(xDigit), 6)
        End If
    End If
    If xDigit <= 999999 Then
        Selection.Fields.Add Selection.Range, wdFieldEmpty, "= " + Str(xDigit) + " \* CardText", True
        Selection.MoveLeft wdWord, 1, wdExtend
        xDigit = xBuff & Selection.Text
        Selection.TypeText xDigit + " "
    Else
        MsgBox "Number too large", vbOKOnly, "Kutool for Word"
    End If
End Sub

3. Kodu çalıştırmak için F5 tuşuna basın, şimdi sayı kelimelere dönüştürülmüştür.
Number converted to English words

Not: Kod aynı anda yalnızca bir sayı için çalışır.


Kutools for Excel ile sayıları İngilizce kelimelere dönüştürme

Eğer Excel çalışma sayfasında sayıları kelimelere dönüştürmek istiyorsanız, Kutools for Excel'in Numbers to Words adlı kullanışlı bir aracı vardır. Bu araç, sayıları İngilizce veya Çince kelimelere ya da İngilizce para birimine veya Çin para birimine dönüştürebilir.

Kutools for Excel,yapay zeka 🤖 ile donatılmış, görevlerinizi basitleştirmek için 300'den fazla kullanışlı özellik sunar.

ücretsiz yükledikten sonra Kutools for Excel'i lütfen aşağıdaki adımları izleyin:

1. Sayıları kelimelere dönüştürmek istediğiniz hücreleri seçin ve ardından Kutools > Metin > Numbers to Words.
Numbers to Words option on the Kutools tab on the Excel ribbon

2. Açılan diyalog kutusunda İngilizce ve Para birimine dönüştürme seçeneklerini işaretleyin.
Numbers to Words dialog box

3. Tamam veya Uygula'ya tıklayın, seçilen sayılar kelimelere dönüştürülecektir.

En İyi Ofis Verimlilik Araçları

Kutools for Word - Word Deneyiminizi 100’den Fazla Olağanüstü Özellik ile Zirveye Taşıyın!

🤖 Kutools AI Özellikleri: Yapay Zeka Asistanı / Gerçek Zamanlı Asistan / Süper Parlat (Biçimi Koru) / Süper Çeviri (Biçimi Koru) / AI Redaksiyon / Yapay Zeka Düzeltme...

📘 Belge Ustalığı: Sayfaları Böl / Belgeleri Birleştir / Seçimi Farklı Formatlarda Dışa Aktar (PDF/TXT/DOC/HTML...) / Toplu PDF’ye Dönüştür...

İçerik Düzenleme: Birden Fazla Dosyada Toplu Bul ve Değiştir / Tüm Resimleri Yeniden Boyutlandır / Tablo Satır ve Sütunlarını Çevir / Tabloyu Metne Dönüştür...

🧹 Zahmetsiz Temizlik: Fazla Boşlukları / Bölüm Sonlarını / Metin Kutularını / Bağlantıları Kolayca Temizleyin. Daha fazla kaldırma aracı için Kaldır grubuna göz atın...

Yaratıcı Ekleme: Binlik Ayraçları Ekle / Onay Kutuları Ekle / Radyo Düğmeleri Ekle / QR Kodu / Barkod / Birden Fazla Resim / Ekle grubunda daha fazlasını keşfedin...

🔍 Hassas Seçimler: Belirli Sayfaları / Tabloları / Şekilleri / Başlık Paragraflarını Hedefleyin; daha fazla Seç özelliğiyle gezinmeyi geliştirin...

Yıldız Geliştirmeler: Herhangi Bir Konuma Hızla Git / Tekrarlayan Metni Otomatik Ekle / Belge Pencereleri Arasında Geçiş Yap /11 Dönüştürme Aracı...

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Bu özellikleri denemek ister misiniz? Kutools for Word’u hemen indirin! 🚀