Електронните таблици се използват от много хора в ежедневната им работа, което ги превръща във важен елемент от техния офис. Въпреки че мнозинството от хората използват електронните таблици по сравнително елементарен начин, някои напреднали потребители намират за трудно или сложно да конвертиране на числа в думи в Excel. В това ръководство сме разгледали този въпрос и сме предоставили четири различни методи за конвертиране на числа в думи в Excel. Освен това има три повече методи за конвертиране на числа в текстови формати .

Изтегляне на работна тетрадка

Можете да изтеглите работната тетрадка, която използвахме в тази статия, отдолу и да се упражнявате сами с нея.

4 начина за преобразуване на числа в думи в Excel

В този раздел на статията се обяснява как да конвертирате числа в думи в Excel. Освен това ще демонстрираме четири техники за извършване на операцията. За провеждане на сесията ще използваме Версия на Microsoft 365 .

1. Използване на комбинирани функции в Excel за преобразуване на числа в думи

Формулата на Excel, която използвахме тук, разчита на четири функции. LEFT , MID , ТЕКСТ , и ИЗБЕРИ функции.

Първо, синтаксисът на LEFT функцията е следната:

По принцип тази функция се използва за извличане на символи от текст.

Текст: Текстовият низ, от който се извличат символите.

num_chars [По избор]: Броят на символите за извличане. Започва се отляво. По подразбиране, num_chars=1 .

Второ, синтаксисът на MID функцията е следната:

Всъщност тази функция се използва за извличане на текст от вътрешността на низ.

Текст: Текстът, от който да се извлече.

start_num: Местоположението на първия символ за извличане.

num_chars: Броят на символите за извличане.

Трето, синтаксисът на ТЕКСТ функцията е следната:

В крайна сметка тази функция преобразува число в текст в цифров формат.

стойност: Числото за преобразуване.

format_text: Форматът на числата, който ще се използва.

След това синтаксисът на ИЗБЕРИ функцията е следната:

Тази функция получава стойност от списък въз основа на позицията.

index_num: Стойността за избор. Число между 1 и 254 .

стойност1: Първата стойност, от която можете да избирате.

value2 [по избор]: Втората стойност, от която можете да избирате.

• Тук ще преобразуваме числото в Числа в думи колона.

• Сега запишете следната формула в C5 клетка.

