Word’de Küçük harf para birimini büyük harfe dönüştür Dönüştürme (Toplu) — İngilizce ve Çince

Word’de sayıları para birimi kelimelerine dönüştürmeniz mi gerekiyor—faturalar, sözleşmeler veya çeklerde tutarların yazıyla görünmesi için? Yalnız değilsiniz: Word, özellikle belgenizde birden fazla tutar varsa, para değerlerini toplu olarak yazıya dökmek için basit bir yerleşik çözüm sunmaz.

Aşağıda bunu gerçekleştirmenin iki güvenilir yolu verilmiştir:(1) bir Excel “otomatik” iş akışı (VBA ile para birimi kelimeleri oluşturup Word’e kopyalayın — daha fazla kurulum gerektirir ve daha yavaştır) ve (2) daha hızlı, birkaç tıkla Word yöntemi (Kutools for Word kullanarak; Word içinde kalmak ve birden fazla tutarı aynı anda dönüştürmek istediğinizde en iyisidir).

💡 Hızlı Gezinme:

• “Para Birimi Kelimeleri” Ne Anlama Gelir? (Örneklerle)
• Yöntem 1 — Excel’de: VBA ile Para Birimi Kelimelerine Dönüştürün ve Word’e kopyalayın
• Yöntem 2 — Word’de: Kutools for Word ile Para Birimi Kelimelerine Dönüştürmek İçin Tek Tık
  • Sayıları İngilizce para birimi yazılarına dönüştür (toplu)
  • Sayıları Çince para birimi yazılarına dönüştür (toplu)
• Excel ile Kutools Karşılaştırması
• Sorun Giderme
• SSS

“Para Birimi Kelimeleri” Ne Anlama Gelir? (Örneklerle)

«Para birimi kelimeleri», sayısal tutarları yazıyla ifade edilmiş biçime dönüştürmek anlamına gelir; örneğin:1234,56 → «Bin İki Yüz Otuz Dört Dolar ve Elli Altı Sent». Bu uygulama, sözleşmelerde, faturalarda, çeklerde, satın alma siparişlerinde ve geri ödeme belgelerinde yaygın olarak kullanılır.

Yöntem 1 — Excel’de: VBA ile Para Birimi Kelimelerine Dönüştür + Word’e Kopyala-yapıştır

Bu iş akışı, tutarlarınız zaten bir elektronik tabloda yer alıyorsa ve yalnızca para birimi kelimelerinin Excel’de oluşturulup ardından Word’e kopyalanmasını saniyeler içinde istiyorsanız son derece kullanışlıdır.

Adım 1 — Excel tablonuzu hazırlayın

1. Excel’de aşağıdaki gibi bir tablo oluşturun: Tutar (sayılar) ve TutarKelimeyle (otomatik oluşturulacak).
2. Tutarların metin değil, düzgün sayı olduğundan emin olun. Gerekirse öncelikle bunları Metinden Sayıya dönüştürün.
   

Adım 2 — Küçük harf para birimini büyük harfe dönüştür değerini dönüştürmek için bir VBA işlevi (UDF) ekleyin

1. Excel’de VBA düzenleyicisini açmak için Alt + F11 tuşlarına basın.
2. Tıklayın: Ekle > Modül.
3. Aşağıdaki VBA kodunu bir modüle yapıştırın.
4. Dosyayı makrolu çalışma kitabı olarak .xlsm uzantısıyla kaydedin.

Option Explicit
'Updated by Extendoffice 2026/2/10
Public Function CurrencyWordsUSD(ByVal Amount As Double) As String
    Dim Dollars As Long
    Dim Cents As Long
    Dim sDollars As String
    Dim sCents As String

    If Amount < 0 Then
        CurrencyWordsUSD = "Minus " & CurrencyWordsUSD(Abs(Amount))
        Exit Function
    End If

    Dollars = Fix(Amount)
    Cents = Round((Amount - Dollars) * 100, 0)

    sDollars = NumberToWords(Dollars) & IIf(Dollars = 1, " Dollar", " Dollars")
    sCents = NumberToWords(Cents) & IIf(Cents = 1, " Cent", " Cents")

    If Cents = 0 Then
        CurrencyWordsUSD = sDollars
    Else
        CurrencyWordsUSD = sDollars & " and " & sCents
    End If
End Function

Private Function NumberToWords(ByVal n As Long) As String
    If n = 0 Then
        NumberToWords = "Zero"
        Exit Function
    End If

    NumberToWords = Trim_(ToWords(n))
End Function

