Kredit za obrázok: mavoimages/iStock/Getty Images
Naučiť sa používať funkciu „Roundup“ programu Excel z jeho vstavaného programovacieho jazyka VBA alebo Visual Basic for Applications vám pomôže spustiť akúkoľvek funkciu programu Excel z jazyka VBA. Táto zručnosť je užitočná, pretože Excel má veľa funkcií, ktoré VBA nemá a ktoré možno budete musieť použiť z programu VBA. Všimnite si, že funkcia VBA, ktorá vám umožňuje klepnúť na funkciu „Roundup“, vás neupozorní na nesprávnu syntax alebo argument, ako by to bolo pri použití štandardného rozhrania pracovného hárka.
Účel
Funkcia Excel "Zaokrúhlenie" zaokrúhli číslo nahor na počet číslic, ktorý určíte. Napríklad spustením „Roundup (2.2, 0)“ Excel povie, že chcete, aby zaokrúhlil číslo 2,2 nahor na ďalšie celé číslo. "0" v druhom argumente hovorí Excelu, že za desatinnou čiarkou nechcete žiadne číslice, čo je ekvivalentné tvrdeniu, že chcete odpoveď na celé číslo.
Video dňa
Okrúhla funkcia VBA
VBA nemá zabudovanú funkciu „Roundup“. Najbližšia funkcia, ktorú má, je funkcia „Zaokrúhliť“, ktorá zaokrúhľuje nahor alebo nadol v závislosti od toho, či je koncová číslica v zaokrúhľovanom čísle väčšia alebo menšia ako 5. Napríklad zadanie "Zaokrúhliť (2.2, 0)" v okne VBA "Immediate" má za následok 2 namiesto 3, na ktoré by funkcia Excel "Roundup" zaokrúhlila nahor.
Vlastnosť "vzorca".
Hoci VBA nemá vlastnú funkciu "Roundup", môže použiť funkciu "Roundup" programu Excel. Ak chcete dať pokyn VBA, aby to urobil, nastavte vlastnosť "Formula" virtuálneho objektu "Range" na funkciu "Roundup". Nasledujúci príklad ukazuje, ako to urobiť. Otvorte vývojové prostredie VBA súčasným stlačením klávesov "Alt" a "F11" v programe Excel. Kliknite myšou v okne „Immediate“ a potom zadajte nasledujúci príkaz: „Range (“A1“). Vzorec = „=Roundup (2.2, 0)“. Vráťte sa do Excelu pomocou práve opísaného stlačenia klávesov „Alt-F11“. V bunke A1 uvidíte výsledok „3“, čo znamená, že váš príkaz úspešne použil funkciu „Roundup“ programu Excel.
Interaktívny príklad
Môžete vytvoriť interaktívny program VBA, ktorý od používateľa akceptuje argumenty pre funkciu „Roundup“ a zobrazí výsledok tejto funkcie. Po otvorení vývojového prostredia VBA prilepte do okna nasledujúci program:
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 zaokrúhliť číslo, ktoré ste práve zadali.")) s = "=Roundup(" & a1 & "," & a2 & ")" Rozsah ("A1").Formula = s Rozsah ("A1") .Vypočítajte MsgBox (Rozsah("A1").Hodnota) Koniec Sub
Spustite program kliknutím na jeden z jeho príkazov a následným kliknutím na príkaz „Spustiť“ v ponuke „Spustiť“. Keď vás Excel vyzve na zadanie argumentov funkcie, zadajte ich a stlačte „Enter“. Váš program zobrazí výsledok funkcie "Roundup" pre zadané argumenty.
