Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
funkcie programu Excel " Roundup " zaokrúhli číslo nahor na počet číslic , ktoré určíte . Napríklad spustenie " Roundup ( 2,2 , 0 ) , " hovorí Excel ho chcete zaokrúhliť číslo 2,2 nahor na najbližšie celé číslo . " 0 " na druhý argument hovorí , Excel nechcete žiadne číslica za desatinnou čiarkou , ktorý je ekvivalentný hovorí , že chcete celočíselnú odpoveď .
VBA Round Funkcia
VBA nemá funkciu " Roundup " zabudovaný Najbližšie funkcie , ktorú má , je funkcia " Round " , ktorý zaokrúhľuje nahor alebo nadol v závislosti na tom , či končí číslice v rade ste zaokrúhlenia je väčší alebo menej ako 5. Napríklad zadaním " Round ( 2.2 , 0 ) " v " bezprostrednej " výsledky VBA okná vo 2 namiesto 3 , ktoré funkcie programu Excel " Roundup " by zaokrúhliť nahor na .
" Formula " Nehnuteľnosť
Hoci VBA nemá funkciu " Roundup " jeho vlastné, je možné použiť funkciu " Roundup " programu Excel . Ak chcete pokyn VBA , ako to urobiť , nastavte " Formula " vlastnosť " rozsah " virtuálny objekt na funkciu " Roundup " . Nasledujúci príklad ukazuje, ako to urobiť . Otvorenie vývojového prostredia VBA stlačením " Alt " a " F11 " súčasne v Exceli . Kliknite na tlačidlo myši v " okamžitom okne " , zadajte nasledujúci príkaz : " .. Range ( " A1 " ) Vzorec = " = Roundup ( 2,2 , 0 ) " " Návrat do programu Excel pomocou " Alt - F11 " stlačenie práve opísal , . Uvidíte výsledok " 3 " v bunke A1 , čo znamená , vaše vyhlásenie úspešne použitá funkcia " Roundup " programu Excel .
interaktívne Príklad
Môžete si interaktívne . programu VBA , ktorý prijíma od užívateľa argumenty pre funkciu " Roundup " a zobrazí výsledok tejto funkcie Po otvorení vývojového prostredia VBA , vložte nasledujúci program do okna :
Public Sub roundUpANumber ( )
Dim a1 , a2 , s
a1 = CDbl ( InputBox ( " Zadajte číslo , ktoré chcete zaokrúhliť " ) )
a2 = CInt ( InputBox ( " Zadajte počet desatinných miest , na ktoré chcete číslo zaokrúhliť ste práve zadali . " ) )
s = " = Roundup ( " & A1 & " , " & a2 & " ) "
Range ( " A1 " ) . Vzorec = s
Range ( " A1 " ) . Calculate
MsgBox ( Range ( " A1 " ) . Value )
end Sub
spustite program kliknutím na jednu z jej vyhlásenia , kliknutím na príkaz v ponuke " Run " v " Spustiť " . Keď vás program Excel zobrazí výzvu pre argumenty funkcie , typ je a stlačte " Enter . " Váš program bude zobrazí výsledok funkcie " Roundup " pre argumenty , ktoré ste zadali .
Copyright © počítačové znalosti Všetky práva vyhradené