VBA Roundup Funciton Excelis numbrite ümardamiseks

Lang L: none (table-of-contents)

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 ) 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 tavaliselt ei vaeva, sest see ei mõjuta meie lõpptulemust. Sellistes olukordades peame numbrid ümardama lähima täisarvuni või vahetu 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 tuletage meelde funktsiooni RoundUp süntaks.

Näited

Teostame arvu „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 esitatud 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:

Sub RoundUp_Example2 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, 1) MsgBox k End Sub
  • See kood teisendab antud numbri ü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 = WorksheetFunction.RoundUp (288.5264, 3) MsgBox k End Sub
  • See kood teisendab antud numbri kolmeks kümnendkohaks, 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:

Sub 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 täpsusega, st 300-ni.

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

Vaadake allolevat koodi, et näha, mis juhtub, kui teise argumendina 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 esitatud teise argumendi põhjal.

Huvitavad Artiklid...