Arkusze kalkulacyjne są wykorzystywane przez wiele osób w ich codziennej pracy, co czyni je ważnym elementem ich biura. Podczas gdy większość osób korzysta z arkuszy kalkulacyjnych w dość podstawowy sposób, niektórzy zaawansowani użytkownicy uważają za trudne lub skomplikowane konwersja liczby na słowa W tym przewodniku zajęliśmy się tym problemem i przedstawiliśmy cztery różne metody, aby konwersja liczby na słowa w Excelu. Ponadto, istnieją trzy więcej metod dla przekształcanie liczb na formaty tekstowe .

Pobierz Workbook

Możesz pobrać z poniższej strony zeszyt ćwiczeń, który wykorzystaliśmy w tym artykule i poćwiczyć z nim samodzielnie.

4 Sposoby konwersji liczby na słowa w programie Excel

W tej części artykułu wyjaśniamy, jak konwertować liczby na słowa w Excelu. Ponadto zademonstrujemy cztery do wykonania operacji. Do przeprowadzenia sesji wykorzystamy Wersja Microsoft 365 .

1) Zastosowanie funkcji łączonych w programie Excel do konwersji liczby na słowa

Formuła Excela, którą tu zastosowaliśmy, opiera się na cztery funkcje. LEWA , MID , TEKST , oraz WYBIERZ funkcje.

Po pierwsze, składnia LEWA funkcja jest następująca:

Zasadniczo ta funkcja służy do wyodrębniania znaków z tekstu.

Tekst: Łańcuch tekstowy, z którego mają być wyodrębnione znaki.

num_chars [Opcjonalnie]: Liczba znaków do wyodrębnienia. zaczyna się od lewej strony. domyślnie, num_chars=1 .

Po drugie, składnia MID funkcja jest następująca:

Właściwie ta funkcja służy do wyodrębniania tekstu z wnętrza łańcucha.

Tekst: Tekst do wyodrębnienia.

start_num: Miejsce, w którym znajduje się pierwszy znak do wyodrębnienia.

num_chars: Liczba znaków do wyodrębnienia.

Po trzecie, składnia TEKST funkcja jest następująca:

Ostatecznie funkcja ta konwertuje liczbę na tekst w formacie liczbowym.

wartość: Liczba do przeliczenia.

format_text: Format liczby, który ma być użyty.

Następnie, składnia WYBIERZ funkcja jest następująca:

Funkcja pobiera wartość z listy na podstawie pozycji.

index_num: Wartość do wyboru. Liczba pomiędzy 1 oraz 254 .

wartość1: Pierwsza wartość, z której można wybrać.

wartość2 [opcjonalnie]: Druga wartość, z której można wybrać.

• Tutaj przekonwertujemy liczbę w Liczby w słowach kolumna.

• Zapisz teraz poniższy wzór w C5 komórka.

