У овом чланку ћу вам показати два брза и бесплатна начина за претварање бројева валута у енглеске речи у Екцел 2019, 2016, 2013 и другим верзијама.

Мицрософт Екцел је одличан програм за израчунавање тога и тога. Првобитно је развијен за обраду великих низова података. Међутим, такође омогућава креирање рачуноводствених записа као што су фактуре, процене или биланси стања брзо и ефикасно.

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

Дакле, оно што вам треба није само претварање бројева у речи у Екцел-у (нпр. 123,45 у „сто двадесет три, четрдесет пет“), али наведите доларе и центе (нпр. 29,95 долара као „двадесет девет долара и деведесет девет центи“), фунте и пенсе за ГБП, евре и евроценте за ЕУР, итд.

Чак и најновије верзије Екцел-а немају уграђену алатку за писање бројева, да не спомињемо раније верзије. Али тада је Екцел заиста добар. Увек можете побољшати његову функционалност користећи формуле у свим њиховим

комбинацијама, ВБА макрое или додатке треће стране.

У наставку ћете пронаћи два начина за претварање бројева из фигуре у речи

И, можда, можда ћете моратипретворити речи у бројеве у програму Екцел

Напомена. Ако тражите претворбу броја у текст , што значи да желите да Екцел види ваш број као текст, то је мало другачија ствар. За ово можете користити функцију ТЕКСТ или неколико других начина описаних у Како да промените бројеве у текст у Екцел-у.

СпеллНумбер ВБА макро за претварање бројева у речи

Као што сам већ поменуо , Мицрософт није желео да дода алатку за овај задатак. Међутим, када су видели колико је корисника то потребно, направили су и објавили посебан ВБА макро на својој веб страници. Макро ради оно што му име СпеллНумбер сугерише. Сви остали макрои на које сам наишао су засновани на Мицрософт коду.

Макро можете пронаћи као „формула броја правописа“. Међутим, то није формула, већ макро функција, или да будемо прецизнији Екцел кориснички дефинисана функција (УДФ).

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

Ако нисте стручњак за ВБА , испод ћете наћи копију кода. Ако још увек не желите или немате времена да ово решите, користите ово решење.

