Во оваа статија ќе ви покажам два брзи и бесплатни начини за претворање на валутни броеви во англиски зборови во Excel 2019, 2016, 2013 и други верзии.

Microsoft Excel е одличен програма за пресметување на ова и она. Првично беше развиен за обработка на големи низи на податоци. Меѓутоа, исто така, овозможува брзо и ефективно креирање на сметководствена евиденција како фактури, евалуација или биланси.

Во повеќе или помалку солидни платежни документи потребно е да се дуплираат нумеричките вредности со нивната форма на зборови. Многу е потешко да се фалсификуваат напишани броеви отколку оние напишани со рака. Некој измамник може да се обиде да направи 8000 од 3000, додека речиси е невозможно тајно да се замени „три“ со „осум“.

Значи, она што ви треба не е само да ги конвертирате броевите во зборови во Excel (на пр. 123,45 во „сто дваесет и три, четириесет и пет“), но напишете долари и центи (на пр. 29,95 долари како „дваесет и девет долари и деведесет и девет центи“), фунти и пени за GBP, евра и евроценти за евра, итн.

Дури и најновите верзии на Excel немаат вградена алатка за правопис на броеви, а да не зборуваме за претходните верзии. Но, тогаш Excel е навистина добар. Секогаш можете да ја подобрите неговата функционалност користејќи формули во сите нивни

комбинации, VBA макроа или додатоци од трети страни.

Подолу ќе најдете два начини за конвертирање броеви од бројки до зборови

И, можеби, можеби ќе треба даконвертирај зборови во броеви во Excel

Забелешка. Ако барате конверзија од број во текст , што значи дека сакате Excel да го гледа вашиот број како текст, тоа е малку поинаква работа. За ова, можете да ја користите функцијата TEXT или неколку други начини опишани во Како да менувате броеви во текст во Excel.

SpellNumber VBA макро за конвертирање броеви во зборови

Како што веќе споменав , Мајкрософт не сакаше да додаде алатка за оваа задача. Меѓутоа, кога видоа на колку корисници им е потребно, го создадоа и објавија специјалното VBA макро на нивната веб-страница. Макрото го прави она што го сугерира неговото име SpellNumber. Сите други макроа на кои наидов се засновани на кодот на Microsoft.

Можете да го најдете макрото спомнато како „формула за броеви на правопис“. Сепак, тоа не е формула, туку макро функција, или попрецизно Excel функција дефинирана од корисникот (UDF).

Опцијата spellnumber може да пишува долари и центи. Ако ви треба друга валута, можете да промените „ долар “ и „ цент “ со името на вашата валута.

Ако не сте вешт човек за VBA , подолу ќе најдете копија од кодот. Ако сè уште не сакате или немате време да го решите ова, ве молиме користете го ова решение.

