Электронные таблицы используются многими людьми в их повседневной работе, что делает их важным элементом их офиса. Хотя большинство людей используют электронные таблицы в достаточно простой манере, некоторые продвинутые пользователи находят их трудными или сложными. преобразование числа в слова в Excel. В данном руководстве мы рассмотрели этот вопрос и предоставили четыре различные методы, чтобы преобразование числа в слова в Excel. Кроме того, существуют три больше методов для преобразование чисел в текстовые форматы .

Скачать рабочую тетрадь

Вы можете скачать рабочую тетрадь, которую мы использовали в этой статье, ниже и потренироваться с ней самостоятельно.

4 способа преобразования чисел в слова в Excel

В этом разделе статьи рассказывается о том, как преобразовывать числа в слова в Excel. Кроме того, мы продемонстрируем четыре техники для выполнения операции. Для проведения сеанса мы будем использовать Версия Microsoft 365 .

1. использование комбинированных функций в Excel для преобразования чисел в слова

Формула Excel, которую мы здесь использовали, опирается на четыре функции. СЛЕВА , MID , ТЕКСТ , и ВЫБРАТЬ функции.

Во-первых, синтаксис СЛЕВА функция выглядит следующим образом:

В основном, эта функция используется для извлечения символов из текста.

Текст: Текстовая строка, из которой нужно извлечь символы.

num_chars [Необязательно]: Количество символов для извлечения. Начинается слева. По умолчанию, num_chars=1 .

Во-вторых, синтаксис MID функция выглядит следующим образом:

На самом деле, эта функция используется для извлечения текста из строки.

Текст: Текст для извлечения.

start_num: Расположение первого символа для извлечения.

num_chars: Количество символов для извлечения.

В-третьих, синтаксис ТЕКСТ функция выглядит следующим образом:

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

ценность: Число для преобразования.

format_text: Используемый формат числа.

Далее, синтаксис ВЫБРАТЬ функция выглядит следующим образом:

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

index_num: Значение для выбора. Число между 1 и 254 .

значение1: Первое значение, из которого можно выбирать.

значение2 [необязательно]: Второе значение, из которого можно выбирать.

• Здесь мы преобразуем число в Числа в словах колонна.

• Теперь запишите следующую формулу в 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,,," Twenty"," Thirty"," Forty"," Fifty"," Sixty"," Seventy"," Eighty"," Ninety")

&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, "Десять", "Одиннадцать", "Двенадцать", "Тринадцать", "Четырнадцать", "Пятнадцать", "Шестнадцать", "Семнадцать", "Восемнадцать", "Девятнадцать").

Вся формула может показаться сложной на первый взгляд, но по сути это повторение одной части. Итак, если вы сможете понять, что такое первый часть формулы, вы должны быть в состоянии понять остальное.

• После этого нажмите ENTER .

В результате вы увидите следующий результат.

Формула разбивки:

Вначале ТЕКСТ функция используется здесь для того, чтобы превратить число в "000000000.00" текстовый формат.

TEXT(B7,”000000000.00″)

После этого СЛЕВА Функция используется для извлечения крайнего левого символа из числа. Это позволяет нам определить, является ли возвращаемое число ноль или любое другое значение.

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 .., Г-н Пит М. придумал эту формулу.

• Теперь вы можете написать формулу для остальных строк или просто использовать Функция автозаполнения в Excel .

Наконец, вы получите все преобразование чисел в слова .

Читать далее: Как преобразовать число в текст с 2 десятичными знаками в Excel (5 способов)

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

Вы можете подать заявку VLOOKUP функция для преобразование чисел в слова Здесь сначала нужно вставить все числа в слова, а затем использовать эту функцию для преобразования из них любого числа в слова.

Шаги:

• Во-первых, запишите все числа словами вручную в Колонка C .

• Теперь используйте следующую формулу в C12 клетка.

• Затем нажмите ENTER .

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

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

• Во-первых, B12 это значение поиска, которое он ищет в данной таблице.
• Во-вторых, B4:C9 это массив таблиц в котором он ищет целевое значение .
• В-третьих, 2 это количество столбцов в таблице, из которых должно быть возвращено значение.
• В-четвертых, Ложь обозначает точно матч.

Читать далее: Как преобразовать число в текст для VLOOKUP в Excel (2 способа)

Похожие чтения

• Как преобразовать число в текст в Excel с помощью апострофа
• Преобразование числа в текст с помощью зеленого треугольника в Excel
• Как преобразовать число в текст с помощью запятых в Excel (3 простых способа)
• Преобразование числа в текст без научной нотации в Excel
• Как преобразовать число песо в слова в Excel (с помощью простых шагов)

