photosdematures.com

Екцел ВБА РоундУп функција

Слично функцији радног листа где заокружујемо бројеве на најближе целе бројеве, у ВБА имамо а РоундУп функција који смањују децималну тачку за нас и синтакса да користимо функцију заокруживања је следећа Заокруживање (број, број цифара након децималног) ова два аргумента у функцији су обавезна.

Када радимо са бројевима и прорачунима, добијамо бројеве разломака након целог броја и то је прилично често у свакодневном пословању. Обично се не оптерећујемо децималним вредностима, јер то не утиче на наш крајњи резултат. У тим ситуацијама морамо бројеве заокружити на најближи цео број или непосредни цео број. Коришћењем функције РоундУп заправо можемо извршити овај задатак.

Ако сте у ВБА тражили функцију РоундУп, онда је сигурно нисте пронашли јер је то функција радног листа. Да бисмо приступили функцији РоундУп, морамо да користимо класу вба Ворксхеет Фунцтион.

Пре овога сетите се синтаксе функције РоундУп.

Примери

Овај ВБА РоундУп Екцел образац можете преузети овде - ВБА РоундУп Екцел предложак

Извршимо задатак заокруживања броја „288.5264“. Видећемо све бројеве на овом примеру.

Пример # 1 - Када је други аргумент нула

Погледајте доленаведени ВБА код.

Шифра:

 Суб РоундУп_Екампле1 () Дим к Ас Доубле к = ВорксхеетФунцтион.РоундУп (288.5264, 0) МсгБок к Енд Суб 

• Када покренете горњи код, претвориће наведени број, тј. 288,5264 у најближи цео број, тј. 289

Пример # 2 - Када је Други аргумент 1

Погледајте доњи код да видите шта се дешава када један додамо као други аргумент.

Шифра:

 Суб РоундУп_Екампле2 () Дим к Ас Доубле к = ВорксхеетФунцтион.РоундУп (288.5264, 1) МсгБок к Енд Суб 

• Овај код ће претворити дати број у једну децималну тачку, тј. 288,6

Пример # 3 - Када је Други аргумент 2

Погледајте доњи код да видите шта се дешава када два додамо као други аргумент.

Шифра:

 Суб РоундУп_Екампле3 () Дим к Ас Доубле к = ВорксхеетФунцтион.РоундУп (288.5264, 2) МсгБок к Енд Суб 

• Овај код ће претворити дати број у две децимале, односно 288,53

Пример # 4 - Када је други аргумент 3

Погледајте доњи код да бисте видели шта се дешава када три додамо као други аргумент.

Шифра:

 Суб РоундУп_Екампле4 () Дим к Ас Доубле к = ВорксхеетФунцтион.РоундУп (288.5264, 3) МсгБок к Енд Суб 

• Овај код ће претворити дати број у три децимале, односно 288,527

Пример # 5 - Када је Други аргумент -1

Погледајте доњи код да бисте видели шта се дешава када као други аргумент додамо минус један.

Шифра:

 Суб РоундУп_Екампле5 () Дим к Ас Доубле к = ВорксхеетФунцтион.РоундУп (288.5264, -1) МсгБок к Енд Суб 

• Овај код ће претворити дати број на најближих десет, тј. 290.

Пример # 6 - Када је Други аргумент -2

Погледајте доњи код да видите шта се дешава када као други аргумент додамо минус два.

Шифра:

 Суб РоундУп_Екампле6 () Дим к Ас Доубле к = ВорксхеетФунцтион.РоундУп (288.5264, -2) МсгБок к Енд Суб 

• Овај код ће претворити дати број у најближих стотину, тј. 300.

Пример # 7 - Када је Други аргумент -3

Погледајте доњи код да бисте видели шта се дешава када као други аргумент додамо минус три.

Шифра:

 Суб РоундУп_Екампле7 () Дим к Ас Доубле к = ВорксхеетФунцтион.РоундУп (288.5264, -3) МсгБок к Енд Суб 

• Овај код ће претворити број у најближу хиљаду, тј. 1000.

Овако, можемо користити функцију РОУНДУП у ВБА као део класе функције радног листа за заокруживање бројева на основу датог другог аргумента.