Private Function ToWords(ByVal n As Long) As String
    Dim Units As Variant, Tens As Variant
    Units = Array("", "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine", _
                  "Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", "Seventeen", "Eighteen", "Nineteen")
    Tens = Array("", "", "Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninety")

    Select Case n
        Case 0 To 19
            ToWords = Units(n)
        Case 20 To 99
            ToWords = Tens(Int(n / 10)) & IIf(n Mod 10 > 0, "-" & Units(n Mod 10), "")
        Case 100 To 999
            ToWords = Units(Int(n / 100)) & " Hundred" & IIf(n Mod 100 > 0, " " & ToWords(n Mod 100), "")
        Case 1000 To 999999
            ToWords = ToWords(Int(n / 1000)) & " Thousand" & IIf(n Mod 1000 > 0, " " & ToWords(n Mod 1000), "")
        Case 1000000 To 999999999
            ToWords = ToWords(Int(n / 1000000)) & " Million" & IIf(n Mod 1000000 > 0, " " & ToWords(n Mod 1000000), "")
        Case Else
            ToWords = ToWords(Int(n / 1000000000)) & " Billion" & IIf(n Mod 1000000000 > 0, " " & ToWords(n Mod 1000000000), "")
    End Select
End Function

Private Function Trim_(ByVal s As String) As String
    Trim_ = Application.WorksheetFunction.Trim(s)
End Function

Adım 3 — Birden fazla sayıyı (toplu olarak) dönüştürmek için aşağı doğru doldurun

1. TutarKelimeyle sütununa şunu girin: =CurrencyWordsUSD(A2) (hücre referansını kendi sayfanıza göre ayarlayın).
   
2. Tüm satırları doldurmak için aşağı doğru sürükleyin.
   
3. İsteğe bağlı (önerilir): TutarKelimeyle sütununu kopyalayın ve sonuçları sabitlemek için Değerler olarak yapıştırın.
   

Adım 4 — Sonuçları Word’e getirin (hızlı kopyala-yapıştır)

1. Excel’de gerekli Tutar ve TutarKelimeyle hücrelerini seçin, ardından Ctrl + C tuşlarına basın.
2. Word’de sonuçların görünmesini istediğiniz yere tıklayın, ardından Ctrl + V tuşlarına basın.
   

Yöntem 2 — Word’te: Kutools for Word ile Para Birimi Kelimelerine Tek Tıkla Dönüştürme

Word’ten başlayan en kolay iş akışı için Kutools for Word, iki özel komut sunar: Sayıları İngilizce Para Birimi Kelimelerine Dönüştür ve Sayıları Çince Para Birimi Kelimelerine Dönüştür. Tek bir tıklamayla, küçük harfle yazılmış para birimi değerlerini doğrudan belgenizde büyük harfe dönüştürebilirsiniz.

Sayıları İngilizce para birimi yazılarına dönüştür (toplu)

Resmi web sitesinden Kutools for Word’u indirip yükledikten sonraaşağıdakileri yapın:

1. Word’de dönüştürmek istediğiniz sayıları içeren metni seçin.

   İpucu: Hiçbir şey seçmezseniz, aracı tüm belgeye uygulayabilirsiniz.

2. Tıklayın: Kutools > Ekle > Sayıları İngilizce Para Birimi Kelimelerine Dönüştür.
   

Sonuç: Kutools, seçili içerikteki (veya tüm belge boyunca) sayıları anında İngilizce para birimi kelimelerine dönüştürür.

Sayıları Çince para birimi yazılarına dönüştür (toplu)

Resmi web sitesinden Kutools for Word’u indirip yükledikten sonraaşağıdakileri yapın:

1. Word’de, Çince para birimi kelimelerine dönüştürmek istediğiniz sayıları içeren metni seçin.

   İpucu: Hiçbir şey seçmezseniz, araç sayıları tüm belgede dönüştürür.

2. Tıklayın: Kutools > Ekle > Sayıları Çince Para Birimi Kelimelerine Dönüştür.
   

Sonuç: Kutools, seçili içerikteki (veya tüm belge boyunca) sayıları anında Çince para birimi kelimelerine dönüştürür.

Excel ile Kutools Karşılaştırması

Özet: Word’ten başlayan en hızlı iş akışını elde etmek için, birden fazla tutarı birkaç tıklamayla (seçili metin ya da tüm belge) para birimi kelimelerine dönüştürmek üzere Kutools for Word kullanın. Yalnızca Excel’de çalışıyorsanız ve ek kurulumdan kaçınıyorsanız, Excel VBA’yı tercih edin.

Sorun Giderme

SSS