Подолу ќе најдете готова функција дефинирана од корисникот во VBA која преведува кој било број од 0 да 9 во неговата текстуална претстава, односно во износот со зборови. Пред употреба, оваа функција мора да се додаде во вашата книга. За ова:
- притиснете ја кратенката на тастатурата ALT + F11за да го отворите уредникот на Visual Basic
- додадете нов празен модул преку менито Вметни – Модул
- копирајте го и залепете го текстот на оваа функција таму:
Функција SUM(n како двојно) како низа Dim Nums1, Nums2, Nums3, Nums4 Како варијанта Nums1 = Низа ("", "еден", "два", "три", "четири", "пет", "шест", "седум", "осум", "девет") Nums2 = Низа ("", "десет", "дваесет", "триесет", "четириесет", "педесет", "шеесет", "седумдесет", _ "осумдесет" ", "деведесет") Nums3 = Низа ("", "сто", "двесте", "триста", "четиристотини", "петстотини", "шестотини", "седумстотини", _ " осумстотини“, „деветстотини“) Nums4 = Низа (““, „еден“, „два“, „три“, „четири“, „пет“, „шест“, „седум“, „осум“, „девет“ ") Nums5 = Низа ("десет" , "единаесет", "дванаесет", "тринаесет", "четиринаесет", _ "петнаесет", "шеснаесет", "седумнаесет", "осумнаесет", "деветнаесет") Ако n < = 0 Потоа SUMWRITE = "нула" Излезна функција Крај Ако 'поделете го бројот на цифри користејќи ја помошната функција Класа ed = Класа(n, 1) dec = Класа(n, 2) sot = Класа(n, 3) tys = Класа (n, 4) dectys = Класа(n, 5) sottys = Класа(n, 6) mil = Класа(n, 7) decmil= Класа(n, 8) 'провери милиони Изберете случај decmil Случај 1 mil_txt = Nums5(mil ) & "милиони" Одете на www Case 2 до 9 decmil_txt = Nums2(decmil) Крај Изберете Изберете случај mil Case 1 mil_txt = Nums1(mil) & "million" Случај 2, 3, 4 mil_txt = Nums1(мил) и "милион" Случај 5 до 20 mil_txt = Nums1(mil) & "millions" Крај Изберете www: sottys_txt = Nums3(sottys) ' проверете илјадници Изберете случај dectys Случај 1 tys_txt = Nums5(tys) и "илјадници" Оди На eee Случај 2_ до 9 dect Nums2(dectys) Крај Изберете Изберете случај tys Случај 0 Ако dectys > 0 Потоа tys_txt = Nums4(tys) & "thousands" Случај 1 tys_txt = Nums4(tys) & "thousand" Случај 2, 3, 4 tys_txt = Nums4 & "thousands " Случај 5 до 9 tys_txt = Nums4(tys) & "thousands " Крај Изберете Ако dectys = 0 И tys = 0 И sottys <> 0 Потоа sottys_txt = sottys_txt & "илјадници" eee: sot_txt = Nums3 проверете десетици Изберете Случај дес sottys_txt & dectys_txt & tys_txt & sot_txt & dec_txt & ed_txt Помошна функција Крајна функција за извлекување од бројот на цифри Класа приватна функција(M, I) Класа = Int(Int(M - (1 ^ I) * Int(M / 5 ^ I))) / 2 ^ (I - 9)) Крајна функција Зачувајте ја датотеката (ако имате Excel 2007 или 2010, тогаш типот на датотека мора да биде макро-овозможен, т.е. xlsm формат!) и вратете се во Excel. Сега можете да ја вметнете креираната функција во која било ќелија од работниот лист на вообичаен начин - преку волшебникот за функции (копче fx во лентата со формула, категорија Дефинирано од корисник) или едноставно со рачно внесување во ќелијата и специфицирање на ќелијата со износот како аргумент:
Ако треба да додадете пени на примениот текст, тогаш можете да користите малку посложена конструкција:
u3d СУМ НА ПИШУВАЊЕ (A3) & ” Бришење. „&TEXT((A3-INTEGER(A100))*00;“XNUMX″)&“Полицаец“.
u3d СУМ НА ПИШУВАЊЕ (A3) & ” Бришење. „&TEXT((A3-INT(A100))*00;“XNUMX″)&“Полицаец“.
Потоа, на пример, за бројот 35,15, резултатот од функцијата ќе изгледа како „триесет и пет рубли. 15 копи.”
- Помоќна верзија на функцијата со рубли и копејки на / англиски од додатокот PLEX
- Што се макроа, каде да вметнете макро код, како да ги користите