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

Krok 2: Kliknij Plik i wybierz Opcje z listy

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

Krok 4: Wybierz Wszystkie karty w opcji Wybierz polecenia z

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

Krok 6: Kliknij OK

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

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

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

Krok 4: Kliknij Wstaw i wybierz 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 |
|---|

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

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

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

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

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.

Krok 3: Kliknij Wstaw i wybierz 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 |
|---|

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

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

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

Liczby w wybranym zakresie zostaną zamienione na słowa dla rupii indyjskich.
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 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.

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"

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

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

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.





