KutoolsforOffice — Tek çözüm, beş güçlü araç.Daha az çabayla daha fazlasını başarmak.

Excel'de (2025 Sürümü) Kelimeye Dönüştür ve Diğer Para Birimlerinde Dönüştürme

YazarXiaoyang Değiştirme Tarihi

Excel'de sayıları Hint Rupisi—ya da başka herhangi bir para birimini—nasıl yazıyla ifade edeceğiniz aşağıda açıklanmıştır.

Fatura, teklif, vergi formları, çek veya ödeme bonosu gibi finansal belgelerle çalışırken, para birimi değerlerinin hem sayısal hem de yazılı Word Formatı olarak gösterilmesi genellikle gereklidir. Bu, profesyonellik katmanı ekler ve dolandırıcılığı veya yanlış yorumlamayı önler.

Örnek

12,350,50 → On İki Bin Üç Yüz Elli Rupi ve Elli Paise Yalnızca

Microsoft Excel’in “Kelimeye Dönüştür” için yerleşik bir özelliği olmasa da, bunu VBA, LAMBDA fonksiyonları veya hepsi bir arada Kutools for Excel eklentisiyle gerçekleştirmenin birden fazla etkili yolu vardır.

VBA ile Kelimeye Dönüştür'i Hindistan Rupisi'de Dönüştürün (Tüm Microsoft Sürümleri)

LAMBDA Fonksiyonu ile Kelimeye Dönüştür'i Hindistan Rupisi'de Dönüştürün (Yalnızca Microsoft 365)

Sayıları USD, EUR ve 30+ Diğer Para Birimlerine Dönüştürün (Tüm Microsoft Sürümleri)

Her Yöntemi Ne Zaman Kullanmalı

VBA ile Kelimeye Dönüştür'i Hindistan Rupisi'da Dönüştürün (Tüm Microsoft Sürümleri)

Her Excel sürümü kullanıcısı için VBA (Visual Basic for Applications), sayısal tutarları Hint numaralandırma sistemine (örneğin binler, lakh’lar, crore’lar) göre kelimelere dönüştürmeye yönelik özelleştirilebilir bir yöntem sunar.

Adım 1. VBA düzenleyicisini açmak için ()Alt+F11) tuşlarına basın (Microsoft Visual Basic for Applications penceresi).

vba-editor

Adım 2. Ekle > Modül'e gidin.

modül-seç

Adım 3. VBA kodunu Modül'e yapıştırın.

Hindistan Rupisi'de sayıları kelimelere dönüştürün

Function ConvertToRupees(ByVal MyNumber)
'UpdatebyExtendoffice
    Dim Units As String, SubUnits As String, TempStr As String
    Dim DecimalPlace As Integer, Count As Integer
    Dim Place(9) As String
    Place(2) = " Thousand "
    Place(3) = " Lakh "
    Place(4) = " Crore "
    
    MyNumber = Trim(Str(MyNumber))
    DecimalPlace = InStr(MyNumber, ".")
    
    If DecimalPlace > 0 Then
        SubUnits = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2))
        MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
    End If
    
    Count = 1
    Do While MyNumber <> ""
        TempStr = GetHundreds(Right(MyNumber, 3))
        If TempStr <> "" Then Units = TempStr & Place(Count) & Units
        If Len(MyNumber) > 3 Then
            MyNumber = Left(MyNumber, Len(MyNumber) - 3)
        Else
            MyNumber = ""
        End If
        Count = Count + 1
    Loop
    
    ConvertToRupees = "Rupees " & Application.WorksheetFunction.Trim(Units)
    If SubUnits <> "" Then
        ConvertToRupees = ConvertToRupees & " and " & SubUnits & " Paise"
    End If
    ConvertToRupees = ConvertToRupees & " Only"
End Function

