Funkcija Excel &VBA Roundup

Če se naučite uporabljati Excelovo funkcijo "Roundup" iz njegovega vgrajenega programskega jezika VBA ali Visual Basic for Applications, vam pomaga zagnati katero koli Excelovo funkcijo iz VBA. Ta veščina je uporabna, ker ima Excel veliko funkcij, ki jih VBA nima in ki jih boste morda morali uporabiti iz programa VBA. Upoštevajte, da vas funkcija VBA, ki vam omogoča, da se dotaknete funkcije "Roundup", ne bo opozorila na napačno sintakso ali argument, kot bi to storila pri uporabi standardnega vmesnika delovnega lista.

Namen

Excelova funkcija "Roundup" zaokroži število navzgor na število števk, ki jih določite. Če na primer zaženete »Roundup (2.2, 0)«, pove Excelu, da želite zaokrožiti število 2.2 navzgor na naslednje celo število. »0« v drugem argumentu pove Excelu, da ne želite nobenih števk za decimalno vejico, kar je enako, kot če bi rekli, da želite celoštevilski odgovor.

Okrogla funkcija VBA

VBA nima vgrajene funkcije "Roundup". Najbližja funkcija, ki jo ima, je funkcija "Round", ki zaokrožuje navzgor ali navzdol, odvisno od tega, ali je končna številka v številu, ki ga zaokrožujete, večja ali manjša od 5. Na primer, če vnesete "Round (2.2, 0)" v okno VBA "Immediate", dobite 2 namesto 3, na katerega bi Excelova funkcija "Roundup" zaokrožila navzgor.

Lastnost »Formula«

Čeprav VBA nima lastne funkcije "Roundup", lahko uporablja Excelovo funkcijo "Roundup". Če želite VBA naročiti, da to stori, nastavite lastnost »Formula« navideznega predmeta »Range« na funkcijo »Roundup«. Naslednji primer vam pokaže, kako to storite. Odprite razvojno okolje VBA tako, da v Excelu istočasno pritisnete "Alt" in "F11". Kliknite miško v oknu "Immediate", nato vnesite naslednjo izjavo:"Range ("A1").Formula ="=Roundup (2.2, 0)"." Vrnite se v Excel s pravkar opisanim pritiskom na tipko "Alt-F11". . V celici A1 boste videli rezultat "3", kar pomeni, da je vaša izjava uspešno uporabila Excelovo funkcijo "Roundup".

Interaktivni primer

Izdelate lahko interaktivni program VBA, ki od uporabnika sprejme argumente za funkcijo "Roundup" in prikaže rezultat te funkcije. Ko odprete razvojno okolje VBA, v okno prilepite naslednji program:

Public Sub roundUpANumber() Dim a1, a2, s a1 =CDbl(InputBox("Vnesite število, ki ga želite zaokrožiti")) a2 =CInt(InputBox("Vnesite število decimalnih mest, na katero želite zaokrožiti številko, ki ste jo pravkar vnesli.")) s ="=Roundup(" &a1 &"," &a2 &")" Range("A1").Formula =s Range("A1").Izračunaj MsgBox (Range( "A1").Vrednost) End Sub

Zaženite program tako, da kliknete enega od njegovih stavkov in nato kliknete ukaz »Zaženi« v meniju »Zaženi«. Ko vas Excel pozove k argumentom funkcije, jih vnesite in pritisnite "Enter". Vaš program bo prikazal rezultat funkcije "Roundup" za argumente, ki ste jih vnesli.