У гэтым артыкуле я пакажу вам два хуткія і бясплатныя спосабы пераўтварэння валютных лікаў у ангельскія словы ў Excel 2019, 2016, 2013 і іншых версіях.

Microsoft Excel - выдатны Праграма для разліку таго і гэтага. Першапачаткова ён быў распрацаваны для апрацоўкі вялікіх масіваў дадзеных. Тым не менш, гэта таксама дазваляе хутка і эфектыўна ствараць бухгалтарскія запісы, такія як рахункі-фактуры, ацэначныя або балансавыя справаздачы.

У больш-менш цвёрдых плацежных дакументах неабходна дубляваць лікавыя значэнні з іх словам. Надрукаваныя лічбы значна цяжэй падрабіць, чым напісаныя ад рукі. Некаторыя махляры могуць паспрабаваць зрабіць 8000 з 3000, у той час як таемна замяніць "тры" на "восем" практычна немагчыма.

Такім чынам, вам трэба не проста пераўтварыць лічбы ў словы ў Excel (напрыклад, 123,45 у «сто дваццаць тры, сорак пяць»), але пісаць даляры і цэнты (напрыклад, $29,95 як «дваццаць дзевяць даляраў і дзевяноста дзевяць цэнтаў»), фунты і пенсы для GBP, еўра і еўрацэнты для EUR і г.д.

Нават апошнія версіі Excel не маюць убудаванага інструмента для напісання лічбаў, не кажучы ўжо пра больш раннія версіі. Але тады Excel сапраўды добры. Вы заўсёды можаце палепшыць яго функцыянальнасць, выкарыстоўваючы формулы ва ўсіх іх

камбінацыях, макрасы VBA або староннія надбудовы.

Ніжэй вы знойдзеце два спосабы пераўтварэння лікаў з лічбы да слоў

І, магчыма, вам можа спатрэбіццаканвертаваць словы ў лічбы ў Excel

Заўвага. Калі вы шукаеце пераўтварэнне ліку ў тэкст , што азначае, што вы хочаце, каб Excel бачыў ваш лік у выглядзе тэксту, гэта крыху іншая рэч. Для гэтага вы можаце выкарыстоўваць функцыю ТЭКСТ або некалькі іншых спосабаў, апісаных у раздзеле Як змяніць лічбы на тэкст у Excel.

Макрас SpellNumber VBA для пераўтварэння лічбаў у словы

Як я ўжо згадваў , Microsoft не хацела дадаваць інструмент для гэтай задачы. Аднак калі яны ўбачылі, колькім карыстальнікам гэта патрэбна, яны стварылі і апублікавалі спецыяльны макрас VBA на сваім сайце. Макрас робіць тое, што мяркуе яго назва SpellNumber. Усе іншыя макрасы, якія я сустракаў, заснаваныя на кодзе Microsoft.

Вы можаце знайсці макрас, згаданы як "формула нумара заклінання". Аднак гэта не формула, а макрафункцыя, ці, дакладней, вызначаная карыстальнікам функцыя Excel (UDF).

Параметр spellnumber можа пісаць даляры і цэнты. Калі вам патрэбна іншая валюта, вы можаце замяніць " долар " і " цэнт " на назву вашай валюты.

Калі вы не разбіраецеся ў VBA , ніжэй вы знойдзеце копію кода. Калі вы ўсё яшчэ не хочаце ці не маеце часу разабрацца з гэтым, скарыстайцеся гэтым рашэннем.

