Excel VBA RoundUp függvény
Hasonlóan a munkalapfüggvényhez, ahol a számokat a legközelebbi egész számokra kerekítjük, a VBA-ban van egy RoundUp függvény, amely csökkenti számunkra a tizedespontot, és a kerekítés függvény használatának szintaxisa a következő: felfelé (szám, számok száma tizedes után ) ez a két argumentum a függvényben kötelező.
Amikor számokkal és számításokkal dolgozunk, az egész szám után törtszámokat kapunk, és ez a mindennapi üzleti életben meglehetősen gyakori. Általában nem foglalkozunk a tizedesértékekkel, mert ez nem befolyásolja a végeredményünket. Ilyen esetekben fel kell kerekítenünk a számokat a legközelebbi egész számra vagy a közvetlen egész számra. A RoundUp függvény használatával valóban elvégezhetjük ezt a feladatot.
Ha a VBA-ban kereste a RoundUp függvényt, akkor biztos, hogy nem találta meg, mert ez egy munkalapfüggvény. A RoundUp funkció eléréséhez a VBA Worksheet Function osztályt kell használnunk.
Előtte idézze fel a RoundUp függvény szintaxisát.
Példák
Végezzük el a „288.5264” szám kerekítésének feladatát. Az összes számot meglátjuk ezzel a példával.
1. példa - Ha a második argumentum nulla
Nézze meg az alábbi VBA kódot.
Kód:
Sub RoundUp_Példa1 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, 0) MsgBox k End Sub
- A fenti kód futtatásakor a megadott számot, azaz 288.5264-et a legközelebbi egész számra, azaz 289-re konvertálja.
2. példa - Ha a második argumentum 1
Nézze meg az alábbi kódot, hogy mi történik, amikor második argumentumként adunk át egyet.
Kód:
Sub RoundUp_Example2 () Dim k As Double k = WorksheetFunction. RoundUp (288.5264, 1) MsgBox k End Sub
- Ez a kód átalakítja a megadott számot egy tizedesjegyre, azaz 288,6-ra
3. példa - Ha a második argumentum 2
Nézze meg az alábbi kódot, hogy mi történik, amikor kettőt adunk át második érvként.
Kód:
Sub RoundUp_Példa3 () Dim k As Double k = WorksheetFunction. RoundUp (288.5264, 2) MsgBox k End Sub
- Ez a kód két megadott tizedesre, azaz 288,53-ra konvertálja a megadott számot
4. példa - Ha a második argumentum 3
Nézze meg az alábbi kódot, hogy mi történik, ha hármat adunk át második érvként.
Kód:
Sub RoundUp_Példa4 () Dim k As Double k = WorksheetFunction. RoundUp (288.5264, 3) MsgBox k End Sub
- Ez a kód a megadott számot három tizedesjegyre, azaz 288.527-re konvertálja
5. példa - Ha a második argumentum -1
Nézze meg az alábbi kódot, hogy mi történik, ha második argumentumként mínuszt adunk meg.
Kód:
Sub RoundUp_Example5 () Dim k As Double k = WorksheetFunction. RoundUp (288.5264, -1) MsgBox k End Sub
- Ez a kód a megadott számot a legközelebbi tízre, azaz 290-ra konvertálja.
6. példa - Ha a második argumentum -2
Nézze meg az alábbi kódot, hogy mi történik, ha mínusz kettőt adunk meg második argumentumként.
Kód:
Sub RoundUp_Példa6 () Dim k As Double k = WorksheetFunction. RoundUp (288.5264, -2) MsgBox k End Sub
- Ez a kód a megadott számot a legközelebbi százra, azaz 300-ra konvertálja.
7. példa - Ha a második argumentum -3
Nézze meg az alábbi kódot, hogy mi történik, ha mínusz hármat adunk meg második argumentumként.
Kód:
Sub RoundUp_Példa7 () Dim k As Double k = WorksheetFunction. RoundUp (288.5264, -3) MsgBox k End Sub
- Ez a kód a számot a legközelebbi ezerre, azaz 1000-re konvertálja.
Így használhatjuk a VBA ROUNDUP függvényét a munkalap függvényosztály részeként a számok kerekítésére a megadott második argumentum alapján.
