Attēla kredīts: mavoimages/iStock/Getty Images
Mācīšanās izmantot Excel funkciju "Roundup" no tās iebūvētās programmēšanas valodas VBA vai Visual Basic for Applications palīdz palaist jebkuru Excel funkciju no VBA. Šī prasme ir noderīga, jo programmā Excel ir daudzas funkcijas, kuru VBA nav, un kuras jums, iespējams, būs jāpiemēro no VBA programmas. Ņemiet vērā, ka VBA funkcija, kas ļauj pieskarties funkcijai "Roundup", nebrīdinās jūs par nepareizu sintaksi vai argumentu, kā tas būtu, izmantojot standarta darblapas saskarni.
Mērķis
Excel funkcija "Roundup" noapaļo skaitli uz augšu līdz jūsu norādītajam ciparu skaitam. Piemēram, palaižot "Roundup (2.2, 0)", programma Excel norāda, ka vēlaties noapaļot skaitli 2.2 līdz nākamajam veselam skaitlim. "0" otrajā argumentā norāda programmai Excel, ka nevēlaties nekādus ciparus aiz komata, kas ir līdzvērtīgs apgalvojumam, ka vēlaties saņemt veselu skaitļu atbildi.
Dienas video
VBA apaļā funkcija
VBA nav iebūvēta funkcija "Roundup". Tuvākā funkcija, kas tai ir, ir funkcija "Round", kas noapaļo uz augšu vai uz leju atkarībā no tā, vai noapaļotā skaitļa beigu cipars ir lielāks vai mazāks par 5. Piemēram, ierakstot "Round (2.2, 0)" VBA "Tūlītēja" logā, tiek iegūts 2, nevis 3, līdz kuram Excel funkcija "Roundup" noapaļotu uz augšu.
Īpašums "Formula".
Lai gan VBA nav savas funkcijas "Roundup", tā var izmantot Excel funkciju "Roundup". Lai uzdotu VBA to izdarīt, iestatiet virtuālā objekta "Range" rekvizītu "Formula" uz funkciju "Roundup". Šis piemērs parāda, kā to izdarīt. Atveriet VBA izstrādes vidi, programmā Excel vienlaikus nospiežot "Alt" un "F11". Noklikšķiniet uz peles logā "Tūlītēja" un pēc tam ierakstiet šādu paziņojumu: "Diapazons ("A1"). Formula = "=Roundup (2.2, 0)"." Atgriezieties programmā Excel, izmantojot tikko aprakstīto taustiņu "Alt-F11".. Šūnā A1 redzēsit rezultātu "3", kas norāda, ka jūsu paziņojumā ir veiksmīgi lietota Excel funkcija "Roundup".
Interaktīvs piemērs
Varat izveidot interaktīvu VBA programmu, kas pieņem no lietotāja argumentus funkcijai "Roundup" un parāda šīs funkcijas rezultātu. Pēc VBA izstrādes vides atvēršanas logā ielīmējiet šādu programmu:
Public Sub roundUpANumber() Dim a1, a2, s a1 = CDbl (InputBox("Ievadiet skaitli, kuru vēlaties noapaļot")) a2 = CInt (InputBox("Ievadiet decimāldaļu skaitu, līdz kurai vēlaties noapaļot tikko ievadīto skaitli.")) s = "=Roundup(" & a1 & "," & a2 & ")" Diapazons("A1"). Formula = s Diapazons("A1") .Calculate MsgBox (diapazons("A1").Vērtība) Beigas Apakš
Palaidiet programmu, noklikšķinot uz viena no tās paziņojumiem, pēc tam noklikšķinot uz izvēlnes "Palaist" komandas "Run". Kad programma Excel pieprasa funkcijas argumentus, ierakstiet tos un nospiediet taustiņu Enter. Jūsu programma parādīs jūsu ievadīto argumentu funkcijas "Roundup" rezultātu.