=CHOOSE(LEFT(TEXT(B5, "000000000.00″))+1,, "Едно", "Две", "Три", "Четири", "Пет", "Шест", "Седем", "Осем", "Девет")

&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,,, "Двадесет ", "Тридесет ", "Четиридесет ", "Петдесет ", "Шестдесет ", "Седемдесет ", "Осемдесет ", "Деветдесет ")

&IF(-MID(TEXT(B5, "000000000.00″),2,1)1,CHOOSE(MID(TEXT(B5, "000000000.00″),3,1)+1,, "Едно", "Две", "Три", "Четири", "Пет", "Шест", "Седем", "Осем", "Девет"),

CHOOSE(MID(TEXT(B5, "000000000.00″),3,1)+1, "Десет", "Единадесет", "Дванадесет", "Тринадесет", "Четиринадесет", "Петнадесет", "Шестнадесет", "Седемнадесет", "Осемнадесет", "Деветнадесет"))

&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,, "Едно", "Две", "Три", "Четири", "Пет", "Шест", "Седем", "Осем", "Девет")

&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,,," Двадесет"," Тридесет"," Четиридесет"," Петдесет"," Шестдесет"," Седемдесет"," Осемдесет"," Деветдесет")

&IF(-MID(TEXT(B5, "000000000.00″),5,1)1,CHOOSE(MID(TEXT(B5, "000000000.00″),6,1)+1,," Едно"," Две"," Три"," Четири"," Пет"," Шест"," Седем"," Осем"," Девет"),CHOOSE(MID(TEXT(B5, "000000000.00″),6,1)+1," Десет"," Единадесет"," Дванадесет"," Тринадесет"," Четиринадесет"," Петнадесет"," Шестнадесет"," Седемнадесет"," Осемнадесет"," Деветнадесет"))

&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,, "Едно", "Две", "Три", "Четири", "Пет", "Шест", "Седем", "Осем", "Девет")

&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,,, "Двадесет ", "Тридесет ", "Четиридесет ", "Петдесет ", "Шестдесет ", "Седемдесет ", "Осемдесет ", "Деветдесет ")

&IF(-MID(TEXT(B5, "000000000.00″),8,1)1,CHOOSE(MID(TEXT(B5, "000000000.00″),9,1)+1,, "Едно", "Две", "Три", "Четири", "Пет", "Шест", "Седем", "Осем", "Девет"),CHOOSE(MID(TEXT(B5, "000000000.00″),9,1)+1, "Десет", "Единадесет", "Дванадесет", "Тринадесет", "Четиринадесет", "Петнадесет", "Шестнадесет", "Седемнадесет", "Осемнадесет", "Деветнадесет")

Цялата формула може да изглежда сложна на пръв поглед, но по същество тя представлява повторение на една част. първи част от формулата, ще можете да разберете останалото.

• Впоследствие натиснете ВЪВЕДЕТЕ .

В резултат на това ще видите следния резултат.

Разбивка на формулата:

Първоначално ТЕКСТ се използва, за да се превърне числото в "000000000.00" формат на текста.

TEXT(B7,”000000000.00″)

След това LEFT функцията се използва за извличане на най-левия символ от числото. Тя ни позволява да определим дали върнатото число е нула или друга стойност.

LEFT(TEXT(B7,”000000000.00″))

След това ИЗБЕРИ функцията се използва за представяне на извлеченото число с подходящи думи.

CHOOSE(LEFT(TEXT(B7, "000000000.00″))+1,, "Едно", "Две", "Три", "Четири", "Пет", "Шест", "Седем", "Осем", "Девет")

Сега се проверява дали стойността е нула или не. Ако е нула след това не показва нищо.

CHOOSE(LEFT(TEXT(B7, "000000000.00″))+1,, "Едно", "Две", "Три", "Четири", "Пет", "Шест", "Седем", "Осем", "Девет")

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

Той ще покаже "Сто" ако следващият две числата са нула . В противен случай ще се покаже "Сто и."

CHOOSE(LEFT(TEXT(B7, "000000000.00″))+1,, "Едно", "Две", "Три", "Четири", "Пет", "Шест", "Седем", "Осем", "Девет")

&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 “))

Тази формула не изисква VBA Това е отличен метод за превръщане на числа в думи. две Първо, не може да представя перфектно десетичните числа след точките. Второ, максималната граница на броя е 999, 999, 999 ... всъщност, Г-н Pete M. е измислил тази формула.

• Сега можете да напишете формулата за останалите редове или просто да използвате Функция за автоматично попълване на Excel .

Накрая ще получите всички преобразува числа в думи .

Прочетете още: Как да конвертирате число в текст с 2 знака след десетичната запетая в Excel (5 начина)

2. прилагане на функцията VLOOKUP за преобразуване на числа в думи

Можете да кандидатствате VLOOKUP функция към преобразуване на числа в думи В този случай първо трябва да въведете всички числа в думи, след което можете да използвате тази функция, за да преобразувате всяко число в думи от тях.

Стъпки:

• Първо, запишете всички числа с думи ръчно в Колона C .

• Сега използвайте следната формула в C12 клетка.

• След това натиснете ВЪВЕДЕТЕ .

Разбивка на формулата

В тази формула VLOOKUP функцията ще върне стойност от даден масив.

• На първо място, B12 е стойността за търсене, която се търси в дадената таблица.
• Второ, B4:C9 е масив от таблици в която търси целева стойност .
• Трето, 2 е броят на колоните в таблицата, от която трябва да се върне стойност.
• Четвърто, Фалшив обозначава точно мач.

Прочетете още: Как да конвертирате число в текст за VLOOKUP в Excel (2 начина)

Подобни четива

• Как да конвертирате число в текст в Excel с апостроф
• Конвертиране на число в текст със зелен триъгълник в Excel
• Как да конвертирате число в текст със запетаи в Excel (3 лесни метода)
• Конвертиране на число в текст без научна нотация в Excel
• Как да конвертирате Песо в Думи в Excel (с лесни стъпки)

3. Използване на VBA за конвертиране на числа в думи в Excel

Най-интересната част е, че можете да изградите своя собствена функция към превръщане на числата в думи в Excel. Освен това можете да използвате кодът на VBA да разработи дефинирано Стъпките са описани по-долу.

Стъпки :

• Първо, трябва да изберете Разработчик tab>> след това изберете Visual Basic.

• Сега, от Вмъкване на >> трябва да изберете Модул .

• В този момент трябва да запишете следното Код в Модул .

 Функция number_converting_into_words(ByVal MyNumber) Dim x_string As String Dim whole_num As Integer Dim x_string_pnt Dim x_string_Num 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 number_converting_into_words = 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 Booleanx_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 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 = "и " 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 = "и " End If 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 ","Едно ", "Две ", "Три ", "Четири ", "Пет ", "Шест ", "Седем ", "Осем ", "Девет ") x_string = "" При грешка възобнови Следваща x_string = x_array_1(Val(xDgt)) get_digit = x_string Край на функцията 

• Сега трябва да запазите код .
• След това трябва да отидете в Работен лист на Excel .

В този момент можете да използвате дефинирано За тази цел трябва да следвате дадените стъпки.

Стъпки:

• Сега изберете клетката, в която искате да покажете конвертирания резултат. (В нашия случай клетката C5 ).
• След това въведете Знак за равенство (=) в клетката. Това трябва да ви позволи да въвеждате формули.
• След това въведете " =number_converting_into_words " или изберете number_converting_into_words функция от падащото меню.
• След това изберете клетката с числовата стойност, която искате да превърнете в думи (в нашия случай клетката B5 ).
• Накрая натиснете ВЪВЕДЕТЕ бутон.

В резултат на това избраният от вас номер на клетката ще се превърне в съответните думи. Накрая можете просто да копирате тази формула и в останалите клетки.

Прочетете още: Как да конвертирате цифрова стойност в английски думи в Excel

4. Използване на VBA за формулиране на валути в Excel

Този метод е подобен на последния. Той също работи чрез вмъкване на модул с помощта на VBA (Visual Basic for Application) и използването му като функция. Разликата с последния метод е, че той превръща числата в подходящи думи за валута. Освен това по-долу е даден пример.

Следвайте следните стъпки, за да приложите този метод:

• Първо, следвайте метод-3 за да поставите модула.
• Второ, запишете следния код в Модул 2 .

 Функция 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 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 converted_into_dollar Case "" converted_into_dollar = " нула долара" Case "One" converted_into_dollar = " един долар" Case Else converted_into_dollar = converted_into_dollar & "Dollars" End Select Select Case converted_into_cent Case "" converted_into_cent = " и нула цента" Case "One"Convert_into_cent = " и един цент" Case Else converted_into_cent = " и " & converted_into_cent & "Центове" 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= "Десет" Случай 11: my_output = "Единадесет" Случай 12: my_output = "Дванадесет" Случай 13: my_output = "Тринадесет" Случай 14: my_output = "Четиринадесет" Случай 15: my_output = "Петнадесет" Случай 16: my_output = "Шестнадесет" Случай 17: my_output = "Седемнадесет" Случай 18: my_output = "Осемнадесет" Случай 19: my_output = "Деветнадесет" Случай Else End Select ElseSelect Case Val(Left(pTens, 1)) Case 2: my_output = "Двадесет " Case 3: my_output = "Тридесет " Case 4: my_output = "Четиридесет " Case 5: my_output = "Петдесет " Case 6: my_output = "Шестдесет " Case 7: my_output = "Седемдесет " Case 8: my_output = "Осемдесет " Case 9: my_output = "Деветдесет " 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 = "Едно" Case 2: get_digit = "Две" Case 3: get_digit = "Три" Case 4: get_digit = "Четири" Case 5: get_digit = "Пет" Case 6: get_digit = "Шест" Case 7: get_digit = "Седем" Case 8: get_digit = "Осем" Case 9: get_digit = "Девет" Case Else: get_digit = "" End Select EndФункция 

В резултат на това можете да използвате дефинирано функция с име Превръщане_Число_в_слова_с_валута . За целта трябва да следвате дадените стъпки.

Стъпки:

• Сега трябва да изберете клетка, в която искате да запазите резултата. Ние избрахме C5 клетка.
• След това трябва да използвате съответната формула в C5 клетка.

• Впоследствие натиснете ВЪВЕДЕТЕ .

• Накрая използвайте Excel Функция за автоматично попълване за останалите клетки C6:C9 .

Накрая ще получите цялата конвертирана сума.

Прочетете още: Как да конвертирате число в текст и да запазите крайните нули в Excel (4 начина)

Как да конвертирате число в текстов формат в Excel

Досега говорихме за как да конвертирате числа в думи в Excel. Този раздел от статията обяснява как да промяна на номера в текстов формат Това е най-простият и бърз метод за преобразуване на числа в текст.

Следвайте тези стъпки, за да приложите този метод:

• Първо, изберете клетката или клетките с числови стойности, които искате да превърнете в текст (в нашия случай клетката C5:C9 )
• Второ, отидете в Начало и изберете Текст от падащото меню за категория на клетката под Номер раздел.

В резултат на това тя ще преобразува цифровата стойност на избраните клетки в текст. Можете да разберете това, като наблюдавате подравняването. По подразбиране текстовете са подравнени наляво, а числата - надясно в Excel.

Или можете да натиснете CTRL+1 за да отворите прозореца с име Форматиране на клетките и изберете Номер и след това изберете Текст категория оттам.

Прочетете още: Excel VBA за преобразуване на число в текст (4 примера)

Практически раздел

За да се упражнявате, сме добавили част "Практика" на всеки лист в дясната част.

Заключение

Тук ние се опитахме да направим тази статия крайно ръководство за това как да конвертирате номер в подходящи думи или текст в MS Excel . Освен това стеснихме седем различни техники в тази статия, така че да можете да изберете идеалния вариант, който е най-подходящ за вашата конкретна ситуация. И така, надяваме се, че ще намерите решението, което сте търсили. Моля, оставете коментар, ако имате някакви предложения или въпроси. благодарим ви.