1. Отворете ја работната книга каде што треба да ги пишувате броевите.
2. Притиснете Alt +F11 за да го отворите прозорецот за уредувач на Visual Basic.
3. Ако имате отворено неколку книги, проверете дали потребната работна книга е активна користејќисписокот на проекти во горниот лев агол на уредникот (еден од елементите на работната книга е означен со сино).
4. Во менито на уредувачот одете на Вметни -> Модул .
5. Треба да видите прозорец со име YourBook - Module1. Изберете го целиот код во рамката подолу и залепете го на овој прозорец.

   Опција Експлицитна „Главна функција Функција SpellNumber( ByVal MyNumber) Затемнети долари, центи, Температурно затемнување Децимално место, Брои го повторното затемнување место(9) како стринг место(2) = „илјада“ место(3) = „милион“ Место(4) = " Милијарда " Место (5) = " Трилион " Мојот број = Скрати(Стр(Мојот Број)) Децимално место = InStr(Мојот број, "." ) Ако Децималното место > 0 Потоа центи = GetTens (лево (средина (мојот број, децимално место + 1) & _ "00" , 2)) Мојот број = скрати (лево (мојот број, децималното место - 1)) Крај ако брои = 1 направи додека мојот број "" Темп. = GetHundreds(Right(MyNumber, 3)) If Temp "" Потоа долари = Temp & засилувач; Место (брои) & засилувач; Долари Ако Лен(Мојот Број) > 3 Потоа MyNumber = Left(MyNumber, Len(MyNumber) - 3) Друго MyNumber = "" End If Count = Count + 1 Loop Select Case Dollars Case "" Dollars = "No Dollars" Case "One" Dollars = "One Dollar" Случај Други долари = Долари & засилувач; „Долари“ Крај Избери Избери футрола Cents Case "" Cents = " и без центи" Case "One" Cents = " and One Cent" Case Else Cents = " и " & Центи & засилувач; " Центи" Крај Изберете SpellNumber = Долари & засилувач; Cents Крајна функција Функција GetHundreds(ByVal MyNumber) Затемнет резултат како низа Ако Val(MyNumber) = 0 Потоа излезете од функцијата MyNumber = Right( "000" & MyNumber, 3) ' Претворете ги стотките места. Ако Mid(MyNumber, 1, 1) "0" then Result = GetDigit(Mid(MyNumber, 1, 1)) & „Сто“ Крај ако „Конвертирај ги местата за десетки и единици. Ако Mid(MyNumber, 2, 1) "0" Потоа Резултат = Резултат & засилувач; GetTens(Mid(MyNumber, 2)) Друг резултат = Резултат & засилувач; GetDigit(Mid(MyNumber, 3)) End If GetHundreds = Резултат Крај Функција Функција GetTens(TensText) Затемнет резултат како резултат на низа = "" ' Поништете ја привремената вредност на функцијата. Ако Val(Left(TensText, 1)) = 1 Потоа ' Ако вредноста помеѓу 10-19… Изберете случај Val(TensText) Случај 10: Резултат = „Десет“ Случај 11: Резултат = „Единаесет“ Случај 12: Резултат = „Дванаесет " Случај 13: Резултат = "Тринаесет" Случај 14: Резултат = "Четиринаесет" Случај 15: Резултат = "Петнаесет" Случај 16: Резултат = "Шеснаесет" Случај 17: Резултат = "Седумнаесет" Случај 18: Резултат = "Осумнаесет" Случај 19: Резултат = „Деветнаесет“ Случај друго крај Изберете друго ' Ако вредноста помеѓу 20-99… Изберете случај Val(Left(TensText, 1)) Случај 2: Резултат = „Дваесет“ Случај 3: Резултат = „Триесет“ Случај 4: Резултат = "Четириесет" Случај 5: Резултат = "Педесет" Случај 6: Резултат = "Шеесет" Случај 7: Резултат = "Седумдесет" Случај 8: Резултат = "Осумдесет" Случај 9: Резултат = "Деведесет" Случај друг крај Изберете резултат = Резултат & засилувач; GetDigit _ (Десно (TensText, 1)) ' Поврати ги местата. Крај ако GetTens = Резултат Крај на функција Функција GetDigit(Digit) Изберете случајVal(Digit) Случај 1: GetDigit = "Еден" Случај 2: GetDigit = "Два" Случај 3: GetDigit = "Три" Случај 4: GetDigit = "Четири" Случај 5: GetDigit = "Пет" Случај 6: GetDigit = " Шест" Случај 7: GetDigit = "Седум" Случај 8: GetDigit = "Осум" Случај 9: GetDigit = "Девет" Случај Друго : GetDigit = "" Крај на функцијата Избери крај

6. Притиснете Ctrl+S за да ја зачувате ажурираната работна книга.

   Ќе треба повторно да ја зачувате работната книга. Кога ќе се обидете да ја зачувате работната книга со макро, ќе ја добиете пораката „ Следните функции не можат да се зачуваат во работна книга без макро “

   

   Кликнете бр. Кога ќе видите нов дијалог, изберете ја опцијата Зачувај како. Во полето „ Зачувај како тип “ изберете ја опцијата „ Работна книга овозможена со макро Excel “.

   

Користете макро SpellNumber во вашите работни листови

Сега можете да ја користите функцијата SpellNumber во вашите Excel документи. Внесете =SpellNumber(A2) во ќелијата каде што треба да го добиете бројот напишан со зборови. Овде А2 е адресата на ќелијата со бројот или износот.

Овде можете да го видите резултатот:

Voila!

Брзо копирајте ја функцијата SpellNumber во други ќелии.

Ако треба да ја конвертирате целата табела, не само 1 ќелија, поставете го курсорот на глувчето во долниот десен агол на ќелијата со формулата додека не се претвори во мал црн крст:

Кликнете со левото копче и повлечете го преку колона за пополнување на формулата. Ослободете го копчето за да ги видите резултатите:

Забелешка. Ве моламимајте на ум дека ако користите SpellNumber со врска до друга ќелија, напишаната сума ќе се ажурира секој пат кога ќе се промени бројот во изворната ќелија.

