logo
search
list

İçindekiler

Excel'de Sayıları Hint Rupisi Cinsinden Yazıya Çevirmenin 2 Kolay Yolu:
Microsoft Office'e En İyi Ücretsiz Alternatif - WPS Office
Sıkça Sorulan Sorular:
Özet:

Excel'de Sayıları Hint Rupisi Cinsinden Yazıya Çevirme

Yayınlayan Algirdas Jasaitis

calendar

2026-09-24

views

868

likes

59

Excel'de sayılarla çalışırken bazen resmî belgeler veya netlik için sayıları hem rakamla hem yazıyla göstermeniz gerekir. Ancak Excel'in özellikle Hindistan Rupisi için bunu yerleşik olarak yapma yolu yoktur. Bu yüzden karmaşık formüller, harici araçlar kullanmak ya da elle yazmak zorunda kalabilirsiniz.

Bu rehberde, Excel kullanarak sayıları Hindistan Rupisi cinsinden yazıya dönüştürmek için adım adım basit bir yöntem öğreteceğiz.

Excel'de Sayıları Hindistan Rupisi Cinsinden Yazıya Dönüştürmenin 2 Kolay Yolu:

Elbette her şeyden önce doğru bir Microsoft Excel indirmesi yapmanız gerekir!

Yöntem 1: VBA koduyla sayıları Hindistan Rupisi cinsinden yazıya dönüştürme

VBA kodunu kullanarak sayıları Hindistan Rupisi cinsinden yazıya dönüştürmeden önce, VBA işlevini açmak için şeritteki Geliştirici sekmesini eklemeniz gerekebilir.

Excel'de Geliştirici sekmesini etkinleştirme adımı şöyledir:

Adım 1: Dönüştürmek istediğiniz sayıları içeren Excel elektronik tablosunu açın.


Tablodaki dönüştürülecek sayılar


Adım 2: Dosya'ya tıklayın ve listeden Seçenekler'i seçin.


Dosya Seçenek Alt: Seçenekler Düğmesi


Adım 3: Excel Seçenekleri'nde Şeridi Özelleştir'i seçin.


Seçenekler Sekmesi ve Şeridi Özelleştir Düğmesi


Adım 4: Komut seçin alanındaki seçenekten Tüm Sekmeler'i seçin.


Tüm Sekmeler seçiliyken komut listesinden seçim yapın


Adım 5: Listede Geliştirici'yi bulun ve Ekle'ye tıklayın.


Geliştirici Sekmesi ve Ekle Düğmesi


Adım 6: Tamam'a tıklayın.


Geliştirici Sekmesi ekleniyor ve Tamam düğmesi


Word, Excel ve PPT'yi ÜCRETSİZ kullanın

Şimdi, VBA kodunu kullanarak sayıları Hindistan Rupisi cinsinden yazıya dönüştürme adımları şöyledir:

Adım 1: Dönüştürmek istediğiniz sayıları içeren Excel elektronik tablosunu açın.


Tablodaki dönüştürülecek sayılar


Adım 2: Geliştirici sekmesine tıklayın. Bu sekmeyi görmüyorsanız etkinleştirmek için yukarıdaki adımları izleyin.


Geliştirici Sekmesi


Adım 3: Visual Basic'e tıklayın veya Alt + F11 klavye kısayolunu kullanın.


Visual Basic Düğmesi


Adım 4: Ekle'ye tıklayın ve Modül'ü seçin.


Ekle > Modül seçeneğine tıklayın


Adım 5: Başvuruda verilen VBA kodunu yapıştırın.

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


Başvurudan eklenen VBA kodu


Adım 5: Kaydedin (Ctrl + S) ve VBA düzenleyicisini kapatın. Kaydederken Excel Makro Etkin Çalışma Kitabı'nı seçin.


Farklı Kaydetme Türü


Adım 6: Sonucu yazıyla görmek istediğiniz hücreye =RupeeFormat(görüntüleme hücresi) formülünü girin ve Enter'a basın.


formül =RupeeFormat(görüntüleme hücresi)


Adım 7: Sonuç görüntülenecektir. Formülü diğer hücrelere uygulamak için aşağı sürükleyin.


Tüm hücrelerde sonuçlar görünür


Seçili aralıktaki sayılar Hindistan Rupisi cinsinden yazıya dönüştürülecektir.

Yöntem 2: Excel'de Sayıları Hindistan Rupisi Cinsinden Yazıya Dönüştürme (Yaygın Yöntem)