Private Function GetHundreds(ByVal MyNumber)
    Dim Result As String
    If Val(MyNumber) = 0 Then Exit Function
    MyNumber = Right("000" & MyNumber, 3)
    
    If Mid(MyNumber, 1, 1) <> "0" Then
        Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
    End If
    
    If Mid(MyNumber, 2, 1) <> "0" Then
        Result = Result & GetTens(Mid(MyNumber, 2))
    Else
        Result = Result & GetDigit(Mid(MyNumber, 3))
    End If
    GetHundreds = Result
End Function

Private Function GetTens(TensText)
    Dim Result As String
    If Val(Left(TensText, 1)) = 1 Then
        Select Case Val(TensText)
            Case 10: Result = "Ten"
            Case 11: Result = "Eleven"
            Case 12: Result = "Twelve"
            Case 13: Result = "Thirteen"
            Case 14: Result = "Fourteen"
            Case 15: Result = "Fifteen"
            Case 16: Result = "Sixteen"
            Case 17: Result = "Seventeen"
            Case 18: Result = "Eighteen"
            Case 19: Result = "Nineteen"
        End Select
    Else
        Select Case Val(Left(TensText, 1))
            Case 2: Result = "Twenty "
            Case 3: Result = "Thirty "
            Case 4: Result = "Forty "
            Case 5: Result = "Fifty "
            Case 6: Result = "Sixty "
            Case 7: Result = "Seventy "
            Case 8: Result = "Eighty "
            Case 9: Result = "Ninety "
        End Select
        Result = Result & GetDigit(Right(TensText, 1))
    End If
    GetTens = Result
End Function

Private Function GetDigit(Digit)
    Select Case Val(Digit)
        Case 1: GetDigit = "One"
        Case 2: GetDigit = "Two"
        Case 3: GetDigit = "Three"
        Case 4: GetDigit = "Four"
        Case 5: GetDigit = "Five"
        Case 6: GetDigit = "Six"
        Case 7: GetDigit = "Seven"
        Case 8: GetDigit = "Eight"
        Case 9: GetDigit = "Nine"
        Case Else: GetDigit = ""
    End Select
End Function
kodu-yapıştır

Adım 4. Kaydedin ve Excel’e geri dönün.

Adım 5. Bir hücre seçin ve formülü aşağıdaki gibi kullanın:

=ConvertToRupees(A2)

Enter tuşuna basın.

formül-kullan

💡İpucu: Bu yöntem ondalık değerleri (Paise) destekler ve çevrimdışı olarak da çalışır.

VBA Kullanmanın Sınırlamaları

  • Çalışma kitabının makro etkinleştirilmiş bir dosya (.xlsm) olarak kaydedilmesini gerektirir.
  • Bazı ortamlarda güvenlik ayarları, makroları engelleyebilir.

Diğer Para Birimlerinde (Kelimeye Dönüştür USD, EUR vb.) Dönüştürün

Çıktıyı "Dolar" veya "Euro" gibi diğer para birimleri için özelleştirmek istiyorsanız, VBA fonksiyonundaki dize değerlerini kolayca ayarlayabilirsiniz. İşte daha esnek ve sadeleştirilmiş bir fonksiyon sürümü:

Esnek VBA Kodu Şablonu (Özel Para Birimi)

'UpdatebyExtendoffice
Public Function NumberToWordsCustom(ByVal num As Double, Optional ByVal currency2 As String, Optional ByVal subCurrency As String) As String
    Dim result As String
    Dim dollars As Long
    Dim cents As Long

    dollars = Int(num)
    cents = Round((num - dollars) * 100)
  
    If Len(currency2) = 0 Then currency2 = "Dollars"
    If Len(subCurrency) = 0 Then subCurrency = "Cents"
    result = currency2 & " " & SpellNumber_English(dollars)

    If cents > 0 Then
        result = result & " and " & SpellNumber_English(cents) & " " & subCurrency
    End If

    NumberToWordsCustom = result & " Only"
End Function

