Funkcia Excel VBA RoundUp
Podobne ako funkcia pracovného hárka, kde zaokrúhľujeme čísla na najbližšie celé čísla, vo VBA máme funkciu RoundUp, ktorá pre nás zmenšuje desatinnú čiarku, a syntax na použitie funkcie zaokrúhľovania je nasledovná. Zaokrúhliť nahor (počet, počet číslic po desatinnej čiarke) ) tieto dva argumenty vo funkcii sú povinné.
Keď pracujeme s číslami a výpočtami, dostaneme zlomkové čísla za celým číslom a je to v bežnom podnikaní úplne bežné. Všeobecne sa netrápime s desatinnými hodnotami, pretože to nemá žiadny vplyv na náš konečný výsledok. V týchto situáciách musíme čísla zaokrúhliť na najbližšie celé číslo alebo na celé číslo okamžite. Pomocou funkcie RoundUp môžeme túto úlohu skutočne vykonať.
Ak ste vo VBA hľadali funkciu RoundUp, pravdepodobne ste ju nenašli, pretože ide o funkciu pracovného hárka. Aby sme mali prístup k funkcii RoundUp, musíme použiť triedu funkcií pracovného listu VBA.
Predtým si nezabudnite syntax funkcie RoundUp.
Príklady
Vykonajme úlohu zaokrúhliť číslo „288.5264“ nahor. Na tomto príklade uvidíme všetky čísla.
Príklad č. 1 - Keď je druhý argument nula
Pozrite sa na nižšie uvedený kód VBA.
Kód:
Sub RoundUp_Example1 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, 0) MsgBox k End Sub
- Po spustení vyššie uvedeného kódu prevedie zadané číslo, tj. 288.5264, na najbližšie celé číslo, tj. 289
Príklad č. 2 - Keď je druhý argument 1
Pozrite sa na nasledujúci kód a uvidíte, čo sa stane, keď predáme jeden ako druhý argument.
Kód:
Sub RoundUp_Example2 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, 1) MsgBox k End Sub
- Tento kód prevedie dané číslo na jedno desatinné miesto, tj. 288,6
Príklad # 3 - Keď je druhý argument 2
Pozrite sa na nasledujúci kód a uvidíte, čo sa stane, keď predáme dva ako druhý argument.
Kód:
Sub RoundUp_Example3 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, 2) MsgBox k End Sub
- Tento kód prevedie dané číslo na dve desatinné miesta, tj. 288,53
Príklad č. 4 - Keď je druhý argument 3
Pozrite sa na nasledujúci kód a uvidíte, čo sa stane, keď predáme tri ako druhý argument.
Kód:
Sub RoundUp_Example4 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, 3) MsgBox k End Sub
- Tento kód prevedie dané číslo na tri desatinné miesta, tj. 288 527
Príklad č. 5 - Keď je druhý argument -1
Pozrite sa na nasledujúci kód a uvidíte, čo sa stane, keď ako druhý argument použijeme mínus jeden.
Kód:
Sub RoundUp_Example5 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, -1) MsgBox k End Sub
- Tento kód prevedie dané číslo na najbližších desať, tj. 290.
Príklad č. 6 - Keď je druhý argument -2
Pozrite sa na nasledujúci kód a uvidíte, čo sa stane, keď ako druhý argument zadáme mínus dva.
Kód:
Sub RoundUp_Example6 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, -2) MsgBox k End Sub
- Tento kód prevedie dané číslo na najbližšiu stovku, tj. 300.
Príklad č. 7 - Keď je druhý argument -3
Pozrite sa na nasledujúci kód a uvidíte, čo sa stane, keď ako druhý argument zadáme mínus tri.
Kód:
Sub RoundUp_Example7 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, -3) MsgBox k End Sub
- Tento kód prevedie číslo na najbližšiu tisícku, tj. 1 000.
Takto môžeme použiť funkciu ROUNDUP vo VBA ako súčasť triedy funkcií pracovného hárka na zaokrúhľovanie čísel na základe poskytnutého druhého argumentu.