1. Адкрыйце сшытак, дзе вам трэба напісаць лічбы.
2. Націсніце Alt +F11, каб адкрыць акно рэдактара Visual Basic.
3. Калі ў вас адкрыта некалькі кніг, праверце, ці актыўная неабходная кніга, выкарыстоўваючыспіс праектаў у левым верхнім куце рэдактара (адзін з элементаў працоўнай кнігі вылучаны сінім).
4. У меню рэдактара перайдзіце да Уставіць -> Модуль .
5. Вы павінны ўбачыць акно з назвай YourBook - Module1. Выберыце ўвесь код у кадры ніжэй і ўстаўце яго ў гэтае акно.

   Option Explicit 'Асноўная функцыя Функцыя SpellNumber( ByVal MyNumber) Dim Dollars, Cents, Temp Dim DecimalPlace, Count ReDim Place(9) As String Place(2) = " Thousand " Place(3) = " Million " Месца(4) = " Мільярд " Месца(5) = " Трыльён " MyNumber = Trim(Str(MyNumber)) DecimalPlace = InStr(MyNumber, "." ) Калі DecimalPlace > 0 Then Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _ "00" , 2)) MyNumber = Trim(Left(MyNumber, DecimalPlace - 1)) End If Count = 1 Do While MyNumber "" Temp = GetHundreds(Right(MyNumber, 3)) If Temp "" Then Dollars = Temp & Размясціць (лічыць) & Долары Калі Len(MyNumber) > 3 Тады MyNumber = Left(MyNumber, Len(MyNumber) - 3) Else MyNumber = "" End If Count = Count + 1 Loop Select Case Dollars Case "" Dollars = "No Dollars" Case "One" Dollars = "One Dollar" Case Else Dollars = Даляры & " Dollars" End Select Select Case Cents Case "" Cents = " and No Cents" Case "One" Cents = " і One Cent" Case Else Cents = " і " & Цэнты & " Cents" End Select SpellNumber = Долары & Cents End Function Function GetHundreds(ByVal MyNumber) Dim Result As String If Val(MyNumber) = 0 Then Exit Function MyNumber = Right( "000" & MyNumber, 3) ' Пераўтварэнне разраду соцень. If Mid(MyNumber, 1, 1) "0" Then Result = GetDigit(Mid(MyNumber, 1, 1)) & " Сто " End If ' Пераўтварыце разрад дзясяткаў і адзінак. If Mid(MyNumber, 2, 1) "0" Then Result = Result & GetTens(Mid(MyNumber, 2)) Else Result = Вынік & GetDigit(Mid(MyNumber, 3)) End If GetHundreds = Result End Function Function GetTens(TensText) Dim Result As String Result = "" ' Абнуленне часовага значэння функцыі. If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19… Select Case Val(TensText) Case 10: Result = "Ten" Case 11: Result = "Eleven" Case 12: Result = "Dwelve" " Выпадак 13: Вынік = "Трынаццаць" Выпадак 14: Вынік = "Чатырнаццаць" Выпадак 15: Вынік = "Пятнаццаць" Выпадак 16: Вынік = "Шаснаццаць" Выпадак 17: Вынік = "Семнаццаць" Выпадак 18: Вынік = "Васямнаццаць" Выпадак 19: Вынік = "Дзевятнаццаць" Case Else End Select Else ' Калі значэнне паміж 20-99… Выберыце Case Val(Left(TensText, 1)) Выпадак 2: Вынік = "Дваццаць " Выпадак 3: Вынік = "Трыццаць" Выпадак 4: Вынік = «Сорак» Выпадак 5: Вынік = «Пяцьдзесят» Выпадак 6: Вынік = «Шэсцьдзесят» Выпадак 7: Вынік = «Семдзесят» Выпадак 8: Вынік = «Восемдзесят» Выпадак 9: Вынік = «Дзевяноста» Выпадак Else End Выберыце вынік = Вынік & GetDigit _ (Right(TensText, 1)) ' Атрымаць адно месца. End If GetTens = Вынік Канец Функцыя Функцыя GetDigit(Digit) Выберыце рэгістрVal(Digit) Выпадак 1: GetDigit = "Адзін" Выпадак 2: GetDigit = "Два" Выпадак 3: GetDigit = "Тры" Выпадак 4: GetDigit = "Чатыры" Выпадак 5: GetDigit = "Пяць" Выпадак 6: GetDigit = " Шэсць" Выпадак 7: GetDigit = "Сем" Выпадак 8: GetDigit = "Восем" Выпадак 9: GetDigit = "Дзевяць" Іншы выпадак: GetDigit = "" End Select End Function

