Skip to main content

Kutools for Office — Bir Paket. Beş Araç. Daha Fazla İş Yapın.

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

Author Sun Last modified

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,AI 🤖 ile donatılmış, görevlerinizi basitleştirmek için 300 üzerinde 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 Verimliliği Araçları

Kutools for Word - Word deneyiminizi 100 dikkate değer özellik ile geliştirin!

🤖 Kutools AI Features: AI Assistant / Real-Time Assistant / Süper Parlat (Biçimi Koru) / Süper Çeviri (Biçimi Koru) / AI Redaksiyon / Yapay Zeka Düzeltme...

📘 Belge Uzmanlığı: Sayfaları Böl / Belgeleri Birleştir / Aralığı PDF/TXT/DOC/HTML gibi çeşitli biçimlerde Dışa Aktar / Toplu PDF Dönüştürme...

✏ Metin Düzenleme: Birden fazla Dosyada Toplu Bul ve Değiştir / Tüm Resimleri Yeniden Boyutlandır / Satırları ve Sütunları Tabloyu Çevir / Tabloyu Metne Dönüştür...

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

➕ Yaratıcı Ekler: Binlik Ayırıcıları Ekle / Onay Kutuları Ekle / Radyo Düğmeleri Ekle / QR Kodu Oluştur / Barkod Oluştur / Birden fazla Resim Ekle / Daha fazlasını Ekle grubunda keşfedin...

🔍 Hassas Seçimler: Belirli Sayfa / Tabloları / Şekilleri / Başlık Paragraflarını tam olarak seçin / Daha fazla Seç özelliği ile gezinmeyi geliştirin...

⭐ Özel Geliştirmeler: Herhangi bir Aralığa Hızla Git / Tekrarlayan Metni Otomatik Ekle / Belge Pencereleri arasında geçiş yap /11 Dönüşüm aracı...

🌍 40+ Dil Desteği: Kutools'u tercih ettiğiniz dilde kullanın – İngilizce, İspanyolca, Almanca, Fransızca, Çince ve40'tan fazla dil destekleniyor!

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

✨ Kutools for Office – Tek kurulumda beş güçlü araç!

Şunları içerir: Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint

📦 Tüm5 araca tek bir pakette sahip olun | 🔗 Microsoft Office ile sorunsuz entegrasyon | ⚡ Zamanı Kaydet ve anında verimliliği artır

En İyi Ofis Verimliliği Araçları

Kutools for Word - 100+ Word için araçlar

Ücretsiz İndir Şimdi Satın Al Kutools hakkında Daha Fazla Bilgi Edinin