Якщо на вашому аркуші є стовпець із числовими значеннями, і вам потрібно перетворити їх на відповідні слова англійською мовою, ви, мабуть, думаєте, як це зробити. В Excel немає функції, яка б робила це безпосередньо, але є кілька обхідних шляхів, зокрема WPS AI, який перетворює числа на слова за допомогою простого запиту. У цій статті ми покажемо вам, як перетворити числа на слова в Excel.
Частина 1: Як перетворити числа на слова в Excel за допомогою VBA

Ваш аркуш Excel заповнений числами, а тепер уявіть, як ці числа магічним чином перетворюються на слова. У цьому полягає сила макросу SpellNumber у чарівному світі Excel. Давайте коротко розглянемо, як додати цей макрос, готуючи підґрунтя для майбутньої магії.
Приклад: Перетворення чисел на слова
У вас є стовпець чисел у стовпці А (від 1 до 10). Ви хочете перетворити ці числа на слова, додавши елегантності вашим даним. Давайте подивимося, як додати макрос SpellNumber, щоб досягти цього під час підготовки до наступного кроку.
Крок 1. Відкрийте Excel і перейдіть на вкладку "Розробник". Якщо ви не бачите цієї вкладки, не хвилюйтеся! Її можна легко ввімкнути в параметрах Excel.


Крок 2. Натисніть "Visual Basic", щоб відкрити редактор VBA.

Крок 3. У редакторі VBA перейдіть до "Insert" і виберіть "Module". Саме тут почнеться магія.

Крок 4. Скопіюйте та вставте код макросу SpellNumber з наших довідкових посилань нижче до модуля.
Function SpellNumber(ByVal MyNumber) 'Update by Extendoffice Dim xStr As String Dim xFNum As Integer Dim xStrPoint Dim xStrNumber Dim xPoint As String Dim xNumber As String Dim xP() As Variant Dim xDP Dim xCnt As Integer Dim xResult, xT As String Dim xLen As Integer On Error Resume Next xP = Array("", "Thousand ", "Million ", "Billion ", "Trillion ", " ", " ", " ", " ") xNumber = Trim(str(MyNumber)) xDP = InStr(xNumber, ".") xPoint = "" xStrNumber = "" If xDP > 0 Then xPoint = " point " xStr = Mid(xNumber, xDP + 1) xStrPoint = Left(xStr, Len(xNumber) - xDP) For xFNum = 1 To Len(xStrPoint) xStr = Mid(xStrPoint, xFNum, 1) xPoint = xPoint & GetDigits(xStr) & " " Next xFNum xNumber = Trim(Left(xNumber, xDP - 1)) End If xCnt = 0 xResult = "" xT = "" xLen = 0 xLen = Int(Len(str(xNumber)) / 3) If (Len(str(xNumber)) Mod 3) = 0 Then xLen = xLen - 1 Do While xNumber <> "" If xLen = xCnt Then xT = GetHundredsDigits(Right(xNumber, 3), False) Else If xCnt = 0 Then xT = GetHundredsDigits(Right(xNumber, 3), True) Else xT = GetHundredsDigits(Right(xNumber, 3), False) End If End If If xT <> "" Then xResult = xT & xP(xCnt) & xResult End If If Len(xNumber) > 3 Then xNumber = Left(xNumber, Len(xNumber) - 3) Else xNumber = "" End If xCnt = xCnt + 1 Loop xResult = xResult & xPoint SpellNumber = xResult End Function Function GetHundredsDigits(xHDgt, xB As Boolean) Dim xRStr As String Dim xStrNum As String Dim xStr As String Dim xI As Integer Dim xBB As Boolean xStrNum = xHDgt xRStr = "" On Error Resume Next xBB = True If Val(xStrNum) = 0 Then Exit Function xStrNum = Right("000" & xStrNum, 3) xStr = Mid(xStrNum, 1, 1) If xStr <> "0" Then xRStr = GetDigits(Mid(xStrNum, 1, 1)) & "Hundred " Else If xB Then xRStr = "and " xBB = False Else xRStr = " " xBB = False End If End If If Mid(xStrNum, 2, 2) <> "00" Then xRStr = xRStr & GetTenDigits(Mid(xStrNum, 2, 2), xBB) End If GetHundredsDigits = xRStr End Function Function GetTenDigits(xTDgt, xB As Boolean) Dim xStr As String Dim xI As Integer Dim xArr_1() As Variant Dim xArr_2() As Variant Dim xT As Boolean xArr_1 = Array("Ten ", "Eleven ", "Twelve ", "Thirteen ", "Fourteen ", "Fifteen ", "Sixteen ", "Seventeen ", "Eighteen ", "Nineteen ") xArr_2 = Array("", "", "Twenty ", "Thirty ", "Forty ", "Fifty ", "Sixty ", "Seventy ", "Eighty ", "Ninety ") xStr = "" xT = True On Error Resume Next If Val(Left(xTDgt, 1)) = 1 Then xI = Val(Right(xTDgt, 1)) If xB Then xStr = "and " xStr = xStr & xArr_1(xI) Else xI = Val(Left(xTDgt, 1)) If Val(Left(xTDgt, 1)) > 1 Then If xB Then xStr = "and " xStr = xStr & xArr_2(Val(Left(xTDgt, 1))) xT = False End If If xStr = "" Then If xB Then xStr = "and " End If End If If Right(xTDgt, 1) <> "0" Then xStr = xStr & GetDigits(Right(xTDgt, 1)) End If End If GetTenDigits = xStr End Function Function GetDigits(xDgt) Dim xStr As String Dim xArr_1() As Variant xArr_1 = Array("Zero ", "One ", "Two ", "Three ", "Four ", "Five ", "Six ", "Seven ", "Eight ", "Nine ") xStr = "" On Error Resume Next xStr = xArr_1(Val(xDgt)) GetDigits = xStr End Function |
|---|
Крок 5. Закрийте редактор VBA і поверніться до свого аркуша Excel.

