logo
search
list

Spis treści

2 proste sposoby na zamianę liczb na słowa w rupiach indyjskich w programie Excel:
Najlepsza darmowa alternatywa dla Microsoft Office - WPS Office
Często zadawane pytania:
Podsumowanie:

Jak zamienić liczby na słowa w rupiach indyjskich w programie Excel

Opublikowany przez Marek Kowalczyk

calendar

2026-09-24

views

868

likes

59

Podczas pracy z liczbami w programie Excel czasem trzeba przedstawić je zarówno w postaci liczbowej, jak i słownej dla oficjalnych dokumentów lub zachowania przejrzystości. Excel nie posiada jednak wbudowanej funkcji, która to umożliwia, szczególnie w przypadku rupii indyjskich. W rezultacie często trzeba polegać na skomplikowanych formułach, zewnętrznych narzędziach lub robić to ręcznie.

W tym poradniku krok po kroku nauczymy Cię prostego sposobu na zamianę liczb na słowa dla rupii indyjskich przy użyciu programu Excel.

2 proste sposoby na zamianę liczb na słowa dla rupii indyjskich w programie Excel:

Oczywiście przede wszystkim musisz najpierw pobrać program Microsoft Excel!

Metoda 1: Zamiana liczb na słowa dla rupii indyjskich za pomocą kodu VBA

Przed zamianą liczb na słowa dla rupii indyjskich za pomocą kodu VBA może być konieczne dodanie karty Deweloper na Wstążce, aby otworzyć funkcję VBA.

Oto jak włączyć kartę Deweloper w programie Excel:

Krok 1: Otwórz arkusz kalkulacyjny programu Excel zawierający liczby, które chcesz zamienić.


Liczba do zamiany w tabeli


Krok 2: Kliknij Plik i wybierz Opcje z listy


Opcje Pliku. Alt: Przycisk Opcje


Krok 3: W oknie Opcje programu Excel wybierz Dostosowywanie Wstążki


Karta Opcje i przycisk Dostosowywanie Wstążki


Krok 4: Wybierz Wszystkie karty w opcji Wybierz polecenia z


Wybór poleceń z listy przy zaznaczonej opcji Wszystkie karty


Krok 5: Znajdź pozycję Deweloper na liście i kliknij Dodaj


Karta Deweloper i przycisk Dodaj


Krok 6: Kliknij OK


Dodawanie karty Deweloper i przycisk OK


Korzystaj z programów Word, Excel i PPT ZA DARMO

Oto kroki, aby zamienić liczby na słowa dla rupii indyjskich za pomocą kodu VBA:

Krok 1: Otwórz arkusz kalkulacyjny programu Excel zawierający liczby, które chcesz zamienić.


Liczba do zamiany w tabeli


Krok 2: Kliknij kartę Deweloper. Jeśli nie widzisz tej karty, postępuj zgodnie z powyższymi krokami, aby ją włączyć


Karta Deweloper


Krok 3: Kliknij Visual Basic lub użyj skrótu klawiszowego Alt + F11


Przycisk Visual Basic


Krok 4: Kliknij Wstaw i wybierz Moduł.


Kliknij Wstaw > Opcja Moduł


Krok 5: Wklej podany kod VBA.

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


Kod VBA wstawiony na podstawie instrukcji


Krok 5: Zapisz (Ctrl + S) i zamknij edytor VBA. Podczas zapisywania wybierz Skoroszyt programu Excel z obsługą makr


Zapisz jako typ


Krok 6: Wpisz formułę =RupeeFormat(komórka) w komórce, w której chcesz wyświetlić wynik, i wciśnij Enter


formuła =RupeeFormat(komórka)


Krok 7: Wynik zostanie wyświetlony. Przeciągnij w dół, aby zastosować formułę do innych komórek


Wyświetlenie wyników we wszystkich komórkach


Liczby w wybranym zakresie zostaną zamienione na słowa dla rupii indyjskich.

Metoda 2: Zamiana liczb na słowa dla rupii indyjskich w programie Excel (popularna metoda)

Poznaj popularną metodę zamiany liczb na słowa dla rupii indyjskich w programie Excel, co jest przydatne podczas przygotowywania faktur do księgowości.

Krok 1: Otwórz arkusz kalkulacyjny programu Excel zawierający liczby, które chcesz zamienić.