=CHOOSE(LEFT(TEXT(B5, "000000000.00″))+1,, "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine")

&IF(–LEFT(TEXT(B5,”000000000.00″))=0,,IF(AND(–MID(TEXT(B5,”000000000.00″),2,1)=0,–MID(TEXT(B5,”000000000.00″),3,1)=0),” Hundred”,” Hundred and “))

&CHOOSE(MID(TEXT(B5, "000000000.00″),2,1)+1,,,, "Twenty ", "Thirty ", "Forty ", "Fifty ", "Sixty ", "Seventy ", "Eighty ", "Ninety ")

&IF(-MID(TEXT(B5, "000000000.00″),2,1)1,CHOOSE(MID(TEXT(B5, "000000000.00″),3,1)+1,, "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine"),

CHOOSE(MID(TEXT(B5, "000000000.00″),3,1)+1, "Ten", "Jedenasty", "Dwunasty", "Trzynasty", "Czternasty", "Piętnasty", "Szesnasty", "Siedemnasty", "Osiemnasty", "Dziewiętnasty"))

&IF((–LEFT(TEXT(B5,”000000000.00″))+MID(TEXT(B5,”000000000.00″),2,1)+MID(TEXT(B5,”000000000.00″),3,1))=0,,IF(AND((–MID(TEXT(B5,”000000000.00″),4,1)+MID(TEXT(B5,”000000000.00″),5,1)+MID(TEXT(B5,”000000000.00″),6,1)+MID(TEXT(B5,”000000000.00″),7,1))=0,(–MID(TEXT(B5,”000000000.00″),8,1)+RIGHT(TEXT(B5,”000000000.00″)))>0),” Million and “,” Million “))

&CHOOSE(MID(TEXT(B5, "000000000.00″),4,1)+1,, "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine")

&IF(–MID(TEXT(B5,”000000000.00″),4,1)=0,,IF(AND(–MID(TEXT(B5,”000000000.00″),5,1)=0,–MID(TEXT(B5,”000000000.00″),6,1)=0),” Hundred”,” Hundred and”))

&CHOOSE(MID(TEXT(B5, "000000000.00″),5,1)+1,,," Dwadzieścia"," Trzydzieści"," Czterdzieści"," Pięćdziesiąt"," Sześćdziesiąt"," Siedemdziesiąt"," Osiemdziesiąt"," Dziewięćdziesiąt")

&IF(-MID(TEXT(B5, "000000000.00″),5,1)1,CHOOSE(MID(TEXT(B5, "000000000.00″),6,1)+1," Jeden"," Dwa"," Trzy"," Cztery"," Pięć"," Sześć"," Siedem"," Osiem"," Dziewięć"),CHOOSE(MID(TEXT(B5, "000000000.00″),6,1)+1," Dziesięć"," Jedenaście"," Dwanaście"," Trzynaście"," Czternaście"," Piętnaście"," Szesnaście"," Siedemnaście"," Osiemnaście"," Dziewiętnaście"))

&IF((–MID(TEXT(B5,”000000000.00″),4,1)+MID(TEXT(B5,”000000000.00″),5,1)+MID(TEXT(B5,”000000000.00″),6,1))=0,,IF(OR((–MID(TEXT(B5,”000000000.00″),7,1)+MID(TEXT(B5,”000000000.00″),8,1)+MID(TEXT(B5,”000000000.00″),9,1))=0,–MID(TEXT(B5,”000000000.00″),7,1)0),” Thousand “,” Thousand and “))

&CHOOSE(MID(TEXT(B5, "000000000.00″),7,1)+1,, "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine")

&IF(–MID(TEXT(B5,”000000000.00″),7,1)=0,,IF(AND(–MID(TEXT(B5,”000000000.00″),8,1)=0,–MID(TEXT(B5,”000000000.00″),9,1)=0),” Hundred “,” Hundred and “))&

CHOOSE(MID(TEXT(B5, "000000000.00″),8,1)+1,,, "Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninety")

&IF(-MID(TEXT(B5, "000000000.00″),8,1)1,CHOOSE(MID(TEXT(B5, "000000000.00″),9,1)+1,, "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine"),CHOOSE(MID(TEXT(B5, "000000000.00″),9,1)+1, "Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", "Seventeen", "Eighteen", "Nineteen"))

Cała formuła może wydawać się skomplikowana na pierwszy rzut oka, jednak jest to w zasadzie powtórzenie jednej porcji.Tak więc, jeśli potrafisz zrozumieć pierwszy część wzoru, powinieneś być w stanie zrozumieć resztę.

• Następnie należy nacisnąć ENTER .

W rezultacie zobaczysz następujące wyjście.

Podział formuły:

Na początku TEKST Funkcja jest używana tutaj, aby przekształcić liczbę w "000000000.00" format tekstu.

TEXT(B7,”000000000.00″)

Następnie. LEWA Funkcja służy do wyodrębnienia z liczby najbardziej lewego znaku, dzięki czemu możemy zidentyfikować, czy zwracana liczba to zero lub dowolną inną wartość.

LEFT(TEXT(B7,”000000000.00″))

Następnie. WYBIERZ Funkcja służy do reprezentowania wyodrębnionej liczby za pomocą odpowiednich słów.

CHOOSE(LEFT(TEXT(B7, "000000000.00″))+1,, "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine")

Teraz sprawdza, czy wartość to. zero lub nie. Jeśli jest zero to nic nie wyświetla.

CHOOSE(LEFT(TEXT(B7, "000000000.00″))+1,, "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine")

&IF(–LEFT(TEXT(B7,”000000000.00″))=0,,

Wyświetli się "Sto" jeśli następny dwa liczby to zero W przeciwnym razie wyświetli się "Sto i".

CHOOSE(LEFT(TEXT(B7, "000000000.00″))+1,, "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine")

&IF(–LEFT(TEXT(B7,”000000000.00″))=0,,IF(AND(–MID(TEXT(B7,”000000000.00″),2,1)=0,–MID(TEXT(B7,”000000000.00″),3,1)=0),” Hundred”,” Hundred and “))

Formuła ta nie wymaga VBA lub tablice. Jest to doskonała metoda zamiany liczb na słowa. Jednak ma ona dwa wady. Po pierwsze, nie potrafi idealnie odwzorować liczb dziesiętnych po punktach. Po drugie, maksymalny limit liczb to. 999, 999, 999 ... Właściwie, Pan Pete M. wymyślił tę formułę.

• Teraz możesz napisać formułę dla pozostałych wierszy lub po prostu użyć Funkcja autouzupełniania w programie Excel .

Wreszcie, dostaniesz wszystkie zamieniał liczby na słowa .

Read More: Jak przekonwertować liczbę na tekst z 2 miejscami po przecinku w Excelu (5 sposobów)

2. zastosowanie funkcji VLOOKUP do konwersji liczb na słowa

Możesz zastosować VLOOKUP funkcja do konwersja liczb na słowa w Excelu. Zróbmy coś innego, tutaj trzeba najpierw wstawić wszystkie liczby w słowa, a następnie można użyć tej funkcji do konwersji dowolnej liczby na słowa z nich.

Kroki:

• Po pierwsze, zapisz wszystkie liczby słownie ręcznie w C kolumna .

• Teraz użyj następującego wzoru w C12 komórka.

• Następnie naciśnij ENTER .

Podział formuły

W tej formule VLOOKUP Funkcja zwróci wartość z podanej tablicy.

• Po pierwsze, B12 to wartość lookup, której szuka w podanej tablicy.
• Po drugie, B4:C9 to tablica w którym szuka wartość docelowa .
• Po trzecie, 2 jest liczbą kolumn w tabeli, z której ma być zwrócona wartość.
• Po czwarte, Fałszywy oznacza dokładny mecz.

Read More: Jak przekonwertować liczbę na tekst dla VLOOKUP w Excelu (2 sposoby)

Podobne lektury

• Jak przekonwertować liczbę na tekst w Excelu z apostrofem
• Konwersja liczby na tekst z zielonym trójkątem w Excelu
• Jak przekonwertować liczbę na tekst z przecinkami w Excelu (3 proste metody)
• Konwersja liczby na tekst bez notacji naukowej w programie Excel
• Jak przekonwertować liczbę Peso na słowa w Excelu (z łatwością)

3. użycie VBA do konwersji liczby na słowa w Excelu

Najciekawsze jest to, że możesz zbudować swój własna funkcja do zamieniać liczby na słowa w Excelu. Co więcej, możesz zastosować kod VBA opracować określona Funkcja. Kroki są podane poniżej.

Kroki :

• Po pierwsze, musisz wybrać Deweloper tab>> następnie wybierz Visual Basic.

• Teraz, z Wkładka >> musisz wybrać Moduł .

• W tym czasie należy spisać m.in. Kod w Moduł .

 Function liczba_konwertująca_into_words(ByVal MojaLiczba) Dim x_string As String Dim whole_num As Integer Dim x_string_pnt Dim x_pnt As String Dim x_numb As String Dim x_P() As Variant Dim x_DP Dim x_cnt As Integer Dim x_output, x_T As String Dim x_my_len As Integer On Error Resume Next x_P = Array("", "Thousand ", "Million ", "Billion ", "Trillion ", " ", " ", " ") x_numb =.Trim(Str(MyNumber)) x_DP = InStr(x_numb, ".") x_pnt = "" x_string_Num = "" If x_DP> 0 Then x_pnt = " point " x_string = Mid(x_numb, x_DP + 1) x_string_pnt = Left(x_string, Len(x_numb) - x_DP) For whole_num = 1 To Len(x_string_pnt) x_string = Mid(x_string_pnt, whole_num, 1) x_pnt = x_pnt & get_digit(x_string) & " " Next whole_num x_numb = Trim(Left(x_numb, x_DP - 1)) End If x_cnt = 0x_output = "" x_T = "" x_my_len = 0 x_my_len = Int(Len(Str(x_numb)) / 3) If (Len(Str(x_numb)) Mod 3) = 0 Then x_my_len = x_my_len - 1 Do While x_numb "" If x_my_len = x_cnt Then x_T = get_hundred_digit(Right(x_numb, 3), False) Else If x_cnt = 0 Then x_T = get_hundred_digit(Right(x_numb, 3), True) Else x_T = get_hundred_digit(Right(x_numb, 3), False) End If End If If x_T "" Then x_output = x_T& x_P(x_cnt) & x_output End If If Len(x_numb)> 3 Then x_numb = Left(x_numb, Len(x_numb) - 3) Else x_numb = "" End If x_cnt = x_cnt + 1 Loop x_output = x_output & x_pnt liczba_konwertująca_na_wyrazy = x_output End Function function get_hundred_digit(xHDgt, y_b As Boolean) Dim x_R_str As String Dim x_string_Num As String Dim x_string As String Dim y_I As Integer Dim y_bb As Boolean.x_string_Num = xHDgt x_R_str = "" On Error Resume Next y_bb = True If Val(x_string_Num) = 0 Then Exit Function x_string_Num = Right("000" & x_string_Num, 3) x_string = Mid(x_string_Num, 1, 1) If x_string "0" Then x_R_str = get_digit(Mid(x_string_Num, 1, 1)) & "Hundred " Else If y_b Then x_R_str = "and " y_bb = False Else x_R_str = " " y_bb = False End If End If Mid(x_string_Num, 2, 2)"00" Then x_R_str = x_R_str & get_ten_digit(Mid(x_string_Num, 2, 2), y_bb) End If get_hundred_digit = x_R_str End Function Function get_ten_digit(x_TDgt, y_b As Boolean) Dim x_string As String Dim y_I As Integer Dim x_array_1() As Variant Dim x_array_2() As Variant Dim x_T As Boolean x_array_1 = Array("Ten ", "Eleven ", "Twelve ", "Thirteen ", "Fourteen ", "Fifteen ", "Sixteen ", "Seventeen ","Eighteen ", "Nineteen ") x_array_2 = Array("", "", "Twenty ", "Thirty ", "Forty ", "Fifty ", "Sixty ", "Seventy ", "Eighty ", "Ninety ") x_string = "" x_T = True On Error Resume Next If Val(Left(x_TDgt, 1)) = 1 Then y_I = Val(Right(x_TDgt, 1)) If y_b Then x_string = "and " x_string = x_string & x_array_1(y_I) Else y_I = Val(Left(x_TDgt, 1)) If Val(Left(x_TDgt, 1))> 1 Then If y_b Thenx_string = "i " x_string = x_string & x_array_2(Val(Left(x_TDgt, 1))) x_T = False End If If x_string = "" Then If y_b Then x_string = "i " End If If Right(x_TDgt, 1) "0" Then x_string = x_string & get_digit(Right(x_TDgt, 1)) End If End If get_ten_digit = x_string End Function Function get_digit(xDgt) Dim x_string As String Dim x_array_1() As Variant x_array_1 = Array("Zero ","One ", "Two ", "Three ", "Four ", "Five ", "Six ", "Seven ", "Eight ", "Nine ") x_string = "" On Error Resume Next x_string = x_array_1(Val(xDgt)) get_digit = x_string End Function 

• Teraz musisz zapisać kod .
• Następnie należy przejść do. Arkusz Excela .

W tym czasie możesz użyć swojego określona W tym celu należy wykonać podane czynności.

Kroki:

• Teraz wybierz komórkę, w której chcesz pokazać przekonwertowane dane wyjściowe (w naszym przypadku komórka C5 ).
• Następnie należy wprowadzić Znak równości (=) w komórce, powinno umożliwić wpisanie formuł.
• Następnie należy wpisać " = liczba_konwertująca_na_słowa " lub wybierz number_converting_into_words funkcja z menu rozwijanego.
• Następnie wybierz komórkę z wartością liczbową, którą chcesz zamienić na słowa (W naszym przypadku komórka B5 ).
• Wreszcie, uderz w ENTER przycisk.

W rezultacie przekształci on wybrany numer komórki w odpowiednie słowa. Na koniec możesz po prostu skopiować tę formułę również do pozostałych komórek.

Read More: Jak przekonwertować wartość numeryczną na angielskie słowa w programie Excel

4) Wykorzystanie VBA do słownictwa walutowego w Excelu

Ta metoda jest podobna do ostatniej, również działa poprzez wstawienie modułu za pomocą VBA (Visual Basic for Application) i użycie go jako funkcji. Od ostatniej metody różni się tym, że zamienia liczby na odpowiednie słowa w walucie. Ponadto poniżej podano przykład.

Teraz wykonaj poniższe kroki, aby zastosować tę metodę:

• Po pierwsze, podążaj metoda-3 aby włożyć moduł.
• Po drugie, zapisz następujący kod w Moduł 2 .

 Function Convert_Number_into_word_with_currency(ByVal whole_number) Dim converted_into_dollar, converted_into_cent my_ary = Array("", "", " Thousand ", " Million ", " Billion ", " Trillion ") whole_number = Trim(Str(whole_number)) x_decimal = InStr(whole_number, ".") If x_decimal> 0 Then converted_into_cent = get_ten(Left(Mid(whole_number, x_decimal + 1) & "00", 2)) whole_number =Trim(Left(whole_number, x_decimal - 1)) End If xIndex = 1 Do While whole_number "" xHundred = "" xValue = Right(whole_number, 3) If Val(xValue) 0 Then xValue = Right("000" & xValue, 3) If Mid(xValue, 1, 1) "0" Then xHundred = get_digit(Mid(xValue, 1, 1)) & " Hundred " End If If Mid(xValue, 2, 1) "0" Then xHundred =.xHundred & get_ten(Mid(xValue, 2)) Else xHundred = xHundred & get_digit(Mid(xValue, 3)) End If If xHundred "" Then converted_into_dollar = xHundred & my_ary(xIndex) & Dollar End If If Len(whole_number)> 3 Then whole_number = Left(whole_number, Len(whole_number) - 3) Else whole_number = "" End IfxIndex = xIndex + 1 Loop Select Case convertted_into_dollar Case "" converted_into_dollar = " Zero Dolarów" Case "One" Convertted_into_dollar = " One Dollar" Case Else Convertted_into_dollar = Convert_into_dollar & "Dolary" End Select Select Case Convert_into_cent Case "" Convertted_into_cent = " i Zero Cent" Case "One"converted_into_cent = " i jeden cent" Case Else converted_into_cent = " i " & converted_into_cent & "Cents" End Select Convert_Number_into_word_with_currency = converted_into_dollar & converted_into_cent End Function Function get_ten(pTens) Dim my_output As String my_output = "" If Val(Left(pTens, 1)) = 1 Then Select Case Val(pTens) Case 10: my_output= "Dziesięć" Case 11: moje_wyniki = "Jedenaście" Case 12: moje_wyniki = "Dwanaście" Case 13: moje_wyniki = "Trzynaście" Case 14: moje_wyniki = "Czternaście" Case 15: moje_wyniki = "Piętnaście" Case 16: moje_wyniki = "Szesnaście" Case 17: moje_wyniki = "Siedemnaście" Case 18: moje_wyniki = "Osiemnaście" Case 19: moje_wyniki = "Dziewiętnaście" Case Else End Select Else.Select Case Val(Left(pTens, 1)) Case 2: my_output = "Twenty " Case 3: my_output = "Thirty " Case 4: my_output = "Forty " Case 5: my_output = "Fifty " Case 6: my_output = "Sixty " Case 7: my_output = "Seventy " Case 8: my_output = "Eighty " Case 9: my_output = "Ninety " Case Else End Select my_output = my_output & get_digit(Right(pTens, 1)) End If get_ten =.my_output End Function function get_digit(pDigit) Select Case Val(pDigit) Case 1: get_digit = "One" Case 2: get_digit = "Two" Case 3: get_digit = "Three" Case 4: get_digit = "Four" Case 5: get_digit = "Five" Case 6: get_digit = "Six" Case 7: get_digit = "Seven" Case 8: get_digit = "Eight" Case 9: get_digit = "Nine" Case Else: get_digit = "" End Select End.Funkcja 

W rezultacie, możesz użyć swojego określona funkcja o nazwie Convert_Number_into_word_with_currency W tym celu należy wykonać podane kroki.

Kroki:

• Teraz musisz wybrać komórkę, w której chcesz zachować wynik. My wybraliśmy komórkę C5 komórka.
• Następnie należy użyć odpowiedniej formuły w C5 komórka.

• Następnie należy nacisnąć ENTER .

• Na koniec należy użyć programu Excel Funkcja autouzupełniania dla reszty komórek C6:C9 .

Na koniec otrzymasz całą przeliczoną kwotę.

Read More: Jak przekonwertować liczbę na tekst i zachować zera w Excelu (4 sposoby)

Jak przekonwertować liczbę na format tekstowy w programie Excel

Do tej pory rozmawialiśmy o. jak zamienić liczby na słowa w Excelu. Ta część artykułu wyjaśnia, jak zmiana liczb na format tekstowy w Excelu. Jest to najprostsza i najszybsza metoda konwersji liczb na tekst.

Tutaj wykonaj następujące kroki, aby zastosować tę metodę:

• Po pierwsze, wybierz komórkę lub komórki z wartościami liczbowymi, które chcesz zamienić na tekst (w naszym przypadku komórka C5:C9 )
• Po drugie, przejdź do Strona główna i wybrać Tekst opcja z menu rozwijanego kategorii komórek pod Numer sekcja.

W rezultacie przekształci wartość numeryczną wybranych komórek w tekst. Możesz to zrozumieć, obserwując wyrównanie. Domyślnie w Excelu teksty są wyrównane do lewej strony, a liczby do prawej.

Możesz też nacisnąć CTRL+1 aby otworzyć okno o nazwie Formatuj komórki i wybrać Numer a następnie wybrać opcję Tekst kategoria z tego miejsca.

Read More: Excel VBA do konwersji liczby na tekst (4 przykłady)

Część ćwiczeniowa

W celu wykonania ćwiczeń, na każdym arkuszu w prawej części dodaliśmy część Practice.

Wniosek

Tutaj, staraliśmy się, aby ten artykuł ostateczny przewodnik o tym, jak przekonwertować numer do odpowiednich słów lub tekstu w MS Excel Ponadto, zawęziliśmy siedem różne techniki w tym artykule, abyś mógł wybrać idealną opcję, która najlepiej nadaje się do konkretnej sytuacji. Mamy więc nadzieję, że znajdziesz rozwiązanie, którego szukałeś. Proszę zostawić komentarz, jeśli masz jakieś sugestie lub pytania.Dziękuję.