Мій досвід додавання макросу SpellNumber:
Інтеграція макросу SpellNumber в Excel виявилася напрочуд простою. Я виконав кроки на вкладці «Розробник» і в редакторі VBA, де додав код макросу для словесного позначення сум, що використовується в бухгалтерії. Мене зацікавило, як числа можуть перетворюватися на текст. З усім тим, я навчився бути обережним; макроси вимагають точності, щоб уникнути порушення роботи таблиці. Наявність резервної копії та розуміння структури VBA дуже допомогли. Цей досвід відкриває нові можливості Excel, поєднуючи логіку з креативністю.
Ваші аркуші Excel стають полотном для лінгвістичної магії. У Частині 2 ми даємо вам ключ до використання макросу SpellNumber — потужного інструменту, який перетворює ваші числові дані на красномовну симфонію слів. Ознайомтеся з практичними прикладами, які освітлюють шлях до майстерності, і спостерігайте, як ваші дані змінюються просто на очах, керуючись мистецтвом цього дивовижного макросу.
Приклад: Перетворення числових даних на слова
Крок 1. Відкрийте аркуш Excel із числовими даними, які потрібно перетворити.
Крок 2. Виберіть сусідній стовпець. Використаймо стовпець B для перетворених слів.
Крок 3. У першій клітинці стовпця B введіть =SpellNumber(A1).

Крок 4. Натисніть Enter і спостерігайте, як число в клітинці A1 елегантно перетворюється на слова в клітинці B1.
Крок 5. Щоб перетворити більше чисел, потягніть формулу вниз, дозволяючи макросу SpellNumber працювати далі.

Мій досвід використання макросу SpellNumber:
Спроба використання макросу SpellNumber дала новий погляд на речі, оскільки числа перетворилися на слова, що додало свіжості моїм даним. Процес виявився простим, розкриваючи потенціал для покращення комунікації. Однак варто бути обережним; точність має значення. Невеликий прорахунок може призвести до несподіваних результатів. Розуміння макросу та ретельна перевірка введених даних є запорукою успіху.
Частина 2: Як перетворити числа на слова в Excel без VBA
Навігація у складному середовищі VBA може здатися складною, але не варто боятися — існує простіший шлях для здійснення чарівного перетворення чисел на слова. Цей альтернативний підхід, що використовує визначену користувачем функцію, пропонує оптимізований метод, який зберігає ту саму привабливу трансформацію. Виконуючи наведені нижче кроки, ми розкриємо цю інноваційну техніку, що дозволить вам легко наповнити свої дані ліричним шармом слів, уникаючи при цьому складнощів VBA.
Переваги використання макросу SpellNumber:
1. Простота використання: Визначена користувачем функція відзначається простотою. Не потрібні знання VBA, що робить її доступною для ширшої аудиторії.
2. Універсальна доступність: На відміну від макросів, які потрібно інтегрувати в кожну книгу, функція мандрує разом з аркушем, забезпечуючи безперешкодний обмін даними.
3. Жодних попереджень про макроси: Попрощайтеся з надокучливими попередженнями про макроси під час спільного використання ваших книг. Функція працює у фоновому режимі, елегантно перетворюючи числа на слова.
Недоліки використання макросу для SpellNumber в Excel:
1. Володіння VBA: Макроси вимагають навичок VBA для налаштування, що потенційно обмежує тих, хто не знайомий із програмуванням.
2. Прив'язка до книги: Макроси необхідно копіювати або вбудовувати в кожну робочу книгу, що додає складності та вимагає зусиль для підтримки.
3. Попередження про макроси: Спільний доступ до робочої книги з макросами може викликати попередження, що може спричинити занепокоєння щодо безпеки.
А тепер давайте підемо мальовничим маршрутом і побачимо майстерність цього методу (за допомогою комбінацій формул, доступних в Excel) на практичному прикладі.
Як перетворити числа на слова в Excel без VBA
Приклад: Перетворення чисел на слова за допомогою формули
Крок 1. Відкрийте аркуш Excel із числовими даними, які ви хочете перетворити.