Liczba do zamiany w tabeli


Krok 2: Kliknij prawym przyciskiem myszy nazwę arkusza i wybierz Wyświetl kod, aby otworzyć aplikację VBA. Jest to również przydatne przy analizie danych w programie Excel.


Karta arkusza i przycisk Wyświetl kod


Krok 3: Kliknij Wstaw i wybierz Moduł.


Kliknij Wstaw > Opcja Moduł


Krok 4: Wklej podany kod VBA.

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


Kod VBA wstawiony na podstawie instrukcji


Krok 5: Wybierz Skoroszyt programu Excel z obsługą makr w opcji Zapisz jako typ. Zamknij okna edytora VBA


Zapisz jako typ


Krok 6: Wpisz formułę =RupeeFormat(komórka) w wybranej komórce, aby wyświetlić wynik.


formuła =RupeeFormat(komórka)


Krok 7: Po wyświetleniu wyników w wybranej komórce przeciągnij w dół, aby zastosować formułę do pozostałych komórek


Wyświetlenie wyników we wszystkich komórkach


Liczby w wybranym zakresie zostaną zamienione na słowa dla rupii indyjskich.

Pobierz darmowy pakiet Office
  • Korzystaj z programów Word, Excel i PPT ZA DARMO i bez reklam.

  • Edytuj pliki PDF za pomocą potężnego zestawu narzędzi PDF.

  • Interfejs w stylu Microsoft. Łatwy do opanowania. 100% kompatybilności.

  • Zwiększ swoją produktywność dzięki bogatym, darmowym szablonom Word, Excel, PPT i CV od WPS.

100% bezpieczeństwa
awatar
Algirdas Jasaitis

Najlepsza darmowa alternatywa dla Microsoft Office – WPS Office

Poza pakietem Microsoft Office chciałbym zaproponować Ci inną aplikację – WPS Office. Czym zatem jest WPS?


WPS Office


WPS Office to darmowy pakiet biurowy typu open-source, który jest w pełni kompatybilny z Microsoft Office. Zawiera edytor tekstu, arkusz kalkulacyjny, oprogramowanie do prezentacji oraz czytnik PDF, dzięki czemu możesz z łatwością otwierać, edytować i zapisywać pliki. Jest on także niezwykle prosty w obsłudze, nawet dla osób bez wcześniejszego doświadczenia w korzystaniu z pakietów biurowych.

Co więcej, WPS Office to potężny pakiet biurowy, oferujący szeroki zakres funkcji. Stanowi on znakomitą alternatywę dla NeoOffice, w szczególności dla studentów i firm dysponujących ograniczonym budżetem.

Oto krótki przegląd niektórych funkcji WPS:

●  Darmowe korzystanie z programów Word, Excel i PPT. Potężny zestaw narzędzi PDF

●  Bogata baza szablonów

●  Mnóstwo funkcji: zintegrowany asystent pisania CV, inteligentne formularze, nagrywanie ekranu, naprawa plików i inne przydatne narzędzia

● Niewielki rozmiar oprogramowania, wynoszący jedynie 200 MB, oraz niskie użycie pamięci operacyjnej komputera.

● Wersja WPS Office dla komputerów Mac oferuje ogromne możliwości, z powodzeniem nadrabiając braki w pakiecie Microsoft Office z perspektywy użytkowników systemu macOS.

● Obsługa dokumentów online (WPS AirPage), wieloosobowa edycja we współpracy

● WPS Office obsługuje także systemy Linux, Android oraz iOS. Aby korzystać z produktów WPS Office na różnych systemach, wystarczy zalogować się na to samo konto – wszystkie pliki zostaną automatycznie zsynchronizowane.


Darmowe pobieranie na wiele platform


Uważasz, że WPS Office to dla Ciebie najlepszy wybór i chcesz go pobrać? Odwiedź oficjalną stronę: https://www.wps.com i pobierz już teraz.

Jak pobrać WPS Office

Krok 1: Wejdź na stronę internetową WPS Office: wps.com.

Krok 2: Kliknij przycisk "Pobierz za darmo"


Wybierz


Krok 3: Wybierz miejsce, w którym chcesz zapisać instalator WPS Office, a następnie kliknij Zapisz


