Skip to main content

Excel'de Hindistan rupisi cinsinden sayıları kelimelere nasıl dönüştürürüm?

Author: Xiaoyang Last Modified: 2025-06-10

Sayıları kelimelere dönüştürmek, özellikle fatura veya çek gibi finansal belgeler hazırlarken yaygın bir gereksinimdir. Excel'in sayıları kelimelere dönüştürmek için yerleşik bir işlevi olmasa da, bunu VBA kullanarak gerçekleştirebilirsiniz. İşte Hindistan rupisi veya başka bir para biriminde sayıları kelimelere dönüştürmek için adım adım bir kılavuz.

VBA kodu ile Hindistan rupisi cinsinden sayıları kelimelere dönüştürme

Harika bir özellik ile İngilizce dolar veya diğer para birimlerinde sayıları kelimelere dönüştürme


VBA kodu ile Hindistan rupisi cinsinden sayıları kelimelere dönüştürme

Aşağıdaki VBA kodu, sayıları rupi cinsinden kelimelere dönüştürmenize yardımcı olabilir, lütfen şu adımları izleyin:

1. "Microsoft Visual Basic for Applications" penceresini açmak için "ALT" + "F11" tuşlarını basılı tutun.

2. "Ekle" > "Modül" seçeneğine tıklayın ve aşağıdaki kodu "Modül" Penceresine yapıştırın.

VBA kodu: Rupi cinsinden sayıları kelimelere dönüştürme

Public Function RupeeFormat(SNum As String)
'Updateby Extendoffice
Dim xDPInt As Integer
Dim xArrPlace As Variant
Dim xRStr_Paisas As String
Dim xNumStr As String
Dim xF As Integer
Dim xTemp As String
Dim xStrTemp As String
Dim xRStr As String
Dim xLp As Integer
xArrPlace = Array("", "", " Thousand ", " Lacs ", " Crores ", " Trillion ", "", "", "", "")
On Error Resume Next
If SNum = "" Then
  RupeeFormat = ""
  Exit Function
End If
xNumStr = Trim(str(SNum))
If xNumStr = "" Then
  RupeeFormat = ""
  Exit Function
End If

xRStr = ""
xLp = 0
If (xNumStr > 999999999.99) Then
    RupeeFormat = "Digit excced Maximum limit"
    Exit Function
End If
xDPInt = InStr(xNumStr, ".")
If xDPInt > 0 Then
    If (Len(xNumStr) - xDPInt) = 1 Then
       xRStr_Paisas = RupeeFormat_GetT(Left(Mid(xNumStr, xDPInt + 1) & "0", 2))
    ElseIf (Len(xNumStr) - xDPInt) > 1 Then
       xRStr_Paisas = RupeeFormat_GetT(Left(Mid(xNumStr, xDPInt + 1), 2))
    End If
        xNumStr = Trim(Left(xNumStr, xDPInt - 1))
    End If
    xF = 1
    Do While xNumStr <> ""
        If (xF >= 2) Then
            xTemp = Right(xNumStr, 2)
        Else
            If (Len(xNumStr) = 2) Then
                xTemp = Right(xNumStr, 2)
            ElseIf (Len(xNumStr) = 1) Then
                xTemp = Right(xNumStr, 1)
            Else
                xTemp = Right(xNumStr, 3)
            End If
        End If
        xStrTemp = ""
        If Val(xTemp) > 99 Then
            xStrTemp = RupeeFormat_GetH(Right(xTemp, 3), xLp)
            If Right(Trim(xStrTemp), 3) <> "Lac" Then
            xLp = xLp + 1
            End If
        ElseIf Val(xTemp) <= 99 And Val(xTemp) > 9 Then
            xStrTemp = RupeeFormat_GetT(Right(xTemp, 2))
        ElseIf Val(xTemp) < 10 Then
            xStrTemp = RupeeFormat_GetD(Right(xTemp, 2))
        End If
        If xStrTemp <> "" Then
            xRStr = xStrTemp & xArrPlace(xF) & xRStr
        End If
        If xF = 2 Then
            If Len(xNumStr) = 1 Then
                xNumStr = ""
            Else
                xNumStr = Left(xNumStr, Len(xNumStr) - 2)
            End If
       ElseIf xF = 3 Then
            If Len(xNumStr) >= 3 Then
                 xNumStr = Left(xNumStr, Len(xNumStr) - 2)
            Else
                xNumStr = ""
            End If
        ElseIf xF = 4 Then
          xNumStr = ""
    Else
        If Len(xNumStr) <= 2 Then
        xNumStr = ""
    Else
        xNumStr = Left(xNumStr, Len(xNumStr) - 3)
        End If
    End If
        xF = xF + 1
