seychellesartprojects.org

Exceli VBA ümarfunktsioon

Sarnaselt töölehefunktsioonile, kus ümardame arvud lähimate täisarvudeni, on VBA-s funktsioon RoundUp, mis vähendab meie jaoks komakohta ja ümardamisfunktsiooni kasutamise süntaks on järgmine Ümardamine (arv, arvude arv pärast koma ) need kaks funktsiooni argumenti on kohustuslikud.

Kui töötame arvude ja arvutustega, saame täisarvu järel murdarvud ja see on igapäevases äris üsna tavaline. Kümnendväärtuste pärast me üldiselt ei vaeva, sest see ei mõjuta meie lõpptulemust. Sellistes olukordades peame arvud ümardama täisarvuni või täisarvuni. Funktsiooni RoundUp abil saame selle ülesande tegelikult täita.

Kui olete VBA-st otsinud funktsiooni RoundUp, ei pea te seda leidma, kuna see on töölehe funktsioon. Funktsioonile RoundUp pääsemiseks peame kasutama klassi vba töölehe funktsioon.

Enne seda meenutage funktsiooni RoundUp süntaksit.

Näited

Selle VBA RoundUp Exceli malli saate alla laadida siit - VBA RoundUp Exceli mall

Täidame numbri „288.5264” ümardamise ülesande. Selle näite abil näeme kõiki numbreid.

Näide # 1 - kui teine ​​argument on null

Vaadake allpool olevat VBA-koodi.

Kood:

 Alam RoundUp_Example1 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, 0) MsgBox k End Sub 

• Kui käivitate ülaltoodud koodi, teisendab see etteantud numbri, st 288.5264 lähima täisarvuni, st 289

Näide # 2 - kui teine ​​argument on 1

Vaadake allolevat koodi, et näha, mis juhtub, kui edastame ühe teise argumendina.

Kood:

 Alam RoundUp_Example2 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, 1) MsgBox k End Sub 

• See kood teisendab antud arvu üheks kümnendkohaks, st 288,6

Näide # 3 - kui teine ​​argument on 2

Vaadake allolevat koodi, et näha, mis juhtub, kui edastame teise argumendina kaks.

Kood:

 Sub RoundUp_Example3 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, 2) MsgBox k End Sub 

• See kood teisendab antud arvu kaheks kümnendkohaks, st 288,53

Näide 4 - kui teine ​​argument on 3

Vaadake allolevat koodi, et näha, mis juhtub, kui edastame teise argumendina kolm.

Kood:

 Alam RoundUp_Näide4 () Dim k As Double k = töölehtFunction.RoundUp (288.5264, 3) MsgBox k End Sub 

• See kood teisendab antud arvu kolme kümnendkoha täpsusega, st 288 527

Näide # 5 - kui teine ​​argument on -1

Vaadake allolevat koodi, et näha, mis juhtub siis, kui läbime teise argumendina miinus üks.

Kood:

 Alam RoundUp_Example5 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, -1) MsgBox k End Sub 

• See kood teisendab antud numbri kümne lähima, st 290-ni.

Näide # 6 - kui teine ​​argument on -2

Vaadake allolevat koodi, et näha, mis juhtub, kui teise argumendina läbime miinus kaks.

Kood:

 Alam RoundUp_Example6 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, -2) MsgBox k End Sub 

• See kood teisendab antud numbri saja lähima, st 300-ni.

Näide # 7 - kui teine ​​argument on -3

Vaadake allpool olevat koodi, et näha, mis juhtub, kui teise argumendina läbime miinus kolm.

Kood:

 Alam RoundUp_Example7 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, -3) MsgBox k End Sub 

• See kood teisendab numbri lähima tuhandeni, st 1000-ni.

Nii saame kasutada töölehe funktsiooniklassi osana funktsiooni ROUNDUP VBA-s, et arvud ümardada etteantud teise argumendi põhjal.