Zapisywanie pliku WPS Office


Krok 4: Kliknij dwukrotnie pobrany plik instalacyjny WPS Office, wybierz "Uruchom" i postępuj zgodnie z instrukcjami na ekranie, aby go zainstalować


Uruchamianie oprogramowania


Krok 5: Po zakończeniu instalacji możesz w pełni cieszyć się możliwościami WPS Office

Często zadawane pytania (FAQ):

P1: Jak zamienić walutę na tekst za pomocą Excel VBA?

  • Do zamiany waluty na tekst w Excelu możesz wykorzystać środowisko VBA (Visual Basic for Applications). Będzie to wymagało napisania niestandardowego makra VBA. Gotowe przykłady i fragmenty kodu można znaleźć w Internecie lub w dokumentacji Excel VBA.

P2: Jak zamienić walutę na słowa w programie Excel?

  • Aby zamienić walutę na słowa w programie Excel, zazwyczaj stosuje się kombinację funkcji i niestandardowego formatowania. W Internecie dostępne są liczne poradniki krok po kroku, które szczegółowo wyjaśniają, jak to osiągnąć.

P3: Jak sformatować liczby w programie Excel jako rupie indyjskie?

  • Aby sformatować liczby jako rupie indyjskie w Excelu, możesz użyć wbudowanych opcji formatowania waluty. Zaznacz komórkę lub zakres, który chcesz sformatować, otwórz okno dialogowe Formatowanie komórek, przejdź do karty "Liczby" i wybierz kategorię "Walutowe". Następnie jako symbol waluty wybierz "₹ angielski (Indie)".

P4: Jak automatycznie zamienić liczby na tekst w Excelu?

  • Istnieje kilka sposobów na automatyczną zamianę liczb na tekst w Excelu. Możesz użyć wbudowanych funkcji, takich jak TEKST czy ZŁĄCZ.TEKSTY, lub niestandardowego formatowania. W przypadku bardziej zaawansowanych potrzeb polecamy skorzystać z makr VBA.

P5: Jak przeliczyć dolary amerykańskie na rupie indyjskie w programie Excel?

Aby przeliczyć dolary amerykańskie na rupie indyjskie w Excelu, możesz połączyć funkcje programu i usługi sieciowe z zewnętrznymi źródłami danych, które na bieżąco dostarczają kursy wymiany walut. Po pobraniu aktualnych kursów możesz wykorzystać format "Walutowe", aby wyświetlać kwoty w rupiach indyjskich.

P5. Chcesz ułatwić sobie pracę dzięki Excel Online?

  • Jeśli wolisz pracę w chmurze, Excel Online oferuje te same zaawansowane funkcje, dzięki którym możesz zarządzać danymi i oczyszczać je z dowolnego miejsca na świecie. Wersja Excel Online umożliwia korzystanie z tych samych narzędzi do usuwania znaków z lewej lub prawej strony zawartości komórek. Jest to doskonałe rozwiązanie dla osób ceniących sobie elastyczność w pracy oraz tych, którzy nie mają dostępu do klasycznej, desktopowej wersji programu.

Podsumowanie:

Dowiedz się, jak łatwo zamienić kwoty z postaci liczbowej na słowną dla rupii indyjskich w programie Excel, korzystając z kodu VBA lub innych popularnych metod. Na początku włącz kartę Deweloper w Excelu, wprowadź podany kod VBA, a następnie użyj formuły =RupeeFormat(komórka).

Możesz także kliknąć nazwę arkusza prawym przyciskiem myszy, by szybko wywołać edytor VBA. Wystarczy dodać moduł, wkleić gotowy kod i zastosować tę samą formułę. Te niezwykle przyjazne użytkownikowi metody są w pełni kompatybilne z aplikacją WPS Office, darmową alternatywą dla pakietu Microsoft Office. Dzięki niej precyzyjne, łatwe i zarazem profesjonalne formatowanie dokumentów jest na wyciągnięcie Twojej ręki.

100% bezpieczeństwa


Marek Kowalczyk

12 lat doświadczenia w branży technologicznej, specjalista od narzędzi biurowych i entuzjasta nowych rozwiązań IT. Śledź moje analizy porównawcze, porady dotyczące optymalizacji pracy oraz recenzje najnowszych aplikacji.