Excel'de sayıları Hindistan Rupisi cinsinden yazıya dönüştürmenin yaygın yöntemini öğrenin; bu adım, muhasebe için fatura hazırlarken oldukça kullanışlıdır.

Adım 1: Dönüştürmek istediğiniz sayıları içeren Excel elektronik tablosunu açın.


Tablodaki dönüştürülecek sayılar


Adım 2: VBA uygulamasını açmak için sayfa adına sağ tıklayın ve Kodu Görüntüle'yi seçin. Bu, Excel'de veri analizi için de yararlıdır.


Sayfa Sekmesi ve Kodu Görüntüle Düğmesi


Adım 4: Ekle'ye tıklayın ve Modül'ü seçin.


Ekle > Modül seçeneğine tıklayın


Adım 4: Başvuruda verilen VBA kodunu yapıştırın.

Public Function RupeeFormat(SNum As String)

'Update By Nirmal

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


Başvurudan eklenen VBA kodu


Adım 5: Kayıt türü olarak Excel Makro Etkin Çalışma Kitabı'nı seçin. VBA düzenleyici penceresini kapatın.


Farklı Kaydetme Türü


Adım 6: Sonucu görüntülemek için seçili hücreye =RupeeFormat(görüntüleme hücresi) formülünü girin.


formül =RupeeFormat(görüntüleme hücresi)


Adım 7: Seçili hücrede sonuçlar göründükten sonra formülü diğer hücrelere uygulamak için sürükleyin.


Tüm hücrelerde sonuçlar görünür


Seçili aralıktaki sayılar Hindistan Rupisi cinsinden yazıya dönüştürülecektir.

Ücretsiz Office İndir
  • Word, Excel ve PPT'yi ÜCRETSİZ ve reklamsız kullanın.

  • Güçlü PDF araç setiyle PDF dosyalarını düzenleyin.

  • Microsoft benzeri arayüz. Öğrenmesi kolay. %100 Uyumluluk.

  • WPS'in zengin ücretsiz Word, Excel, PPT ve CV şablonlarıyla üretkenliğinizi artırın.

%100 güvenli
avatar
Algirdas Jasaitis

Microsoft Office'in En İyi Ücretsiz Alternatifi - WPS Office

Microsoft Office'in yanı sıra size başka bir uygulama daha önereceğim: WPS Office. Peki, WPS nedir?


WPS Office


WPS Office, Microsoft Office ile uyumlu, ücretsiz ve açık kaynaklı bir ofis paketidir. Kelime işlemci, hesap tablosu, sunum yazılımı ve PDF okuyucu içerir; böylece dosyaları kolayca açabilir, düzenleyebilir ve kaydedebilirsiniz. Üstelik daha önce ofis paketi deneyimi olmayan kişilerin bile kolayca kullanabileceği kadar basittir.

Bununla da kalmayan WPS Office, çok çeşitli özellikler sunan güçlü bir ofis paketidir. Özellikle bütçesi kısıtlı öğrenciler ve işletmeler için NeoOffice'e iyi bir alternatiftir.

WPS'in bazı özelliklerine hızlıca göz atın:

●  Word, Excel ve PPT'yi ücretsiz kullanma. Güçlü PDF araç seti

●  Zengin şablon mağazası

●  Zengin işlevler; ürünle entegre özgeçmiş asistanları, akıllı formlar, ekran kaydı, dosya onarma ve başka küçük araçlar bulunur.

● Ürün yalnızca 200 MB boyutundadır ve bilgisayar belleğinde az yer kaplar.

● WPS Office'in MAC sürümü çok güçlüdür. Microsoft Office, Mac kullanıcılarının deneyimini yeterince önemsemez; bu eksik WPS Office ile kapatılabilir.

Çevrimiçi belgeleri (WPS AirPage) ve çok kişili ortak düzenlemeyi destekler.

● WPS Office ayrıca Linux sistemini, Android'i ve iOS sistemlerini de destekler. WPS Office ürünlerini farklı sistemlerde kullanmak için yalnızca aynı hesapla oturum açmanız yeterlidir; tüm dosyalar senkronize edilebilir.


Birden Çok Platformda Ücretsiz İndirme


WPS Office'in sizin için en iyi seçim olduğunu düşünüyor ve indirmek mi istiyorsunuz? Lütfen şu resmî web sitesini ziyaret edin: https://www.wps.com ve hemen indirin.

WPS Office Nasıl İndirilir?

Adım 1: WPS Office web sitesini ziyaret edin: wps.com.