Loop
    If xRStr = "" Then
       xRStr = "No Rupees"
    Else
       xRStr = " Rupees " & xRStr
    End If
    If xRStr_Paisas <> "" Then
       xRStr_Paisas = " and " & xRStr_Paisas & " Paisas"
    End If
    RupeeFormat = xRStr & xRStr_Paisas & " Only"
    End Function
Function RupeeFormat_GetH(xStrH As String, xLp As Integer)
Dim xRStr As String
If Val(xStrH) < 1 Then
    RupeeFormat_GetH = ""
    Exit Function
Else
   xStrH = Right("000" & xStrH, 3)
   If Mid(xStrH, 1, 1) <> "0" Then
        If (xLp > 0) Then
         xRStr = RupeeFormat_GetD(Mid(xStrH, 1, 1)) & " Lac "
        Else
         xRStr = RupeeFormat_GetD(Mid(xStrH, 1, 1)) & " Hundred "
        End If
    End If
    If Mid(xStrH, 2, 1) <> "0" Then
        xRStr = xRStr & RupeeFormat_GetT(Mid(xStrH, 2))
    Else
        xRStr = xRStr & RupeeFormat_GetD(Mid(xStrH, 3))
    End If
End If
    RupeeFormat_GetH = xRStr
End Function
Function RupeeFormat_GetT(xTStr As String)
    Dim xTArr1 As Variant
    Dim xTArr2 As Variant
    Dim xRStr As String
    xTArr1 = Array("Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", "Seventeen", "Eighteen", "Nineteen")
    xTArr2 = Array("", "Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninety")
    Result = ""
    If Val(Left(xTStr, 1)) = 1 Then
        xRStr = xTArr1(Val(Mid(xTStr, 2, 1)))
    Else
        If Val(Left(xTStr, 1)) > 0 Then
            xRStr = xTArr2(Val(Left(xTStr, 1)) - 1)
        End If
        xRStr = xRStr & RupeeFormat_GetD(Right(xTStr, 1))
    End If
      RupeeFormat_GetT = xRStr
End Function
Function RupeeFormat_GetD(xDStr As String)
Dim xArr_1() As Variant
    xArr_1 = Array(" One", " Two", " Three", " Four", " Five", " Six", " Seven", " Eight", " Nine", "")
    If Val(xDStr) > 0 Then
        RupeeFormat_GetD = xArr_1(Val(xDStr) - 1)
    Else
        RupeeFormat_GetD = ""
    End If
End Function 

3. Kodu ekledikten sonra, kod penceresini kaydedip kapatın, çalışma sayfasına geri dönün ve aşağıdaki formülü boş bir hücreye girin, ardından bu formülü diğer hücrelere uygulamak için doldurma tutamacını aşağı doğru sürükleyin, tüm sayılar rupi cinsinden yazılmış olacaktır.

=RupeeFormat(A2)

apply a formula to get the result


Harika bir özellik ile İngilizce dolar veya diğer para birimlerinde sayıları kelimelere dönüştürme