Private Function SpellNumber_English(ByVal MyNumber As Long) As String
    Dim Units As Variant, Tens As Variant, Teens As Variant
    Dim Place() As String
    Dim TempStr As String
    Dim Count As Integer
    Dim t As String
    Dim StrNumber As String
    Dim n As Integer

    Place = Split(" Thousand Million Billion", " ")
    Units = Array("", "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine")
    Tens = Array("", "", "Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninety")
    Teens = Array("Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", "Seventeen", "Eighteen", "Nineteen")

    StrNumber = Trim(Str(MyNumber))
    Count = 0

    Do While StrNumber <> ""
        n = Val(Right(StrNumber, 3))
        If n <> 0 Then
            t = ConvertHundreds(n, Units, Tens, Teens)
            If Count > 0 Then t = t & " " & Place(Count - 1)
            TempStr = t & " " & TempStr
        End If
        If Len(StrNumber) > 3 Then
            StrNumber = Left(StrNumber, Len(StrNumber) - 3)
        Else
            StrNumber = ""
        End If
        Count = Count + 1
    Loop

    SpellNumber_English = Trim(TempStr)
End Function

Private Function ConvertHundreds(ByVal n As Integer, Units As Variant, Tens As Variant, Teens As Variant) As String
    Dim result As String
    If n >= 100 Then
        result = Units(Int(n / 100)) & " Hundred "
        n = n Mod 100
    End If
    If n >= 20 Then
        result = result & Tens(Int(n / 10)) & " "
        n = n Mod 10
    ElseIf n >= 10 Then
        result = result & Teens(n - 10) & " "
        n = 0
    End If
    If n > 0 Then
        result = result & Units(n)
    End If
    ConvertHundreds = Trim(result)
End Function

Örnek VBA Formülü:

=NumberToWordsCustom(A2, "Dollars", "Cents")
vba-formülü-diğer-döviz

Diğer Para Birimi İçin Örnek VBA Formülü:

=NumberToWordsCustom(A2, "Euros", "Cents")

=NumberToWordsCustom(A2, "Pounds", "Pence")

Kod esnektir—istediğiniz para birimi ve alt birimini kolayca iletebilirsiniz.

Çalışma Kitabınızı Makro Etkinleştirilmiş Dosya Olarak Kaydedin

VBA kullanıyorsanız, çalışma kitabınızı mutlaka makrolar etkinleştirilmiş şekilde kaydetmelisiniz; aksi takdirde dosya kapatıldığında kodunuz kaybolur.

Adım 1. Dosya>Farklı Kaydet

farklı-kaydet-kullan

Adım 2. Bir konum seçin ve Dosya Türü olarak Excel Makro Etkinleştirilmiş Çalışma Kitabı (*.xlsm) seçeneğini belirleyin.

makro-etkin-farklı-kaydet-kullan

Adım 3. Kaydet'e tıklayın.

✅ =ConvertToRupees(A2) gibi özel fonksiyonlarınız artık kalıcı olacak ve istediğiniz zaman yeniden kullanılabilecek.

LAMBDA Fonksiyonu ile Kelimeye Dönüştür'i Hindistan Rupisi'de Dönüştürün (Yalnızca Microsoft 365)

Excel 365 kullanıcıları, VBA'ya gerek kalmadan özel formüller tanımlamanıza olanak tanıyan yeni Excel özelliği LAMBDA'yı kullanabilir.

🪄 LAMBDA nedir?

LAMBDA, Excel'de SUM veya IF gibi yerleşik fonksiyonlarla aynı şekilde formüller kullanarak kendi özel fonksiyonlarınızı oluşturmanıza olanak tanıyan, ancak kod veya makro gerektirmeyen güçlü bir özelliktir. Tekrarlayan mantığı basitleştirmek ve elektronik tablolarınızı daha temiz, okunaklı ve sürdürülebilir hale getirmek için mükemmeldir.

Adım 1: Formüller > Ad Yöneticisi'ne gidin ve tıklayın.

ad-yöneticisini-seç

