Vaizdo kreditas: mavoimages/iStock/Getty Images
Išmokus naudoti „Excel“ funkciją „Roundup“ iš integruotos programavimo kalbos VBA arba „Visual Basic for Applications“, galėsite paleisti bet kurią „Excel“ funkciją iš VBA. Šis įgūdis yra naudingas, nes „Excel“ turi daug funkcijų, kurių VBA neturi ir kurias gali tekti taikyti iš VBA programos. Atminkite, kad VBA funkcija, leidžianti paliesti funkciją „Roundup“, neįspės jūsų apie neteisingą sintaksę ar argumentą, kaip tai būtų daroma naudojant standartinę darbalapio sąsają.
Tikslas
„Excel“ funkcija „Apvalinimas“ suapvalina skaičių aukštyn iki jūsų nurodyto skaitmenų skaičiaus. Pavyzdžiui, paleidus „Roundup (2.2, 0)“ nurodoma „Excel“, kad skaičių 2.2 suapvalintų iki kito sveikojo skaičiaus. „0“ antrajame argumente nurodo „Excel“, kad po kablelio nereikėtų skaitmenų, o tai prilygsta sakymui, kad norite gauti sveikąjį atsakymą.
Dienos vaizdo įrašas
VBA apvali funkcija
VBA neturi integruotos „Roundup“ funkcijos. Artimiausia jo funkcija yra „Apvalinti“, kuri apvalinama aukštyn arba žemyn, atsižvelgiant į tai, ar apvalinamo skaičiaus pabaigos skaitmuo yra didesnis nei 5, ar mažesnis. Pavyzdžiui, VBA lange „Immediate“ įvedus „Apvalus (2.2, 0)“, vietoj 3, iki kurio „Excel“ funkcija „Roundup“ suapvalintų, bus 2.
„Formulės“ nuosavybė
Nors VBA neturi savo "Roundup" funkcijos, ji gali naudoti "Excel" "Roundup" funkciją. Norėdami nurodyti VBA tai padaryti, nustatykite virtualaus objekto "Range" ypatybę "Formula" į funkciją "Roundup". Toliau pateiktame pavyzdyje parodyta, kaip tai padaryti. Atidarykite VBA kūrimo aplinką vienu metu paspausdami „Alt“ ir „F11“ programoje „Excel“. Spustelėkite pelę lange „Immediate“, tada įveskite šį teiginį: „Dironas („A1“). Formulė = „=Apvalinimas (2.2, 0)“.“ Grįžkite į „Excel“ naudodami ką tik aprašytą klavišą „Alt-F11“.. A1 langelyje pamatysite rezultatą „3“, nurodantį, kad jūsų teiginys sėkmingai pritaikė „Excel“ funkciją „Roundup“.
Interaktyvus pavyzdys
Galite sukurti interaktyvią VBA programą, kuri iš vartotojo priima funkcijos „Roundup“ argumentus ir parodo tos funkcijos rezultatą. Atidarę VBA kūrimo aplinką, įklijuokite šią programą į langą:
Public Sub roundUpANumber() Dim a1, a2, s a1 = CDbl (InputBox("Įveskite skaičių, kurį norite suapvalinti")) a2 = CInt (InputBox("Įveskite dešimtainių skaičių, iki kurio norite suapvalinti ką tik įvestą skaičių.")) s = "=Apvalinimas(" & a1 & "," & a2 & ")" Diapazonas("A1"). Formulė = s Diapazonas("A1") .Calculate MsgBox (diapazonas("A1").Value) Pabaiga Sub
Paleiskite programą spustelėdami vieną iš jos teiginių, tada spustelėdami meniu „Vykdyti“ komandą „Vykdyti“. Kai „Excel“ paragins įvesti funkcijos argumentus, įveskite juos ir paspauskite „Enter“. Jūsų programa parodys įvestų argumentų funkcijos „Apvalinimas“ rezultatą.