Excel görevlerinizi basitleştirin ve üretkenliğinizi "Kutools for Excel" ile artırın. "Kutools for Excel", 40'tan fazla para birimi dönüştürme seçeneği sunan güçlü bir özellik olan "Numbers to Words" özelliğini sunar, size birkaç tıklamayla sayıları Çin YUAN, İngilizce Dolar veya başka bir para birimi kelimelerine hızlıca dönüştürmenize yardımcı olur.

Kutools for Excel, karmaşık görevleri basitleştirmek için 300'den fazla gelişmiş özellik sunar ve yaratıcılığı ve verimliliği artırır. Yapay zeka yetenekleriyle entegre olarak, Kutools görevleri hassas bir şekilde otomatikleştirir ve veri yönetimi işlerini kolaylaştırır. Kutools for Excel hakkında detaylı bilgi...  Ücretsiz deneme...

Kutools for Excel'i yükledikten sonra, lütfen şu adımları izleyin:

1. Dönüştürmek istediğiniz numaraların listesini seçin ve ardından "Kutools" > "Metin" > "Numbers to Words" seçeneğine tıklayın.

click Numbers to Words feature of kutools

2. "Numbers to Currency Words" iletişim kutusunda, "Diller" bölümünden bir para birimi seçeneği seçin, ekran görüntüsüne bakınız:

specify options in the dialog box

3. Ardından "Tamam" düğmesine tıklayın, seçimdeki sayılar ihtiyacınız olan belirli para birimi kelimelerine dönüştürülmüştür.

get the result by kutools

Kutools for Excel'i indirmek ve ücretsiz deneme sürümünü şimdi başlatmak için tıklayın!



  • Süper Formül Çubuğu (birden fazla satır metin ve formülü kolayca düzenleme); Okuma Düzeni (büyük miktarda hücreyi kolayca okuma ve düzenleme); Filtrelenmiş Alana Yapıştır...
  • Hücreleri/Satırları/Sütunları Birleştir ve Veriyi Koru; Hücre İçeriğini Böl; Yinelenen Satırları Birleştir ve Topla/Ortalama... Yinelenen Hücreleri Önle; Aralıkları Karşılaştır...
  • Yinelenen veya Benzersiz Satırları Seç; Boş Satırları Seç (tüm hücreler boş); Çok sayıda Çalışma Kitabında Süper Bul ve Yaklaşık Bul; Rastgele Seçim...
  • Formül referansını değiştirmeden Birden Fazla Hücreyi Tam Kopyala; Çoklu Sayfalara Otomatik Referans Oluştur; Madde İşaretleri, Onay Kutuları Ekle ve daha fazlası...
  • Formülleri, Aralıkları, Grafikleri ve Resimleri Favorilere Ekle ve Hızlıca Ekle; Hücreleri şifreyle şifrele; Posta Listesi oluştur ve e-postalar gönder...
  • Metni Çıkart, Metin Ekle, Belirli bir konumda karakterleri kaldır, Boşlukları Kaldır; Veri Sayfası İstatistikleri oluştur ve yazdır; Hücre İçeriği ve Yorumlar arasında dönüştür...
  • Süper Filtre (filtre düzenlerini kaydet ve diğer sayfalara uygula); Ay/Hafta/Gün, sıklık ve daha fazlasına göre Gelişmiş Sıralama; Kalın, italik vb. özel filtreleme...
  • Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştir; Anahtar sütunlara dayalı Tabloları Birleştir; Veriyi Birden Çok Sayfaya Böl; xls, xlsx ve PDF'leri Toplu Dönüştür...
  • Hafta numarası, haftanın günü vb. göre PivotTable Gruplama... Kilitsiz, kilitli hücreleri farklı renklerle göster; Formül/İsim içeren hücreleri vurgula...
kte tab 201905
  • Word, Excel, PowerPoint'de sekmeli düzenleme ve okumayı etkinleştir.
  • Aynı pencerede yeni sekmelerde birden fazla belge açın ve oluşturun, yeni pencereler yerine.
  • Üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından sizi kurtarır!
officetab bottom