Екцел ВБА РоундУп функција
Слично функцији радног листа где заокружујемо бројеве на најближе цијеле бројеве, у ВБА имамо функцију РоундУп која нам смањује децималну тачку, а синтакса функције заокруживања је сљедећа Роунд уп (Нумбер, Нумбер оф Дигитс Афтер Децимал) ) ова два аргумента у функцији су обавезна.
Када радимо са бројевима и прорачунима, разломљене бројеве добијамо након целог броја, а то је прилично уобичајено у свакодневном пословању. Обично се не оптерећујемо децималним вредностима јер то не утиче на наш крајњи резултат. У тим ситуацијама морамо бројеве заокружити на најближи цео број или непосредни цео број. Коришћењем функције РоундУп заправо можемо извршити овај задатак.
Ако сте у ВБА тражили функцију РоундУп, онда је сигурно нисте пронашли јер је то функција радног листа. Да бисмо приступили функцији РоундУп, морамо да користимо класу ВБА Ворксхеет Фунцтион.
![](https://cdn.know-base.net/9513401/vba_roundup_funciton_to_round_up_numbers_in_excel_2.png.webp)
Пре овога, сетите се синтаксе функције РоундУп.
![](https://cdn.know-base.net/9513401/vba_roundup_funciton_to_round_up_numbers_in_excel_3.png.webp)
Примери
Извршимо задатак заокруживања броја „288.5264“. Видећемо све бројеве на овом примеру.
Пример # 1 - Када је други аргумент нула
Погледајте доленаведени ВБА код.
Шифра:
Суб РоундУп_Екампле1 () Дим к Ас Доубле к = ВорксхеетФунцтион.РоундУп (288.5264, 0) МсгБок к Енд Суб
![](https://cdn.know-base.net/9513401/vba_roundup_funciton_to_round_up_numbers_in_excel_4.png.webp)
- Када покренете горњи код, он ће претворити наведени број, тј. 288,5264, у најближи цео број, тј. 289
![](https://cdn.know-base.net/9513401/vba_roundup_funciton_to_round_up_numbers_in_excel_5.png.webp)
Пример # 2 - Када је Други аргумент 1
Погледајте доњи код да видите шта се дешава када један додамо као други аргумент.
Шифра:
Суб РоундУп_Екампле2 () Дим к Ас Доубле к = ВорксхеетФунцтион.РоундУп (288.5264, 1) МсгБок к Енд Суб
![](https://cdn.know-base.net/9513401/vba_roundup_funciton_to_round_up_numbers_in_excel_6.png.webp)
- Овај код ће претворити дати број у једну децималну тачку, тј. 288,6
![](https://cdn.know-base.net/9513401/vba_roundup_funciton_to_round_up_numbers_in_excel_7.png.webp)
Пример # 3 - Када је Други аргумент 2
Погледајте доњи код да видите шта се дешава када два додамо као други аргумент.
Шифра:
Суб РоундУп_Екампле3 () Дим к Ас Доубле к = ВорксхеетФунцтион.РоундУп (288.5264, 2) МсгБок к Енд Суб
![](https://cdn.know-base.net/9513401/vba_roundup_funciton_to_round_up_numbers_in_excel_8.png.webp)
- Овај код ће претворити дати број у две децимале, односно 288,53
![](https://cdn.know-base.net/9513401/vba_roundup_funciton_to_round_up_numbers_in_excel_9.png.webp)
Пример # 4 - Када је други аргумент 3
Погледајте доњи код да видите шта се дешава када три додамо као други аргумент.
Шифра:
Суб РоундУп_Екампле4 () Дим к Ас Доубле к = ВорксхеетФунцтион.РоундУп (288.5264, 3) МсгБок к Енд Суб
![](https://cdn.know-base.net/9513401/vba_roundup_funciton_to_round_up_numbers_in_excel_10.png.webp)
- Овај код ће претворити дати број у три децимале, односно 288,527
![](https://cdn.know-base.net/9513401/vba_roundup_funciton_to_round_up_numbers_in_excel_11.png.webp)
Пример # 5 - Када је Други аргумент -1
Погледајте доњи код да бисте видели шта се дешава када као други аргумент додамо минус један.
Шифра:
Суб РоундУп_Екампле5 () Дим к Ас Доубле к = ВорксхеетФунцтион.РоундУп (288.5264, -1) МсгБок к Енд Суб
![](https://cdn.know-base.net/9513401/vba_roundup_funciton_to_round_up_numbers_in_excel_12.png.webp)
- Овај код ће претворити дати број на најближих десет, тј. 290.
![](https://cdn.know-base.net/9513401/vba_roundup_funciton_to_round_up_numbers_in_excel_13.png.webp)
Пример # 6 - Када је Други аргумент -2
Погледајте доњи код да видите шта се дешава када као други аргумент додамо минус два.
Шифра:
Суб РоундУп_Екампле6 () Дим к Ас Доубле к = ВорксхеетФунцтион.РоундУп (288.5264, -2) МсгБок к Енд Суб
![](https://cdn.know-base.net/9513401/vba_roundup_funciton_to_round_up_numbers_in_excel_14.png.webp)
- Овај код ће претворити дати број на најближих стотину, односно 300.
![](https://cdn.know-base.net/9513401/vba_roundup_funciton_to_round_up_numbers_in_excel_15.png.webp)
Пример # 7 - Када је Други аргумент -3
Погледајте доњи код да бисте видели шта се дешава када као други аргумент додамо минус три.
Шифра:
Суб РоундУп_Екампле7 () Дим к Ас Доубле к = ВорксхеетФунцтион.РоундУп (288.5264, -3) МсгБок к Енд Суб
![](https://cdn.know-base.net/9513401/vba_roundup_funciton_to_round_up_numbers_in_excel_16.png.webp)
- Овај код ће претворити број у најближу хиљаду, односно 1000.
![](https://cdn.know-base.net/9513401/vba_roundup_funciton_to_round_up_numbers_in_excel_17.png.webp)
На овај начин, функцију РОУНДУП у ВБА можемо користити као део класе функције радног листа за заокруживање бројева на основу датог другог аргумента.