Funcția de rotunjire Excel și VBA

click fraud protection
Lucrează la laptopul ei la o cafenea

Credit imagine: mavoimages/iStock/Getty Images

Învățarea cum să utilizați funcția „Roundup” din Excel din limbajul său de programare încorporat VBA sau Visual Basic pentru aplicații vă ajută să rulați orice funcție Excel din VBA. Această abilitate este utilă deoarece Excel are multe funcții pe care VBA nu le are și pe care poate fi necesar să le aplicați dintr-un program VBA. Rețineți că caracteristica VBA care vă permite să accesați funcția „Roundup” nu vă va avertiza cu privire la o sintaxă sau un argument incorect, așa cum s-ar întâmpla atunci când utilizați interfața standard a foii de lucru.

Scop

Funcția „Roundup” din Excel rotunjește un număr în sus la numărul de cifre pe care îl specificați. De exemplu, rularea „Roundup (2.2, 0)” spune Excel că doriți să rotunjească numărul 2.2 la următorul întreg. „0” din al doilea argument îi spune lui Excel că nu doriți nicio cifră după virgulă zecimală, ceea ce este echivalent cu a spune că doriți un răspuns întreg.

Videoclipul zilei

Funcția rotundă VBA

VBA nu are o funcție „Roundup” încorporată. Cea mai apropiată funcție pe care o are este funcția „Round”, care rotunjește în sus sau în jos, în funcție de faptul dacă cifra de sfârșit din numărul pe care îl rotunjiți este mai mare sau mai mică de 5. De exemplu, tastarea „Round (2.2, 0)” în fereastra VBA „Imediat” are ca rezultat un 2, în loc de 3 la care funcția „Roundup” de Excel l-ar rotunji.

Proprietatea „Formulă”.

Deși VBA nu are o funcție „Roundup” proprie, poate folosi funcția „Roundup” din Excel. Pentru a instrui VBA să facă acest lucru, setați proprietatea „Formulă” a obiectului virtual „Range” la funcția „Roundup”. Următorul exemplu vă arată cum să faceți acest lucru. Deschideți mediul de dezvoltare VBA apăsând simultan „Alt” și „F11” din Excel. Faceți clic cu mouse-ul în fereastra „Imediat”, apoi tastați următoarea declarație: „Range („A1”).. Veți vedea rezultatul „3” în celula A1, indicând declarația dumneavoastră aplicată cu succes funcția „Roundup” din Excel.

Exemplu interactiv

Puteți realiza un program VBA interactiv care acceptă de la un utilizator argumentele pentru funcția „Roundup” și afișează rezultatul acelei funcții. După deschiderea mediului de dezvoltare VBA, inserați următorul program în fereastră:

Public Sub roundUpANumber() Dim a1, a2, s a1 = CDbl (InputBox(„Introduceți numărul pe care doriți să-l rotunjiți”)) a2 = CInt (InputBox(„Introduceți numărul de zecimale la care ați dori să rotunjiți numărul pe care tocmai l-ați introdus.")) s = "=Roundup(" & a1 & "," & a2 & ")" Range ("A1").Formula = s Range ("A1") .Calculate MsgBox (Range("A1").Value) End Sub

Rulați programul făcând clic pe una dintre instrucțiunile sale, apoi făcând clic pe comanda „Run” din meniul „Run”. Când Excel vă solicită argumentele funcției, introduceți-le și apăsați „Enter”. Programul dumneavoastră va afișa rezultatul funcției „Roundup” pentru argumentele pe care le-ați introdus.