Excel és VBA összefoglaló 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. Vegye figyelembe, hogy a VBA funkció, amely lehetővé teszi a „Roundup” funkció megérintését, nem figyelmezteti Önt a hibás szintaxisra vagy argumentumra, ahogyan a szabványos munkalapfelület használatakor tenné.

Cél

Az Excel "Roundup" funkciója egy számot felfelé kerekít a megadott számjegyek számáig. Például a „Roundup (2.2, 0)” futtatása azt mondja az Excelnek, hogy a 2,2-es számot a következő egész számra szeretné kerekíteni. 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.

VBA körfüggvény

A VBA-ban nincs beépített "Roundup" funkció. A legközelebbi funkciója a "Round" 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 „Round (2.2, 0)” szót a VBA „Azonnali” ablakában, az eredmény 2 lesz, nem pedig 3, amelyre az Excel „Roundup” függvénye felfelé kerekítene.

"Formula" tulajdonság

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" függvényre. 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 Excel programból. Kattintson az egérrel az "Azonnali" ablakban, majd írja be a következő utasítást:"Tartomány ("A1"). Formula ="=Roundup (2.2, 0)"." Térjen vissza az Excelbe az "Alt-F11" billentyű lenyomásával, amit az imént leírt. . 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.

Interaktív példa

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 kerekíteni kívánt tizedesjegyek számát az imént beírt szám.")) s ="=Roundup(" &a1 &"," &a2 &")" Range("A1").Formula =s Range("A1").Calculate MsgBox (Tartomány( "A1").Érték) Vége al

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 programja megjeleníti a "Roundup" függvény eredményét a megadott argumentumokra.