Funkcija pregleda programa Excel i VBA

Učenje kako koristiti Excelovu funkciju "Roundup" iz njegovog ugrađenog programskog jezika VBA ili Visual Basic for Applications, pomaže vam u pokretanju bilo koje Excel funkcije iz VBA. Ova je vještina korisna jer Excel ima mnogo funkcija koje VBA nema, a koje ćete možda morati primijeniti iz VBA programa. Imajte na umu da vas VBA značajka 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

Funkcija Excel "Roundup" zaokružuje broj naviše 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 jednako kao da želite cjelobrojni odgovor.

VBA kružna funkcija

VBA nema ugrađenu funkciju "Roundup". Najbliža funkcija koju ima je funkcija "Round", koja zaokružuje prema gore ili dolje ovisno o tome je li završna znamenka u broju koji zaokružujete veća ili manja od 5. Na primjer, upisivanje "Zaokruži (2.2, 0)" u prozor VBA "Odmah" rezultira brojem 2, umjesto 3 na koji bi Excelova funkcija "Zaokruživanje" 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 "Range" na funkciju "Roundup". Sljedeći primjer pokazuje kako to učiniti. Otvorite VBA razvojno okruženje pritiskom na "Alt" i "F11" istovremeno iz Excela. Kliknite mišem u prozoru "Immediate", zatim upišite sljedeću izjavu:"Range ("A1").Formula ="=Roundup (2.2, 0)"." Vratite se u Excel pomoću pritiska na tipku "Alt-F11" koji je upravo opisan . 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 otvaranja VBA razvojnog okruženja, 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 Range("A1").Izračunajte MsgBox (Range( "A1").Vrijednost) End Sub

Pokrenite program klikom na jednu od njegovih izjava, zatim klikom na naredbu "Pokreni" izbornika "Pokreni". Kada Excel od vas zatraži argumente funkcije, upišite ih i pritisnite "Enter". Vaš program će prikazati rezultat funkcije "Roundup" za argumente koje ste unijeli.