Ако имате колона с числови стойности във вашия работен лист и трябва да ги конвертирате в еквивалентните им думи, може би се чудите как да го направите. Excel няма формула, която може да направи това директно, но има няколко заобиколни решения, които можете да използвате, включително WPS AI, който конвертира числа в думи с проста команда. В тази статия ще ви покажем как да конвертирате числа в думи в Excel.
Част 1: Как да конвертирате числа в думи в Excel с помощта на VBA

Вашият Excel лист е пълен с числа и сега си представете как тези числа магически се превръщат в думи. Това е силата на макроса SpellNumber в очарователния свят на Excel. Нека хвърлим бърз поглед върху това как да добавите този макрос, подготвяйки сцената за предстоящата магия.
Пример: Трансформиране на числа в думи
Имате колона с числа в колона A, вариращи от 1 до 10. Искате да конвертирате тези числа в думи, добавяйки елегантен щрих към вашите данни. Нека разгледаме как да добавите макроса SpellNumber, за да постигнете това като подготовка за следващата стъпка.
Стъпка 1. Отворете Excel и отидете на раздела „Developer“. Ако не виждате този раздел, не се страхувайте! Той може лесно да бъде активиран в опциите на 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 беше изненадващо лесно. Следвах стъпките до раздела Developer и 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 Spreadsheet. Въпреки това ви каним да проучите отличителните предимства, които WPS Office предлага. Ето защо препоръчваме да обмислите WPS Office за вашите трансформиращи начинания в Excel:
1. Цена: WPS Office предлага достъпна алтернатива без компромис с функциите, което го прави рентабилен избор както за лична, така и за професионална употреба.
2. Съвместимост: Безпроблемно обменяйте документи между WPS Office и Microsoft Office, осигурявайки гладко сътрудничество и споделяне на документи.
3. Функции: WPS Office разполага с изчерпателен набор от функции, съперничещи на индустриалните стандарти и позволяващи ви да изпълнявате различни задачи с лекота. Той също така разполага с AI функции като AI писател и AI преводач на документи.
4. Удобен за потребителя интерфейс: Навигирането в WPS Office е изключително лесно, дори за начинаещи. Интуитивният интерфейс осигурява плавна крива на обучение и ефективен работен процес.
5. Открийте скрити съкровища: Потопете се в блога на WPS, за да откриете скрити съкровища, които ще подобрят вашите умения. От усъвършенствани техники до иновативни решения, всеки урок е стъпка към майсторството.
6. Бързо конвертиране на формати: За да подобри работната ви ефективност, WPS Office може също така бързо да конвертира Excel в PDF.
7. Повишаване на продуктивността с AI: WPS AI ускорява ежедневните ви задачи — от конвертиране на числа в думи в Excel с проста команда до автоматично генериране на формули, резюмиране на документи и превод на текст в реално време.
Част 4: Как да конвертирате числа в думи в Excel с WPS AI
Надграждайки методите без VBA, които току-що разгледахме, WPS AI предлага още по-интуитивен начин за конвертиране на числа в думи — с нулево ръчно изграждане на формули. Този базиран на AI подход допълнително рационализира процеса, правейки го достъпен за потребители с всички нива на умения.
Стъпка 1. В празна клетка започнете да пишете =WPSAI и щракнете двукратно върху функцията WPSAI от падащото меню.

Стъпка 2. Вътре в скобите на функцията посочете клетката, съдържаща целевото число, след което добавете командата.

Стъпка 3. Натиснете Enter и AI незабавно ще генерира словесния еквивалент на числото в тази клетка.

Стъпка 4. Плъзнете манипулатора за запълване надолу от първата конвертирана клетка, за да приложите същата AI конверсия към всички останали числа във вашата колона.


Числата в избраните клетки ще бъдат конвертирани в текст.
За разлика от статичните формули без VBA, които са обвързани с едно специфично правило за преобразуване, AI може да разбира команди на естествен език — така че ако някога ми се наложи да премина към различен стил, просто променям командата, вместо да преизграждам формула. Това също така елиминира необходимостта от запаметяване на сложен синтаксис или отстраняване на неизправности във вложени функции; AI поема тежката работа, така че мога да се съсредоточа върху данните си, а не върху механиката. След като статистиката е завършена, можете също да използвате функцията за конвертиране на 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 за подобрени офис задачи.





