Excel és VBA Roundup függvény

Az Excel „Roundup” funkciójának használatának elsajátítása a VBA beépített programozási nyelven vagy a Visual Basic for Applications segítségével segít bármely Excel-funkció futtatásában a VBA-ból. Ez a készség hasznos, mert az Excel számos olyan funkcióval rendelkezik, amelyekkel a VBA nem rendelkezik, és amelyeket esetleg VBA programból kell alkalmaznia. Ne feledje, hogy a VBA funkció, amely lehetővé teszi a "Roundup" funkció megérintését, nem figyelmezteti Önt a helytelen szintaxisra vagy argumentumra, ahogyan a szabványos munkalapfelület használatakor tenné.

Az Excel "Roundup" funkciója felfelé kerekít egy számot a megadott számjegyek számáig. Például a „Roundup (2.2, 0)” futtatása azt jelzi, hogy az Excel azt szeretné, hogy a 2,2-es számot a következő egész számra kerekítse. A második argumentumban szereplő „0” azt jelzi, hogy az Excel nem kíván számjegyeket a tizedesvessző után, ami egyenértékű azzal, mintha egész számot kérne.

A VBA-ban nincs beépített "Roundup" funkció. A legközelebbi funkciója a "Kerekítés" funkció, amely felfelé vagy lefelé kerekít attól függően, hogy a kerekítendő szám záró számjegye nagyobb vagy kisebb, mint 5. Például, ha beírja a „Kerek (2.2, 0)” szót a VBA „Azonnali” ablakába, az eredmény 2 lesz, nem pedig 3, amelyre az Excel „Roundup” függvénye felfelé kerekítené.

Bár a VBA-nak nincs saját „Roundup” funkciója, használhatja az Excel „Roundup” funkcióját. A VBA erre utasításához állítsa a "Range" virtuális objektum "Formula" tulajdonságát a "Roundup" funkcióra. A következő példa bemutatja, hogyan kell ezt megtenni. Nyissa meg a VBA fejlesztői környezetet az "Alt" és az "F11" egyidejű lenyomásával az Excelben. Kattintson az egérrel az "Azonnali" ablakban, majd írja be a következő utasítást: "Tartomány ("A1"). Formula = "=Roundup (2.2, 0)"." Az imént leírt "Alt-F11" billentyűkombinációval térjen vissza az Excelbe.. Az A1 cellában a „3” eredmény jelenik meg, ami azt jelzi, hogy az utasítás sikeresen alkalmazta az Excel „Roundup” funkcióját.

Létrehozhat egy interaktív VBA programot, amely elfogadja a felhasználótól a "Roundup" függvény argumentumait, és megjeleníti a függvény eredményét. A VBA fejlesztői környezet megnyitása után illessze be a következő programot az ablakba:

Public Sub roundUpANumber() Dim a1, a2, s a1 = CDbl (InputBox("Adja meg a kerekíteni kívánt számot")) a2 = CInt (InputBox("Adja meg a tizedesjegyek számát, kerekíteni szeretné az imént beírt számot.")) s = "=Roundup(" & a1 & "," & a2 & ")" Tartomány("A1").Formula = s Tartomány("A1") .Calculate MsgBox (Tartomány("A1").Érték) Vége Alatti

Futtassa a programot úgy, hogy rákattint valamelyik utasítására, majd kattintson a "Futtatás" menü "Futtatás" parancsára. Amikor az Excel a függvény argumentumait kéri, írja be azokat, és nyomja meg az "Enter" billentyűt. A program megjeleníti a "Roundup" függvény eredményét a megadott argumentumokra.