Excel'de Hindistan rupisi cinsinden sayıları kelimelere nasıl dönüştürürüm?
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)
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'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.
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:
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.
Kutools for Excel'i indirmek ve ücretsiz deneme sürümünü şimdi başlatmak için tıklayın!
En İyi Ofis Üretkenlik Araçları
Kutools for Excel, sorunlarınızın çoğunu çözer ve üretkenliğinizi %80 artırır.
- 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...

- 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!
