Pildi krediit: mavoimages/iStock/Getty Images
Exceli funktsiooni "Roundup" kasutamise õppimine selle sisseehitatud programmeerimiskeeles VBA või Visual Basic for Applications aitab teil käivitada mis tahes VBA Exceli funktsiooni. See oskus on kasulik, kuna Excelis on palju funktsioone, mida VBA-l ei ole ja mida peate võib-olla kasutama VBA programmist. Pange tähele, et VBA-funktsioon, mis võimaldab teil puudutada funktsiooni "Roundup", ei hoiata teid vale süntaksi või argumendi eest, nagu see juhtuks standardse töölehe liidese kasutamisel.
Eesmärk
Exceli funktsioon "Roundup" ümardab arvu ülespoole teie määratud numbrite arvuni. Näiteks käsk "Roundup (2.2, 0)" ütleb Excelile, et soovite arvu 2.2 ümardada järgmise täisarvuni. Teises argumendis olev "0" ütleb Excelile, et te ei soovi pärast koma ühtegi numbrit, mis on samaväärne sellega, kui öeldakse, et soovite täisarvulist vastust.
Päeva video
VBA ümmargune funktsioon
VBA-l pole sisse ehitatud funktsiooni "Roundup". Lähim funktsioon sellel on funktsioon "Round", mis ümardab üles või alla olenevalt sellest, kas ümardatava arvu lõppnumber on suurem või väiksem kui 5. Näiteks kui sisestate VBA "Immediate" aknasse "Round (2.2, 0)" annab tulemuseks 2, mitte 3, milleni Exceli funktsioon "Roundup" ümardaks.
Vara "vormel".
Kuigi VBA-l pole eraldi funktsiooni "Roundup", saab see kasutada Exceli funktsiooni "Roundup". Selleks, et VBA-l seda teha, määrake virtuaalse objekti "Range" atribuut "Valem" funktsiooniks "Roundup". Järgmine näide näitab, kuidas seda teha. Avage VBA arenduskeskkond, vajutades Excelis korraga "Alt" ja "F11". Klõpsake hiirega aknas "Kohe" ja tippige järgmine lause: "Range ("A1"). Valem = "=Roundup (2.2, 0)"." Naaske Excelisse, kasutades äsja kirjeldatud klahvi "Alt-F11". Lahtris A1 näete tulemust "3", mis näitab, et teie avaldus on edukalt rakendanud Exceli funktsiooni "Roundup".
Interaktiivne näide
Saate luua interaktiivse VBA-programmi, mis võtab kasutajalt vastu funktsiooni "Roundup" argumendid ja kuvab selle funktsiooni tulemuse. Pärast VBA arenduskeskkonna avamist kleepige aknasse järgmine programm:
Public Sub roundUpANumber() Dim a1, a2, s a1 = CDbl (InputBox("Sisestage arv, mida soovite ümardada")) a2 = CInt (InputBox("Sisestage kümnendkohtade arv, milleni soovite äsja sisestatud arvu ümardada.")) s = "=Roundup(" & a1 & "," & a2 & ")" Vahemik("A1"). Valem = s Vahemik("A1") .Calculate MsgBox (Range("A1").Väärtus) Lõpp Sub
Käivitage programm, klõpsates ühte selle avaldustest, seejärel klõpsates menüüs "Käivita" käsku "Käivita". Kui Excel küsib funktsiooni argumendid, tippige need ja vajutage sisestusklahvi. Teie programm kuvab teie sisestatud argumentide funktsiooni "Roundup" tulemuse.
