Zasluga slike: mavoimages/iStock/Getty Images
Učenje kako koristiti Excelovu funkciju "Roundup" iz ugrađenog programskog jezika VBA ili Visual Basica za aplikacije, pomaže vam pokrenuti bilo koju Excel funkciju iz VBA. Ova vještina je korisna jer Excel ima mnogo funkcija koje VBA nema i koje ćete možda morati primijeniti iz VBA programa. Imajte na umu da vas značajka VBA koja vam omogućuje da dodirnete funkciju "Roundup" neće upozoriti na netočnu sintaksu ili argument, kao što bi to bilo kada koristite standardno sučelje radnog lista.
Svrha
Excel funkcija "Roundup" zaokružuje broj prema gore na broj znamenki koji navedete. Na primjer, pokretanje "Roundup (2.2, 0)" govori Excelu da želite da zaokruži broj 2,2 na sljedeći cijeli broj. "0" u drugom argumentu govori Excelu da ne želite nikakve znamenke nakon decimalne točke, što je ekvivalentno izjavi da želite cjelobrojni odgovor.
Video dana
VBA Round funkcija
VBA nema ugrađenu funkciju "Roundup". Najbliža funkcija koju ima je funkcija "Okrugla" koja zaokružuje prema gore ili prema dolje ovisno o tome je li završna znamenka u broju koji zaokružujete veća ili manja od 5. Na primjer, upisivanjem "Round (2.2, 0)" u VBA prozor "Immediate" dobiva se 2, umjesto 3 na koju bi funkcija Excel "Roundup" zaokružila.
Svojstvo "Formula".
Iako VBA nema vlastitu funkciju "Roundup", može koristiti Excelovu funkciju "Roundup". Da biste uputili VBA da to učini, postavite svojstvo "Formula" virtualnog objekta "Raspon" na funkciju "Roundup". Sljedeći primjer pokazuje kako to učiniti. Otvorite VBA razvojno okruženje pritiskom na "Alt" i "F11" istovremeno iz programa Excel. Kliknite mišem u prozoru "Immediate", a zatim upišite sljedeću izjavu: "Range ("A1").Formula = "=Roundup (2.2, 0)"." Vratite se u Excel koristeći upravo opisani pritisak tipke "Alt-F11". Vidjet ćete rezultat "3" u ćeliji A1, što znači da je vaša izjava uspješno primijenila Excelovu funkciju "Roundup".
Interaktivni primjer
Možete napraviti interaktivni VBA program koji od korisnika prihvaća argumente za funkciju "Roundup" i prikazuje rezultat te funkcije. Nakon što otvorite razvojno okruženje VBA, zalijepite sljedeći program u prozor:
Public Sub roundUpANumber() Dim a1, a2, s a1 = CDbl (InputBox("Unesite broj koji želite zaokružiti")) a2 = CInt (InputBox("Unesite broj decimala na koji želite zaokružiti broj koji ste upravo unijeli.")) s = "=Roundup(" & a1 & "," & a2 & ")" Range("A1").Formula = s Raspon("A1") .Izračunajte MsgBox (Raspon("A1").Vrijednost) Kraj Pod
Pokrenite program klikom na jednu od njegovih izjava, a zatim na naredbu "Pokreni" u izborniku "Pokreni". Kada vas Excel zatraži argumente funkcije, upišite ih i pritisnite "Enter". Vaš program će prikazati rezultat funkcije "Roundup" za argumente koje ste unijeli.