Adım 2: Bir Yeni Ad oluşturun.

  • Yeni düğmesine tıklayın.

    yeni-ad-oluştur

  • Bir Ad girin.

    Örnek: RupeeToWords

    ad-oluştur

  • Adım 3: Bu LAMBDA formülünü Şuna başvururalanına yapıştırın:

    =LAMBDA(n, LET( units, {"","One","Two","Three","Four","Five","Six","Seven","Eight","Nine"}, teens, {"Ten","Eleven","Twelve","Thirteen","Fourteen","Fifteen","Sixteen","Seventeen","Eighteen","Nineteen"}, tens, {"","","Twenty","Thirty","Forty","Fifty","Sixty","Seventy","Eighty","Ninety"}, num, INT(n), paise, ROUND((n - INT(n)) * 100, 0), ConvertTwo, LAMBDA(x, IF(x0, " " &, INDEX(units, MOD(x,10)+1), "") ) ) ), ConvertThree, LAMBDA(x, IF(x=0, "", IF(x0, " " & ConvertTwo(MOD(x,100)), "") ) ) ), words, IF(num=0, "Zero", TEXTJOIN(" ", TRUE, IF(INT(num/10000000)>0, ConvertTwo(INT(num/10000000)) & " Crore", ""), IF(MOD(INT(num/100000),100)>0, ConvertTwo(INT(MOD(num,10000000)/100000)) & " Lakh", ""), IF(MOD(INT(num/1000),100)>0, ConvertTwo(INT(MOD(num,100000)/1000)) & " Thousand", ""), IF(MOD(INT(num/100),10)>0, INDEX(units, INT(MOD(num,1000)/100)+1) & " Hundred", ""), IF(MOD(num,100)>0, ConvertTwo(MOD(num,100)), "") ) ), result, "Rupees " & words & IF(paise>0, " and " & ConvertTwo(paise) & " Paise", "") & " Only", result ))
    • lambda-fonksiyonunu-yapıştır

  • Yeni adla kaydetmek için Tamam'a tıklayın.

Adım 3. Ad Yöneticisi'yi kapatın ve Excel'e geri dönün.

Adım 4. Formülü herhangi bir hücrede şu şekilde kullanın:

=RupeeToWords(A2)

Tuşuna basın Enter.

lambda-formülünü-kullan

👀 Tam LAMBDA fonksiyonu kodu, Crore'ları, Lakh'ları, Binleri ve ondalık değerleri işler.

Sayıları USD, EUR ve 30+ Diğer Para Birimlerine Dönüştürün (Tüm Microsoft Sürümleri)

En verimli ve profesyonel çözüm için Kutools for Excel'in Kelimeye Dönüştür özelliğini kullanın. Bu güçlü araç şunları destekler:

🌍 30'den fazla para birimi, şunlar dahil:

  • ABD Doları (USD)
  • Euro (EUR)
  • Çin Yuanı (CNY)
  • İngiliz Sterlini (GBP)
  • vb.
İndir

Adım 1. Dönüştürmek istediğiniz hücreleri seçin.

hücreleri-seç

Adım 2. Kutools>İçerik>Kelimeye Dönüştür

sayıları-kelimeye-seç

Adım 3. Hedef para biriminizi seçin ve Tamam'a tıklayın.

iletişim-kutusunda-döviz-seç

Sayılar belirtilen para birimine dönüştürülür.

kutools-dönüştürme-sonucu

😁İpucu: Kelimeye Dönüştür'yi doğrudan dönüştürmek istiyorsanız, Para birimine dönüştürme seçeneğini işaretleyin; sonuç şu şekilde gösterilecektir:

kelimelere-dönüştür

