VBA Roundup Funciton pro zaokrouhlování čísel v aplikaci Excel

Funkce RoundUp aplikace Excel VBA

Podobně jako funkce listu, kde zaokrouhlujeme čísla na nejbližší celá čísla, ve VBA máme funkci RoundUp, která pro nás zmenšuje desetinnou čárku a syntaxe pro použití funkce zaokrouhlování je následující Zaokrouhlit nahoru (počet, počet číslic po desetinné čárce) ) tyto dva argumenty ve funkci jsou povinné.

Když pracujeme s čísly a výpočty, dostaneme zlomková čísla za celým číslem a je to v běžném podnikání zcela běžné. Obecně se neobtěžujeme s desítkovými hodnotami, protože to nemá žádný dopad na náš konečný výsledek. V těchto situacích musíme čísla zaokrouhlit nahoru na nejbližší celé číslo nebo okamžité celé číslo. Pomocí funkce RoundUp můžeme tento úkol skutečně provést.

Pokud jste ve VBA hledali funkci RoundUp, pak jste ji pravděpodobně nenašli, protože se jedná o funkci listu. Abychom měli přístup k funkci RoundUp, musíme použít třídu funkcí listu vba.

Před tím si vybavte syntaxi funkce RoundUp.

Příklady

Tuto šablonu VBA RoundUp Excel si můžete stáhnout zde - VBA RoundUp Excel Template

Provedeme úkol zaokrouhlit číslo „288.5264“ nahoru. Na tomto příkladu uvidíme všechna čísla.

Příklad č. 1 - Když je druhý argument nula

Podívejte se na níže uvedený kód VBA.

Kód:

 Sub RoundUp_Example1 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, 0) MsgBox k End Sub 

  • Když spustíte výše uvedený kód, převede poskytnuté číslo, tj. 288.5264, na nejbližší celé číslo, tj. 289

Příklad č. 2 - Když je druhý argument 1

Podívejte se na níže uvedený kód, abyste zjistili, co se stane, když jeden předáme jako druhý argument.

Kód:

 Sub RoundUp_Example2 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, 1) MsgBox k End Sub 

  • Tento kód převede dané číslo na jednu desetinnou čárku, tj. 288,6

Příklad č. 3 - Když je druhý argument 2

Podívejte se na níže uvedený kód, abyste zjistili, co se stane, když předáme dva jako druhý argument.

Kód:

 Sub RoundUp_Example3 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, 2) MsgBox k End Sub 

  • Tento kód převede dané číslo na dvě desetinná místa, tj. 288,53

Příklad č. 4 - Když je druhý argument 3

Podívejte se na níže uvedený kód, abyste zjistili, co se stane, když předáme tři jako druhý argument.

Kód:

 Sub RoundUp_Example4 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, 3) MsgBox k End Sub 

  • Tento kód převede dané číslo na tři desetinná místa, tj. 288 527

Příklad č. 5 - Když je druhý argument -1

Podívejte se na níže uvedený kód, abyste zjistili, co se stane, když předáme minus jeden jako druhý argument.

Kód:

 Sub RoundUp_Example5 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, -1) MsgBox k End Sub 

  • Tento kód převede dané číslo na nejbližší desítku, tj. 290.

Příklad č. 6 - Když je druhý argument -2

Podívejte se na níže uvedený kód, abyste zjistili, co se stane, když předáme minus dva jako druhý argument.

Kód:

 Sub RoundUp_Example6 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, -2) MsgBox k End Sub 

  • Tento kód převede dané číslo na nejbližší stovku, tj. 300.

Příklad č. 7 - Když je druhý argument -3

Podívejte se na níže uvedený kód, abyste zjistili, co se stane, když předáme minus tři jako druhý argument.

Kód:

 Sub RoundUp_Example7 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, -3) MsgBox k End Sub 

  • Tento kód převede číslo na nejbližší tisíc, tj. 1000.

Takto můžeme použít funkci ROUNDUP ve VBA jako součást třídy funkce listu k zaokrouhlování čísel na základě poskytnutého druhého argumentu.