Крок 2. Виберіть стовпець поруч із числами. Використаймо стовпець B для перетворених слів.
Крок 3. У першій клітинці стовпця B введіть формулу
=IF(OR(LEN(FLOOR(A1,1))=13,FLOOR(A1,1)<=0),"out of="" range="">1,CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),3,1)+1,""," one"," two"," three"," four"," five"," six"," seven"," eight"," nine"),IF(VALUE(MID(TEXT(INT(A1),REPT(0,12)),2,1))=0,CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),3,1)+1,"","one","two","three","four","five","six","seven","eight","nine"),"")),IF(A1>=10^9," billion ",""),CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),4,1)+1,"","one hundred ","two hundred ","three hundred ","four hundred ","five hundred ","six hundred ","seven hundred ","eight hundred ","nine hundred "),CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),5,1)+1,"",CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),6,1)+1,"ten","eleven","twelve","thirteen","fourteen","fifteen","sixteen","seventeen","eighteen","nineteen"),"twenty","thirty","forty","fifty","sixty","seventy","eighty","ninety"),IF(VALUE(MID(TEXT(INT(A1),REPT(0,12)),5,1))>1,CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),6,1)+1,""," one"," two"," three"," four"," five"," six"," seven"," eight"," nine"),IF(VALUE(MID(TEXT(INT(A1),REPT(0,12)),5,1))=0,CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),6,1)+1,"","one","two","three","four","five","six","seven","eight","nine"),"")),IF(VALUE(MID(TEXT(INT(A1),REPT(0,12)),4,3))>0," million ",""),CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),7,1)+1,"","one hundred ","two hundred ","three hundred ","four hundred ","five hundred ","six hundred ","seven hundred ","eight hundred ","nine hundred "),CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),8,1)+1,"",CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),9,1)+1,"ten","eleven","twelve","thirteen","fourteen","fifteen","sixteen","seventeen","eighteen","nineteen"),"twenty","thirty","forty","fifty","sixty","seventy","eighty","ninety"),IF(VALUE(MID(TEXT(INT(A1),REPT(0,12)),8,1))>1,CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),9,1)+1,""," one"," two"," three"," four"," five"," six"," seven"," eight"," nine"),IF(VALUE(MID(TEXT(INT(A1),REPT(0,12)),8,1))=0,CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),9,1)+1,"","one","two","three","four","five","six","seven","eight","nine"),"")),IF(VALUE(MID(TEXT(INT(A1),REPT(0,12)),7,3))," thousand ",""),CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),10,1)+1,"","one hundred ","two hundred ","three hundred ","four hundred ","five hundred ","six hundred ","seven hundred ","eight hundred ","nine hundred "),CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),11,1)+1,"",CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),12,1)+1,"ten","eleven","twelve","thirteen","fourteen","fifteen","sixteen","seventeen","eighteen","nineteen"),"twenty","thirty","forty","fifty","sixty","seventy","eighty","ninety"),IF(VALUE(MID(TEXT(INT(A1),REPT(0,12)),11,1))>1,CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),12,1)+1,""," one"," two"," three"," four"," five"," six"," seven"," eight"," nine"),IF(VALUE(MID(TEXT(INT(A1),REPT(0,12)),11,1))=0,CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),12,1)+1,"","one","two","three","four","five","six","seven","eight","nine"),"")))," "," ")&IF(FLOOR(A1,1)>1," "," "))&IF(ISERROR(FIND(".",A1,1)),""," point "&PROPER(IF(LEN(LEFT(TRIM(MID(SUBSTITUTE('Number to Word Without VBA'!A1,".",REPT(" ",255)),255,200)),2))=1,CHOOSE(1*LEFT(TRIM(MID(SUBSTITUTE('Number to Word Without VBA'!A1,".",REPT(" ",255)),255,200)),2),"One","Two","Three","Four","Five","Six","Seven","Eight","Nine")&" ","")&CONCATENATE(CHOOSE(MID(TEXT(INT(LEFT(TRIM(MID(SUBSTITUTE('Number to Word Without VBA'!A1,".",REPT(" ",255)),255,200)),2)),REPT(0,12)),11,1)+1,"",CHOOSE(MID(TEXT(INT(LEFT(TRIM(MID(SUBSTITUTE('Number to Word Without VBA'!A1,".",REPT(" ",255)),255,200)),2)),REPT(0,12)),12,1)+1,"One","One One","One Two","One Three","One Four","One Five","One Six","One Seven","One Eight","One Nine")&" ","Two","Three","Four","Five","Six","Seven","Eight","Nine"),IF(VALUE(MID(TEXT(INT(LEFT(TRIM(MID(SUBSTITUTE('Number to Word Without VBA'!A1,".",REPT(" ",255)),255,200)),2)),REPT(0,12)),11,1))>1,CHOOSE(MID(TEXT(INT(LEFT(TRIM(MID(SUBSTITUTE('Number to Word Without VBA'!A1,".",REPT(" ",255)),255,200)),2)),REPT(0,12)),12,1)+1,""," One"," Two"," Three"," Four"," Five"," Six"," Seven"," Eight"," Nine")&" ",IF(LEFT(TRIM(MID(SUBSTITUTE('Number to Word Without VBA'!A1,".",REPT(" ",255)),255,200)),2)="01","one ",IF(LEFT(TRIM(MID(SUBSTITUTE('Number to Word Without VBA'!A1,".",REPT(" ",255)),255,200)),1)="0",CHOOSE(MID(TEXT(INT(LEFT(TRIM(MID(SUBSTITUTE('Number to Word Without VBA'!A1,".",REPT(" ",255)),255,200)),2)),REPT(0,12)),12,1)+1,"","One","Two","Three","Four","Five","Six","Seven","Eight","Nine")&" ",""))))))) |
|---|
Крок 4. Натисніть Enter і спостерігайте, як число у клітинці A2 витончено перетворюється на слова в клітинці B2.

Крок 5. Щоб перетворити додаткові числа, потягніть формулу вниз, розкриваючи магічну метаморфозу.

Мій досвід використання визначеної користувачем функції:
Досліджуючи функції, визначені користувачем, я оцінив простоту, яку вони забезпечують — жодного складного кодування VBA або заплутаних налаштувань. Лише проста формула для перетворення чисел на слова, що додає унікальності Excel. Проте, попередження: добре розуміння функції є ключовим. Протестуйте її в різних сценаріях, щоб переконатися в точності. Цей практичний висновок підкреслює цінність функції, водночас наголошуючи на важливості обережного використання для досягнення найкращих результатів.
Частина 3: Чому варто використовувати WPS Office?

Важливо зазначити, що досліджені нами досі методи застосовні не лише до Microsoft Excel, але й до електронних таблиць WPS Office. Проте ми запрошуємо вас вивчити відмінні переваги, які пропонує WPS Office. Ось чому ми рекомендуємо вам розглянути WPS Office для ваших трансформаційних завдань в Excel:
1. Ціна: WPS Office пропонує доступну альтернативу без шкоди для функціональності, що робить його економічно вигідним вибором як для особистого, так і для професійного використання.
2. Сумісність: Безперешкодно обмінюйтеся документами між WPS Office та Microsoft Office, забезпечуючи плавну співпрацю та спільне використання документів.
3. Функції: WPS Office може похвалитися комплексним набором функцій, що відповідає галузевим стандартам і дозволяє вам з легкістю виконувати різноманітні завдання. Він також має функції на основі ШІ, такі як AI Writer та інструмент перекладу документів за допомогою ШІ.
4. Зручний інтерфейс: Навігація у WPS Office — це дуже просто, навіть для новачків. Інтуїтивно зрозумілий інтерфейс забезпечує швидке навчання та ефективний робочий процес.
5. Відкрийте приховані перлини: Загляньте у Блог WPS, щоб знайти приховані перлини, які розширять ваші навички. Від передових методів до інноваційних рішень — кожен посібник є кроком до майстерності.
6. Швидке перетворення форматів: Для підвищення ефективності вашої роботи WPS Office також може швидко перетворити Excel на PDF.
7. Підвищення продуктивності за допомогою ШІ: WPS AI прискорює виконання щоденних завдань — від перетворення чисел на слова в Excel за допомогою простого запиту до автоматичного генерування формул, підбиття підсумків документів і перекладу тексту в реальному часі.
Частина 4: Як перетворити числа на слова в Excel за допомогою WPS AI
Спираючись на щойно розглянуті методи без VBA, WPS AI пропонує ще інтуїтивніший спосіб перетворення чисел на слова — взагалі без ручного створення формул. Цей підхід на основі штучного інтелекту ще більше спрощує процес, роблячи його доступним для користувачів будь-якого рівня підготовки.
Крок 1. У порожній клітинці почніть вводити =WPSAI і двічі клацніть функцію WPSAI у спадному меню.

Крок 2. Усередині дужок функції вкажіть посилання на клітинку з потрібним числом, а потім додайте запит.

Крок 3. Натисніть Enter, і ШІ миттєво згенерує словесний еквівалент числа в цій клітинці.

Крок 4. Потягніть маркер заповнення вниз від першої перетвореної клітинки, щоб застосувати таке саме перетворення ШІ до всіх інших чисел у вашому стовпці.


Числа у виділених клітинках будуть перетворені на текст.
На відміну від статичних формул без VBA, які прив'язані до одного конкретного правила перетворення, штучний інтелект розуміє запити природною мовою — тож, якщо мені коли-небудь знадобиться змінити стиль, я просто зміню запит, замість того щоб переробляти формулу. Це також позбавляє необхідності запам'ятовувати складний синтаксис або усувати несправності у вкладених функціях; ШІ бере на себе важку роботу, тому я можу зосередитися на своїх даних, а не на механіці. Після завершення підрахунків ви також можете скористатися функцією перетворення WPS Office, зокрема Excel у PDF.
Поширені запитання про те, як перетворити числа на слова в Excel
Чи можу я виконати зворотне перетворення слів на числа?
Безумовно! Зворотне перетворення — зі слів на числа — справді можливе у WPS Office за допомогою коду VBA. Хоча в цьому обговоренні ми зосередилися на перетворенні чисел на слова, важливо зазначити, що WPS Office надає універсальні інструменти для виконання обох видів перетворення.
Чи можу я перетворити числа на слова в один клік?
Безумовно, перетворення чисел на слова всього за один клік — це дуже просто завдяки чудовим можливостям WPS Office (з використанням VBA або комбінацій доступних формул). Цей оптимізований процес спрощує ваші завдання, економлячи ваш дорогоцінний час і зусилля.
Що таке VBA і як швидко його вивчити?
VBA — це мова програмування від Microsoft, яка використовується для автоматизації завдань і створення користувацьких рішень у програмах Office, таких як Excel, Word та PowerPoint.
Швидке вивчення VBA:
Основи: Зрозумійте такі концепції програмування, як змінні та цикли.
Редактор VBA: Відкривайте його в програмах Office для написання коду.
Приклади: Вивчайте прості приклади коду.
Запис макросів: Навчайтеся, записуючи дії.
Онлайн-ресурси: Використовуйте посібники та курси.
Практика: Регулярно пишіть код для невеликих проєктів.
Документація: Ознайомтеся з документацією VBA від Microsoft.
Спільноти: Спілкуйтеся на онлайн-форумах.
Створення: Створюйте власні макроси для реальних завдань.
Налагодження: Навчіться виправляти помилки в коді.
Допитливість: Продовжуйте досліджувати та експериментувати.
Оволодіння VBA підвищує продуктивність і пропонує індивідуальні рішення.
Що робити, якщо файл пошкодиться в процесі перетворення?
Як правило, проблем із пошкодженням файлів не виникає. Однак, якщо пошкодження файлу все ж сталося під час процесу перетворення, не хвилюйтеся — ви можете скористатися інструментом відновлення файлів WPS, щоб відновити файл Excel.
Підсумок
У цьому посібнику ми розглянули різні способи перетворення чисел на слова в Excel, зосередившись як на макросах VBA, так і на функціях, визначених користувачем. Ми надали чіткі покрокові інструкції та приклади для кожного методу. Наголошуючи на перевагах WPS Office, ми підкреслили його сумісність з Excel, зручні функції та доступність, а також його потужний ШІ — WPS AI, який спрощує перетворення чисел на слова за допомогою одного швидкого запиту. WPS також надає вам переглядач XLSX, який допоможе миттєво відкривати та переглядати файли Excel. Незалежно від того, що ви виберете — VBA чи функції, визначені користувачем, цей посібник озброїть вас знаннями для безперешкодного перетворення чисел на слова, одночасно даючи змогу оцінити переваги використання WPS Office для покращеного виконання офісних завдань.