1. Отворите радну свеску у којој треба да напишете бројеве.
2. Притисните Алт +Ф11 да бисте отворили прозор уређивача Висуал Басиц-а.
3. Ако имате неколико отворених књига, проверите да ли је потребна радна свеска активна помоћулиста пројеката у горњем левом углу уређивача (један од елемената радне свеске је означен плавом бојом).
4. У менију уређивача идите на Инсерт -&гт; Модуле .
5. Требало би да видите прозор под називом Ваша књига - Модул1. Изаберите сав код у оквиру испод и налепите га у овај прозор.

   Опција Експлицитна 'Маин Фунцтион Фунцтион СпеллНумбер( БиВал МиНумбер) Дим Долларс, Центс, Темп Дим ДецималПлаце, Цоунт РеДим Плаце(9) Ас Стринг Плаце(2) = " Хиљаду " Плаце(3) = " Миллион " Место(4) = " Милијарда " Место(5) = " Трилион " МојБрој = Трим(Стр(Мој број)) ДецималноПлаце = ИнСтр(Мој број, "." ) Ако ДецималПлаце &гт; 0 Затим центи = ГетТенс(Лево(Средина(Мој број, ДецималноПлаце + 1) & _ "00" , 2)) Мој Број = Одрежи(Лево(Мој број, ДецималноПлаце - 1)) Крај ако је Цоунт = 1 Уради док мој број "" Темп = ГетХундредс(Ригхт(МиНумбер, 3)) Ако Темп "" Онда Долларс = Темп &амп; Место(број) &амп; Долари ако Лен(мој број) &гт; 3 Затим Мој број = Лево(Мој број, Лен(Мој број) - 3) Друго Мој број = "" Крај Ако је број = Број + 1 петља Изаберите случај долара Случај "" Долларс = "Нема долара" Случај "један" долар = "један долар" Случај други долари = долари & ампер; " Долларс" Енд Селецт Изаберите Цасе Центс Цасе "" Центс = " анд Но Центс" Цасе "Оне" Центс = " анд Оне Цент" Цасе Елсе Центс = " анд " &амп; Центи &амп; " Центи" Крај Изаберите СпеллНумбер = Долари & ампер; Центс Енд Функција Функција ГетХундредс(БиВал МиНумбер) Затамни резултат као стринг Ако је Вал(МиНумбер) = 0 Онда Изађи из функције МојБрој = Десно( "000" & Мој број, 3) ' Претвори место стотине. Ако је средина(мој број, 1, 1) "0" онда је резултат = ГетДигит(средина(мој број, 1, 1)) &амп; „Хондред“ Енд Иф ' Претвори десетице и јединице. Ако је средина(мој број, 2, 1) "0" онда је резултат = резултат &амп; ГетТенс(Мид(МиНумбер, 2)) Елсе Ресулт = Ресулт &амп; ГетДигит(Мид(МиНумбер, 3)) Енд Ако ГетХундредс = Резултат Крај Функција Функција ГетТенс(ТенсТект) Затамни резултат као стринг Резултат = "" ' Поништи привремену вредност функције. Ако је Вал(Лефт(ТенсТект, 1)) = 1 Онда ' Ако је вредност између 10-19... Изаберите Цасе Вал(ТенсТект) Случај 10: Резултат = "Десет" Случај 11: Резултат = "Једанаест" Случај 12: Резултат = "Дванаест " Случај 13: Резултат = "Тринаест" Случај 14: Резултат = "Четрнаест" Случај 15: Резултат = "Петнаест" Случај 16: Резултат = "Шеснаест" Случај 17: Резултат = "Седамнаест" Случај 18: Резултат = "Осамнаест" Случај 19: Резултат = "Деветнаест" Цасе Елсе Енд Селецт Елсе ' Ако је вредност између 20-99... Изаберите Цасе Вал(Лефт(ТенсТект, 1)) Случај 2: Резултат = "Двадесет" Случај 3: Резултат = "Тхирти" Случај 4: Резултат = "Четрдесет" Случај 5: Резултат = "Педесет" Случај 6: Резултат = "Шездесет" Случај 7: Резултат = "Седамдесет" Случај 8: Резултат = "Осамдесет" Случај 9: Резултат = "Деведесет" Други случај Крај Изаберите резултат = Резултат &амп; ГетДигит _ (Десно(ТенсТект, 1)) ' Преузми једно место. Енд Иф ГетТенс = Резултат Крај Функција Функција ГетДигит(Дигит) Изаберите случајВал(Дигит) Случај 1: ГетДигит = "Један" Случај 2: ГетДигит = "Два" Случај 3: ГетДигит = "Три" Случај 4: ГетДигит = "Четири" Случај 5: ГетДигит = "Пет" Случај 6: ГетДигит = " Шест" Случај 7: ГетДигит = "Седам" Случај 8: ГетДигит = "Осам" Случај 9: ГетДигит = "Девет" Други случај: ГетДигит = "" Крај Изаберите Крај функције

   Такође видети: Основне Екцел формуле &амп; функције са примерима
6. Притисните Цтрл+С да сачувате ажурирану радну свеску.

   Мораћете поново да сачувате своју радну свеску. Када покушате да сачувате радну свеску помоћу макроа, добићете поруку " Следеће функције се не могу сачувати у радној свесци без макроа "

   

   Кликните на Не. Када видите нови дијалог, изаберите опцију Сачувај као. У пољу " Сачувај као тип " изаберите опцију " Радна свеска са омогућеним макроима у Екцел-у ".

   Такође видети: Како променити колоне и редове у Екцелу
   

Користи макро СпеллНумбер у ваши радни листови

Сада можете користити функцију СпеллНумбер у вашим Екцел документима. Унесите =SpellNumber(A2) у ћелију у којој треба да добијете број написан речима. Овде А2 је адреса ћелије са бројем или износом.

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

