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.

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

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

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

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

Adım 6: Tamam'a tıklayı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.

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

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

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

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

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

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.

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

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.

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.

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

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

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

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.

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.

Seçili aralıktaki sayılar Hindistan Rupisi cinsinden yazıya dönüştürülecektir.
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, 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.

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.

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

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.

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.