Adım 2: “Ücretsiz İndir” düğmesine tıklayın.


Seçin


Adım 3: WPS Office'i kaydetmek istediğiniz konumu seçin → Kaydet


WPS Office dosyasını kaydedin


Adım 4: İndirilenler klasörünüzdeki WPS Office dosyasına çift tıklayın, “Çalıştır”a tıklayın ve kurulumu tamamlamak için ekrandaki talimatları izleyin.


Yazılımı çalıştırın


Adım 5: İşlem tamamlandığında WPS Office'in sunduğu tüm özellikleri kullanmaya başlayabilirsiniz.

SSS:

S1: Excel VBA'da para birimini metne nasıl dönüştürürüm?

  • Excel'de para birimini metne dönüştürmek için VBA (Visual Basic for Applications) kullanabilirsiniz. Bu dönüştürmeyi gerçekleştirmek için özel bir VBA makrosu yazmanız gerekir. İnternette örnekler ve kod parçacıkları bulabilir veya rehberlik için Excel VBA belgelerine başvurabilirsiniz.

S2: Excel'de para birimi yazıyla metne nasıl dönüştürülür?

  • Excel'de para birimini yazıya dönüştürmek için genellikle işlevlerin ve özel biçimlendirmenin bir kombinasyonunu kullanırsınız. Bunu nasıl yapacağınızı anlatan çeşitli çevrimiçi eğitim ve rehberler bulabilirsiniz.

S3: Excel'de sayıları Hindistan Rupisi için nasıl biçimlendirirsiniz?

  • Excel'de sayıları Hindistan Rupisi için biçimlendirmek amacıyla yerleşik para birimi biçimlendirme seçeneklerini kullanabilirsiniz. Biçimlendirmek istediğiniz hücreyi veya aralığı seçin, Hücreleri Biçimlendir iletişim kutusundaki “Sayı” sekmesine gidin ve “Para Birimi” kategorisini seçin. Buradan para birimi simgesi olarak “₹ İngilizce (Hindistan)” seçeneğini belirleyebilirsiniz.

S4: Excel'de sayıları otomatik olarak metne nasıl dönüştürürüm?

  • Excel'de sayıları otomatik olarak metne dönüştürmenin birkaç yolu vardır. METNEÇEVİR, BİRLEŞTİR gibi Excel işlevlerini veya özel biçimlendirmeyi kullanabilirsiniz. Daha gelişmiş otomasyon için VBA makrolarından da yararlanabilirsiniz.

S5: Excel'de ABD doları Hindistan Rupisine nasıl dönüştürülür?

ABD dolarını Hindistan Rupisine Excel'de dönüştürmek için Excel işlevleriyle, döviz kurlarını sağlayan web servisleri veya harici veri kaynaklarını birlikte kullanabilirsiniz. Döviz kurlarını aldıktan sonra tutarları Hindistan Rupisi cinsinden görüntülemek için Excel'in “Para Birimi” biçimi de kullanılabilir.

S5. Daha kolay çalışmak için Excel Online'ı mı kullanmak istiyorsunuz?

  • Bulutta çalışmayı tercih ediyorsanız Excel Online, verilerinizi her yerden yönetmenize ve temizlemenize yardımcı olmak için aynı güçlü özellikleri sunar. Excel Online ile verilerinizin sol veya sağ tarafındaki karakterleri kaldırmak için aynı işlevleri kullanabilirsiniz; bu da esneklik arayanlar veya Excel'in masaüstü sürümüne erişimi olmayanlar için harika bir seçenektir.

Özet:

Excel'de sayısal tutarları VBA kodu veya yaygın bir yöntem kullanarak Hindistan Rupisi cinsinden yazıya dönüştürmeyi öğrenin. İlk olarak Excel'de Geliştirici sekmesini etkinleştirin, sağlanan VBA kodunu ekleyin ve =RupeeFormat(display cell) formülünü kullanın.

Alternatif olarak, VBA'ya erişmek için sayfa adına sağ tıklayın, bir modül ekleyin, kodu yapıştırın ve aynı formülü kullanın. Bu kullanıcı dostu yöntemler aynı zamanda Microsoft Office'in ücretsiz bir alternatifi olan WPS Office ile de uyumludur; böylece hassas ve profesyonel belge biçimlendirme çok kolay hale gelir.

%100 güvenli


Algirdas Jasaitis

15 years of office industry experience, tech lover and copywriter. Follow me for product reviews, comparisons, and recommendations for new apps and software.