6. Націсніце Ctrl+S каб захаваць абноўленую працоўную кнігу.

   Вам трэба будзе паўторна захаваць вашу працоўную кнігу. Калі вы паспрабуеце захаваць кнігу з макрасам, вы атрымаеце паведамленне " Наступныя функцыі не могуць быць захаваны ў кнізе без макрасаў "

   

   Націсніце "Не". Калі вы ўбачыце у новым дыялогавым акне выберыце опцыю «Захаваць як». У полі « Захаваць як тып » абярыце опцыю « Кніга з падтрымкай макрасаў Excel ».

   

Выкарыстоўваць макрас SpellNumber у вашы аркушы

Цяпер вы можаце выкарыстоўваць функцыю SpellNumber у вашых дакументах Excel. Увядзіце =SpellNumber(A2) у ячэйку, дзе трэба атрымаць лік, запісаны словамі. Тут A2 - гэта адрас ячэйкі з нумарам або сумай.

Тут вы бачыце вынік:

Вуаля!

Хутка скапіруйце функцыю SpellNumber у іншыя ячэйкі.

Калі вы неабходна пераўтварыць усю табліцу, а не толькі 1 ячэйку, змясціце курсор мышы ў правы ніжні кут ячэйкі з формулай, пакуль яна не ператворыцца ў маленькі чорны крыжык:

Пстрыкніце левай кнопкай мышы і перацягніце яго праз слупок для запаўнення формулы. Адпусціце кнопку, каб убачыць вынікі:

Заўвага. Калі ласкамайце на ўвазе, што калі вы выкарыстоўваеце SpellNumber са спасылкай на іншую ячэйку, запісаная сума будзе абнаўляцца кожны раз, калі лік у зыходнай ячэйцы будзе зменены.

Вы таксама можаце ўвесці лік непасрэдна ў функцыю, для напрыклад, =SpellNumber(29.95) (29,95 - без двукоссяў і знака даляра).

Недахопы выкарыстання макраса для напісання лічбаў у Excel

Па-першае, вы павінны ведаць VBA, каб змяніць код у адпаведнасці з вашым патрэбы. Неабходна ўставіць код для кожнай працоўнай кніжкі, куды вы плануеце яго змяніць. У адваротным выпадку вам трэба будзе стварыць файл шаблону з макрасамі і наладзіць Excel для загрузкі гэтага файла пры кожным запуску.

Асноўны недахоп выкарыстання макрасаў заключаецца ў тым, што калі вы адправіце кнігу камусьці іншаму, гэты чалавек не будзе бачыць тэкст, калі макрас не ўбудаваны ў кнігу. І нават калі ён убудаваны, яны атрымаюць папярэджанне, што ў кнізе ёсць макрасы.

Напісанне лікаў словамі з дапамогай адмысловай надбудовы

Для карыстальнікаў Excel, якім трэба хутка пісаць сумы, але ў іх няма часу вывучаць VBA або знаходзіць абыходныя шляхі, мы стварылі спецыяльны інструмент які можа хутка выканаць пераўтварэнне колькасці ў словы для некалькіх папулярных валют. Пазнаёмцеся з надбудовай Spell Number, якая ўваходзіць у апошнюю версію нашага Ultimate Suite for Excel.

Акрамя гатоўнасці да выкарыстання, інструмент вельмі гнуткі ў пераўтварэнні сум у тэкст:

• Вы можаце выбраць адзін знаступныя валюты: USD, EUR, GBP, BIT, AUD.
• Напішыце дробавую частку ў цэнтах, пені або бітцэнтах.
• Выберыце любы рэгістр тэксту для выніку: малы рэгістр, ВЕЛІКІ , Рэгістр загалоўка або рэгістр сказаў.
• Напісанне дзесятковай часткі рознымі спосабамі.
• Уключайце або прапускайце нуль цэнтаў.

