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

Завантажити Робочий зошит

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

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

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

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

Формула Excel, яку ми використали тут, спирається на чотири Функції. ЛІВОРУЧ , MID , ТЕКСТ , і ВИБІР функції.

По-перше, синтаксис ЛІВОРУЧ Функція полягає в наступному:

В основному ця функція використовується для вилучення символів з тексту.

Текст: Текстовий рядок, з якого потрібно витягти символи.

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

По-друге, синтаксис MID Функція полягає в наступному:

Власне, ця функція використовується для вилучення тексту з рядка.

Текст: Текст для ознайомлення.

start_num: Місцезнаходження першого витягнутого символу.

num_chars: Кількість символів для вилучення.

По-третє, синтаксис закону "Про внесення змін до деяких законодавчих актів України", а саме ТЕКСТ Функція полягає в наступному:

В кінцевому підсумку ця функція перетворює число в текст у числовому форматі.

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

format_text: Формат числа, який потрібно використовувати.

Далі, синтаксис ВИБІР Функція полягає в наступному:

Ця функція отримує значення зі списку на основі позиції.

номер_індексу: Значення на вибір. Число між 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,, "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine"),

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

Вся формула може здатися складною на перший погляд, але по суті вона є повторенням однієї порції. Отже, якщо ви можете зрозуміти, що таке перший частину формули, ви повинні бути в змозі зрозуміти решту.

• Після цього необхідно натиснути 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 для перетворення чисел у слова

Ви можете подати заявку ВЗГЛЯД функція для перетворювати числа в слова Давайте зробимо по-іншому. Тут спочатку потрібно вставити всі числа словами, а потім за допомогою цієї функції можна перетворити будь-яке число в слова з них.

Сходинки:

• По-перше, запишіть всі цифри словами вручну в С колонка .

• Тепер, використовуйте наступну формулу в C12 в камері.

• Потім натисніть ENTER .

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

У даній формулі, як правило, використовується коефіцієнт ПЕРЕГЛЯД поверне значення з заданого масиву.

• По-перше, B12 шукане значення, яке вона шукає в даній таблиці.
• По-друге, B4:C9 це табличний масив в якому він шукає цільове значення .
• По-третє, 2 кількість стовпців у таблиці, з яких потрібно повернути значення.
• По-четверте, Неправда. позначає точний збігаються.

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

Схожі читання

• Як перетворити число в текст в Excel з апострофом
• Перетворення числа в текст за допомогою зеленого трикутника в Excel
• Як перетворити число в текст з комами в Excel (3 простих способи)
• Перетворення числа в текст без наукових позначень в Excel
• Як перетворити число песо в слова в Excel (за допомогою простих кроків)

3. використання VBA для перетворення числа в слова в 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 If x_T "" Then x_output = x_Tx_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)) & "Сотня" Else If y_b Then x_R_str = "і " y_bb = False Else x_R_str = "" y_bb = False 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("Десять", "Одинадцять", "Дванадцять", "Тринадцять", "Чотирнадцять", "П'ятнадцять", "Шістнадцять", "Сімнадцять","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 Функція get_digit(xDgt) Dim x_string As String Dim x_array_1() As Variant x_array_1 = Array ("Нульовий ","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_umber) Dim converted_into_dollar, converted_into_cent my_ary = Array("", "", "", " Thousand ", " Million ", " Billion ", " Trillion ") whole_umber = Trim(Str(whole_umber)) x_decimal = InStr(whole_umber, ".") If x_decimal> 0 Then converted_into_cent = get_ten(Left(Mid(whole_umber, x_decimal + 1) & "00", 2)) entire_umber = whole_umberTrim(Left(ціле_число, x_десяткове - 1)) End If xIndex = 1 Do While ціле_число "" xHundred = "" xValue = Right(ціле_число, 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)) & " Сотня " 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(ціле_число)> 3 Then whole_число = Left(ціле_число, Len(ціле_число) - 3) Else whole_число = "" 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 Case converted_into_cent Case "" converted_into_cent = " і нульовий цент" Case "Один"converted_into_cent = " and One Cent" Case Else converted_into_cent = " and " & 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= Case 11: my_output = "Ten" Case 12: my_output = "Twelve" Case 13: my_output = "Thirteen" Case 14: my_output = "Fourteen" Case 15: my_output = "Pifteen" Case 16: my_output = "Sixteen" Case 17: my_output = "Seventeen" Case 18: my_output = "Eighteen" Case 19: my_output = "Nineteen" Case 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 = "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Функція 

В результаті ви зможете використовувати свої визначений назва функції Конвертувати_Номер_в_слово_з_валютою Для цього необхідно виконати наступні кроки.

Сходинки:

• Тепер вам потрібно вибрати комірку, в якій ви хочете зберегти результат. Ми вибрали комірку C5 в камеру.
• Після цього необхідно використати відповідну формулу у вікні C5 в камері.

• Після цього необхідно натиснути ENTER .

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

В кінці ви отримаєте всю конвертовану суму.

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

Як конвертувати число в текстовий формат в Excel

Досі ми говорили про як перетворити числа в слова У цьому розділі статті пояснюється, як змінити цифри на текстовий формат Це найпростіший і найшвидший спосіб перетворення чисел у текст. Це найпростіший і найшвидший спосіб перетворення чисел у текст.

Щоб застосувати цей метод, виконайте наступні кроки:

• Спочатку виділяємо комірку або комірки з числовими значеннями, які потрібно перетворити в текст (в нашому випадку комірку C5:C9 )
• По-друге, зверніться до Головна сторінка і виберіть вкладку Текст зі спадного меню категорії клітинок під кнопкою Кількість розділ.

В результаті він перетворить числове значення вибраних клітинок у текст. Ви можете зрозуміти це, звернувши увагу на вирівнювання. За замовчуванням в Excel тексти вирівнюються по лівому краю, а числа - по правому.

Або ви можете натиснути CTRL+1 відкрити вікно з назвою Формат комірок і виберіть пункт Кількість а потім виберіть опцію Текст категорії звідти.

Читати далі: Excel VBA для перетворення чисел у текст (4 приклади)

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

Для виконання практичних завдань ми додали на кожному аркуші праворуч частину "Практика".

Висновок

Тут ми спробували зробити цю статтю остаточним посібником про те, як перетворити число на відповідні слова або текст у MS Excel Крім того, ми звузили коло сім різні методики в цій статті, щоб ви могли вибрати ідеальний варіант, який найкраще підходить для вашої конкретної ситуації. Отже, ми сподіваємося, що ви знайдете рішення, яке шукали. Будь ласка, залиште коментар, якщо у вас є якісь пропозиції або запитання. Дякуємо.