Her Yöntemi Ne Zaman Kullanmalı

  • Esnek, programlanabilir bir çözüme ihtiyacınız varsa ve makrolara aşinaysanız VBA kullanın.

  • Excel 365 kullanıyorsanız ve sadece ara sıra Hindistan Rupisi değerlerini dönüştürmeniz gerekiyorsa, LAMBDA’yı tercih edin. Bu, hafif, paylaşılabilir ve makro ya da harici araç gerektirmeyen basit veya kişisel görevler için ideal bir çözümdür.
  • En kolay, en hızlı ve en çok yönlü çözümü arıyorsanız, kodlamaya gerek kalmadan Kutools for Excel’i kullanın! Kutools özellikle şu durumlarda büyük fayda sağlar:
    • Birden fazla para birimiyle mi uğraşıyorsunuz?
    • Değerleri toplu olarak veya büyük veri kümelerinde dönüştürmeniz gerekiyor.
    • Makro içermeyen, profesyonel düzeyde ve 30’dan fazla para birimi seçeneği sunan yapay zekâ destekli yüksek performanslı bir araca mı ihtiyacınız var?

En İyi Office Üretkenlik Araçları

🤖KUTOOLS AI Yardımcısı: Şunu temel alarak Veri Analizi’i devrimleştirin:Akıllı Yürütme   |  Kod Oluştur|  özel formüller Oluştur  |  Verileri Analiz Et ve Grafikler Oluştur|  Geliştirilmiş İşlevler Çağır…
Popüler Özellikler:Bul, Vurgula veya Yinelenenleri İşaretle   |  Boş Satırları Sil   |  Veri Kaybetmeden Sütunları Birleştir veya Hücreleri   |   Formül kullanmadan yuvarlama…
Süper ARA:Çoklu Kriterli Dikey Arama (VLookup)  |  Çoklu Değerli Dikey Arama (VLookup)  |   Birden Fazla Sayfada Dikey Arama (VLookup)   |   Bulanık Eşleme…
Gelişmiş Açılır Liste:Açılır Liste Hızlıca Oluştur   |  Bağımlı Açılır Liste   |  Çoklu Seçimli Açılır Liste…
Sütun Yöneticisi:Belirli Sayıda Sütun Ekle|Sütunları Taşı|Gizli Sütunların Görünürlük Durumunu Aç/Kapat|Aralıkları ve Sütunları Karşılaştır…
Öne Çıkan Özellikler:Izgara Odaklama   |  Tasarım Görünümü   |Gelişmiş formül çubuğu   | Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynaklar(Otomatik Metin)|  Tarih Seçici   |  Çalışma Sayfalarını Birleştir  |  Şifrele/Hücreleri Şifre Çöz   | Listeye Göre E-posta Gönder   |  Süper Filtre   |   Özel Filtre(Kalın Yazılı Hücreleri Filtrele/italik/üstü çizili…) …
En İyi 15 Araç Setleri:12 MetinAraçları(Metin Ekle,Belirli Karakterleri Sil, …)|   50+GrafikTürleri(Gantt Grafiği, …)|   40+ Pratik Formüller(Doğum tarihine dayanarak yaş hesapla, …)|   19 EklemeAraçları(QR Kodu Ekle,Yoldan Resim Ekle, …)|   12 DönüştürmeAraçları(Kelimeye Dönüştür,Döviz Kuru Dönüşümü, …)|   7 Birleştir ve AyırAraçları(Gelişmiş Satırları Birleştir,Hücreleri Böl, …)|… ve daha fazlası
Kutools’u tercih ettiğiniz dilde kullanın – İngilizce, İspanyolca, Almanca, Fransızca, Çince ve 40+ diğer dillerde desteklenir!

Excel becerilerinizi Kutools for Excel ile güçlendirin ve hiç yaşanmamış bir verimlilik deneyimi yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…

Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.

  • Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
  • Birden fazla belgeyi yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açın ve oluşturun.
  • Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!

Tüm Kutools eklentileri, tek bir yükleyiciyle!

Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint için eklentileri ile birlikte Office Tab Pro’yu da içerir; bu da Office uygulamalarında çalışan ekipler için idealdir.

ExcelWordOutlookTabsPowerPoint
  • Hepsi-bir-arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
  • Tek yükleyici, tek lisans— birkaç dakikada kurulum (MSI uyumlu)
  • Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
  • 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
  • En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf edin