3. Использование VBA для преобразования чисел в слова в Excel

Самое интересное, что вы можете создать свой собственная функция на преобразовать числа в слова в Excel. Более того, вы можете использовать код VBA разработать определено Функция. Шаги приведены ниже.

Шаги :

• Во-первых, вы должны выбрать Разработчик вкладка>>, затем выберите Visual Basic.

• Теперь из Вставка вкладку>> необходимо выбрать Модуль .

• В это время вам необходимо записать следующее Код в Модуль .

 Function 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 If x_T "" Then x_output = x_T& x_P(x_cnt) & x_output End If 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 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 = "and " 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 = "and " 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 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 

• Теперь вам нужно сохранить код .
• Затем вам необходимо перейти к рабочий лист Excel .

В это время вы можете использовать свой определено Для этого необходимо выполнить следующие действия.

Шаги:

• Теперь выберите ячейку, в которой вы хотите показать преобразованный результат. (В нашем случае ячейка C5 ).
• Затем введите Знак равенства (=) в ячейке. Это позволит вам вводить формулы.
• После этого введите " = число_преобразование_в_слова " или выберите число_преобразование_в_слова функцию из выпадающего меню.
• Затем выделите ячейку с числовым значением, которое вы хотите преобразовать в слова (В нашем случае ячейка B5 ).
• Наконец, нажмите кнопку ENTER кнопка.

В результате она преобразует номер выбранной ячейки в соответствующие слова. Наконец, вы можете просто скопировать эту формулу и в остальные ячейки.

Читать далее: Как преобразовать числовое значение в английские слова в Excel

4. Использование VBA для записи валют в Excel

Этот метод похож на предыдущий. Он также работает путем вставки модуля с помощью VBA (Visual Basic for Application) и использовать его как функцию. От предыдущего метода он отличается тем, что в нем конвертирует числа в соответствующие валютные слова. Кроме того, ниже приводится пример.

Теперь выполните следующие шаги, чтобы применить этот метод:

• Во-первых, следуйте метод-3 чтобы вставить модуль.
• Во-вторых, запишите следующий код в Модуль 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 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 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 "Один" converted_into_dollar = " один доллар" Case Else converted_into_dollar = converted_into_dollar & "Доллары" End Select Select Select Case converted_into_cent Case "" converted_into_cent = " и ноль центов" Case "Один"converted_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= "десять" Case 11: my_output = "одиннадцать" Case 12: my_output = "двенадцать" Case 13: my_output = "тринадцать" Case 14: my_output = "четырнадцать" Case 15: my_output = "пятнадцать" Case 16: my_output = "шестнадцать" Case 17: my_output = "семнадцать" Case 18: my_output = "восемнадцать" Case 19: my_output = "девятнадцать" Case Else End Select ElseSelect 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 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 клетка.

• После этого нажмите ENTER .

• Наконец, используйте Excel Функция автозаполнения для остальных клеток C6:C9 .

Наконец, вы получите всю конвертированную сумму.

Читать далее: Как преобразовать число в текст и сохранить нули в конце текста в Excel (4 способа)

Как преобразовать число в текстовый формат в Excel

До сих пор мы говорили о как преобразовать числа в слова в Excel. В этом разделе статьи объясняется, как перевести числа в текстовый формат в Excel. Это самый простой и быстрый метод преобразования чисел в текст.

Чтобы применить этот метод, выполните следующие действия:

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

В результате он преобразует числовые значения выбранных ячеек в текст. Вы можете понять это, обратив внимание на выравнивание. По умолчанию в Excel тексты выравниваются по левому краю, а числа - по правому.

Или вы можете нажать CTRL+1 чтобы открыть окно с именем Форматирование ячеек и выберите Номер и выберите Текст категорию оттуда.

Читать далее: Excel VBA для преобразования числа в текст (4 примера)

Практическая секция

Для выполнения практических заданий мы добавили раздел "Практика" на каждом листе в правой части.

Заключение

Здесь мы постарались сделать эту статью окончательным руководством о том, как преобразовать число в соответствующие слова или текст в MS Excel Более того, мы сузили семь различные техники в этой статье, чтобы вы могли выбрать идеальный вариант, который лучше всего подходит для вашей конкретной ситуации. итак, мы надеемся, что вы нашли решение, которое искали. пожалуйста, оставьте комментарий, если у вас есть какие-либо предложения или вопросы. спасибо.