Воила!

Брзо копирајте функцију СпеллНумбер у друге ћелије.

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

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

Напомена. Молимо васимајте на уму да ако користите СпеллНумбер са везом до друге ћелије, писани збир ће бити ажуриран сваки пут када се промени број у изворној ћелији.

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

Недостаци коришћења макроа за срицање бројева у Екцел-у

Прво, морате знати ВБА да бисте изменили код у складу са вашим потребе. Неопходно је налепити код за сваку радну свеску, где планирате да га промените. У супротном, мораћете да креирате датотеку шаблона са макроима и конфигуришете Екцел да учита ову датотеку при сваком покретању.

Главни недостатак коришћења макроа је да ако пошаљете радну свеску неком другом, ова особа неће види текст осим ако је макро уграђен у радну свеску. Чак и ако је уграђен, добиће упозорење да у радној свесци постоје макрои.

Специте бројеве у речи помоћу специјалног додатка

За кориснике Екцел-а који морају брзо да спелују збројеве, али немају времена да науче ВБА или пронађу решења, направили смо посебан алат која може брзо да изврши конверзију износа у речи за неколико популарних валута. Молимо вас да испуните додатак Спелл Нумбер укључен у најновије издање нашег Ултимате Суите фор Екцел.

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

• Можете одабрати један одследеће валуте: УСД, ЕУР, ГБП, БИТ, АУД.
• Напишите разломак у центима, пенијама или битцентима.
• Одаберите било која велика и мала слова за резултат: мала слова, ВЕЛИКА СЛОВЕНА , велика и мала слова у наслову или велика и мала реченица.
• Напишите децимални део на различите начине.
• Укључите или изоставите нула центи.

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

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

1. Изаберите празну ћелију за резултат.
2. На картици Аблебитс , у групи Утилитиес , кликните на Број правописа .
3. У дијалогу Број просипања који се појави, конфигуришите следеће ствари:
   • За поље Изаберите свој број , изаберите ћелију која садржи износ који желите да буде написан као текст.
   • Одредите жељени тренутно , велика и мала слова и начин на који је децимала део броја треба да буде написан.
   • Дефинишите да ли ћете укључити нула центи или не.
   • Изаберите да ли желите да уметнете резултат као вредност или формулу.
4. На дну прозора дијалога, прегледајте резултат. Ако сте задовољни начином на који је ваш број написан, кликните на Спелл . У супротном, покушајте са различитим подешавањима.

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

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

Савети и напомене:

• Пошто је додатак Спелл Нумбер дизајниран да обрађује случајеве стварног живота као што су фактуре и други финансијски документи, може да конвертује само један број одједном.
• Да бисте написали колона бројева , уметните формулу у прву ћелију, а затим копирајте формулу надоле.
• Ако постоји шанса да ваши изворни подаци могу да се промене у будућности, најбоље је да уметнете резултат као формулу , тако да се аутоматски ажурира како се оригинални број мења.
• Када изаберете резултат као формулу опција, прилагођена кориснички дефинисана функција (УДФ) је уметнута. Ако планирате да своју радну свеску делите са неким ко нема инсталиран Ултимате Суите, не заборавите да замените формуле вредностима пре дељења.

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

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

Изгледа да је Екцел МВП, Јерри Латхам, креирао такву функцију коју дефинише корисник Екцел (УДФ) као ВордсТоДигитс . Конвертује енглеске речи назад у бројеве.

Можете да преузмете Џеријеву радну свеску ВордсТоДигитс да бисте видели УДФ код. Овде ћете такође пронаћи његове примере како да користитефункција.

Можете да видите како функција функционише на листу " Сампле Ентриес ", где ћете такође моћи да унесете своје примере. Ако планирате да користите ВордсТоДигитс у својим документима, имајте на уму да ова функција има ограничења. На пример, не препознаје разломке унете у речи. Све детаље ћете пронаћи на листу " Информације ".