Надбудова падтрымлівае ўсе сучасныя версіі, уключаючы Excel 365, Excel 2029, Excel 2016, Excel 2013 і Excel 2010. Калі ласка, не саромейцеся вывучаць іншыя магчымасці на галоўнай старонцы прадукту, спасылка на якую спасылаецца вышэй.

А цяпер давайце паглядзім, як працуе гэтая ўтыліта для напісання лічбаў :

1. Абярыце пустое вочка для выніку.
2. На ўкладцы Ablebits у групе Утыліты націсніце Напісаць нумар .
3. У дыялогавым акне Нумар разліву , якое з'явіцца, наладзьце наступныя рэчы:
   • Для поля Выберыце свой нумар , выберыце ячэйку, якая змяшчае суму, якую вы хочаце запісаць у выглядзе тэксту.
   • Укажыце жаданы цяпер , рэгістр літар і спосаб дзесятковага знака частка ліку павінна быць напісана.
   • Вызначце, уключаць нуль цэнтаў ці не.
   • Выберыце, устаўляць вынік у выглядзе значэння або формулы.
4. У ніжняй частцы дыялогавага акна паглядзіце вынік. Калі вы задаволены спосабам напісання вашага нумара, націсніце Напісаць . У адваротным выпадку паспрабуйце іншыя налады.

На скрыншоце ніжэй дэманструюцца налады па змаўчанніварыянты і напісаны лік у B2. Калі ласка, звярніце ўвагу на формулу (дакладней, функцыю, вызначаную карыстальнікам) у радку формул:

А гэта кароткая дэманстрацыя таго, як могуць быць напісаны іншыя валюты:

Парады і заўвагі:

• Паколькі надбудова Spell Number была распрацавана для апрацоўкі выпадкаў выкарыстання ў рэальным жыцці, такіх як рахункі-фактуры і іншыя фінансавыя дакументы, яна можа канвертаваць толькі адзін лік за раз.
• Каб напісаць слупок лічбаў , устаўце формулу ў першую ячэйку, а потым скапіруйце формулу ўніз.
• Калі ёсць шанец, што вашы зыходныя дадзеныя могуць змяніцца ў будучыні, лепш за ўсё ўставіць вынік у выглядзе формулы , каб ён аўтаматычна абнаўляўся пры змене зыходнага ліку.
• Пры выбары вынік у выглядзе формулы , устаўляецца карыстальніцкая функцыя, вызначаная карыстальнікам (UDF). Калі вы плануеце падзяліцца сваёй працоўнай кнігай з кімсьці, у каго не ўсталяваны Ultimate Suite, не забудзьцеся замяніць формулы значэннямі перад публікацыяй.

Зваротнае пераўтварэнне - ангельскія словы ў лічбы

Шчыра кажучы. , я не магу ўявіць, навошта вам гэта можа спатрэбіцца. На ўсялякі выпадак... :)

Выглядае, што MVP Excel, Джэры Лэтэм, стварыў такую ​​функцыю, вызначаную карыстальнікам (UDF), як WordsToDigits . Ён пераўтварае ангельскія словы назад у лічбы.

Вы можаце спампаваць кнігу Джэры WordsToDigits, каб убачыць код UDF. Тут вы таксама знойдзеце яго прыклады выкарыстанняфункцыя.

Вы можаце ўбачыць, як працуе гэтая функцыя, на аркушы « Узоры запісаў », куды вы таксама зможаце ўвесці ўласныя прыклады. Калі вы плануеце выкарыстоўваць WordsToDigits у сваіх дакументах, майце на ўвазе, што гэтая функцыя мае абмежаванні. Напрыклад, ён не распазнае дробы, уведзеныя словамі. Вы знойдзеце ўсю інфармацыю на аркушы " Інфармацыя ".