Можете и да го внесете бројот директно во функцијата, за пример, =SpellNumber(29.95) (29,95 - без наводници и знакот долар).

Недостатоци на користење макро за пишување броеви во Excel

Прво, мора да знаете VBA за да го измените кодот според вашите потреби. Неопходно е да го залепите кодот за секоја работна книга, каде што планирате да ја промените. Во спротивно, ќе треба да креирате датотека со шаблон со макроа и да го конфигурирате Excel да ја вчитува оваа датотека при секој почеток.

Главниот недостаток на користење на макро е ако ја испратите работната книга на некој друг, ова лице нема да видете го текстот освен ако макрото не е вградено во работната книга. И дури и да е вграден, тие ќе добијат предупредување дека има макроа во работната книга.

Спелување броеви во зборови со помош на специјален додаток

За корисниците на Excel кои треба брзо да пишуваат суми, но немаат време да учат VBA или да смислат решенија, создадовме специјална алатка што може брзо да изврши конверзија од износ во зборови за неколку популарни валути. Ве молиме запознајте го додатокот Spell Number вклучен во најновото издание на нашиот Ultimate Suite за Excel.

Покрај тоа што е подготвена за употреба, алатката е навистина флексибилна во конвертирање на износи во текст:

• Можете да изберете една одследните валути: USD, EUR, GBP, BIT, AUD.
• Напишете го фракциониот дел во центи, пени или битценти.
• Изберете која било буква на текст за резултатот: мали букви, ГОРНИ букви , букви со наслов или букви.
• Спелувајте го децималниот дел на различни начини.
• Вклучете или испуштете нула центи.

Додатокот ги поддржува сите модерни верзии вклучувајќи Excel 365, Excel 2029, Excel 2016, Excel 2013 и Excel 2010. Слободно истражете ги другите способности на почетната страница на производот поврзана погоре.

И сега, ајде да ја видиме оваа алатка за правопис на броеви во акција :

1. Изберете празна ќелија за резултатот.
2. На картичката Ablebits , во групата Utilities , кликнете Правопис број .
3. Во прозорецот за дијалог Ислеј број што се појавува, конфигурирајте ги следниве работи:
   • За полето Изберете го вашиот број , изберете ја ќелијата што ја содржи количината што сакате да ја напишете како текст.
   • Наведете ја саканата тековно , буквата и начинот на децимална дел од бројот треба да се пишува.
   • Дефинирајте дали да вклучите нула центи или не.
   • Изберете дали да го вметнете резултатот како вредност или формула.
4. На дното на прозорецот за дијалог, прегледај резултатот. Ако сте задоволни со начинот на кој е напишан вашиот број, кликнете Правопис . Во спротивно, обидете се со различни поставки.

Сликата од екранот подолу го покажува стандарднотоизбори и напишаниот број во Б2. Забележете формула (поточно, функција дефинирана од корисникот) во лентата со формули:

И ова е брза демонстрација за тоа како може да се напишат другите валути:

Совети и забелешки:

• Бидејќи додатокот Spell Number е дизајниран да се справува со случаи на употреба во реалниот живот, како што се фактури и други финансиски документи, може да конвертира само еден број во исто време.
• За да се напише колона со броеви , вметнете формула во првата ќелија, а потоа копирајте ја формулата надолу.
• Ако постои можност вашите изворни податоци може да се променат во иднина. 2>опција, се вметнува прилагодена функција дефинирана од корисникот (UDF). Ако планирате да ја споделите вашата работна книга со некој што нема инсталирано Ultimate Suite, не заборавајте да ги замените формулите со вредности пред да ги споделите.

Обратна конверзија - англиски зборови во бројки

Искрено , не можам да замислам зошто можеби ви треба. За секој случај… :)

Се чини дека Excel MVP, Џери Латам, создал таква функција дефинирана од корисникот на Excel (UDF) како WordsToDigits . Ги претвора англиските зборови назад во број.

Можете да ја преземете работната книга на Jerry's WordsToDigits за да го видите кодот на UDF. Овде ќе ги најдете и неговите примери за тоа како да го користитефункција.

Можете да видите како функционира функцијата на листот „ Sample Entries “, каде што исто така ќе можете да внесете свои примери. Доколку планирате да користите WordsToDigits во вашите документи, ве молиме информирајте дека оваа функција има ограничувања. На пример, не препознава дропки внесени во зборови. Сите детали ќе ги најдете на листот „ Информации “.