Екцел & ВБА функција заокруживања

Учење како да користите Екцел-ову функцију „Роундуп“ из његовог уграђеног програмског језика ВБА, или Висуал Басиц за апликације, помаже вам да покренете било коју Екцел функцију из ВБА. Ова вештина је корисна јер Екцел има много функција које ВБА нема и које ћете можда морати да примените из ВБА програма. Имајте на уму да вас функција ВБА која вам омогућава да уђете у функцију „Роундуп“ неће упозорити на нетачну синтаксу или аргумент, као што би било када користите стандардни интерфејс радног листа.

Екцел функција „Роундуп“ заокружује број нагоре на број цифара који наведете. На пример, покретање „Роундуп (2.2, 0)“ говори Екцел-у да желите да заокружи број 2.2 на следећи цео број. „0“ у другом аргументу говори Екцел-у да не желите никакве цифре после децималне запете, што је еквивалентно томе да кажете да желите целобројни одговор.

ВБА нема уграђену функцију „Роундуп“. Најближа функција коју има је функција „Округла“, која заокружује нагоре или наниже у зависности од тога да ли је завршна цифра у броју који заокружујете већа или мања од 5. На пример, куцање „Роунд (2.2, 0)“ у ВБА прозору „Иммедиате“ резултира 2, уместо 3 на коју би Екцел функција „Роундуп“ заокружила.

Иако ВБА нема сопствену функцију „Роундуп“, може да користи Екцел-ову функцију „Роундуп“. Да бисте упутили ВБА да то уради, подесите својство „Формула“ виртуелног објекта „Распон“ на функцију „Роундуп“. Следећи пример вам показује како то да урадите. Отворите ВБА развојно окружење притиском на „Алт“ и „Ф11“ истовремено из Екцел-а. Кликните мишем у прозору „Иммедиате“, а затим откуцајте следећу изјаву: „Ранге („А1“).Формула = „=Роундуп (2.2, 0)“.“ Вратите се у Екцел користећи управо описани тастер „Алт-Ф11“. Видећете резултат „3“ у ћелији А1, што указује да је ваша изјава успешно применила Екцел-ову функцију „Роундуп“.

Можете направити интерактивни ВБА програм који прихвата од корисника аргументе за функцију „Роундуп“ и приказује резултат те функције. Након што отворите ВБА развојно окружење, налепите следећи програм у прозор:

Публиц Суб роундУпАНумбер() Дим а1, а2, с а1 = ЦДбл (ИнпутБок("Унесите број који желите да заокружите")) а2 = ЦИнт (ИнпутБок("Унесите број децимала на који желите да заокружите број који сте управо унели.")) с = "=Роундуп(" & а1 & "," & а2 & ")" Ранге("А1").Формула = с Опсег("А1") .Израчунајте МсгБок (опсег("А1").Валуе) Крај Суб

Покрените програм тако што ћете кликнути на једну од његових изјава, а затим кликнути на команду „Покрени“ у менију „Покрени“. Када вам Екцел затражи аргументе функције, откуцајте их и притисните „Ентер“. Ваш програм ће приказати резултат функције „Роундуп“ за аргументе које сте унели.