photosdematures.com

Funció RoundUp Excel VBA

Semblant a la funció de full de càlcul on arrodonim els nombres als enters més propers, a VBA tenim un Funció RoundUp que redueixen el punt decimal per a nosaltres i la sintaxi per utilitzar la funció d'arrodoniment és la següent: arrodoneix (nombre, nombre de dígits després de decimal);

Quan treballem amb nombres i càlculs obtenim nombres fraccionats després del nombre sencer i és bastant comú en els negocis quotidians. En general, no ens preocupem pels valors decimals perquè no afecta cap al nostre resultat final. En aquestes situacions, hem d’arrodonir els números al nombre enter més proper o al número enter immediat. Mitjançant la funció RoundUp podem realitzar aquesta tasca.

Si heu cercat la funció RoundUp a VBA, no l'haureu trobat perquè és una funció de full de càlcul. Per accedir a la funció RoundUp, hem d’utilitzar la classe de funció de full de treball vba.

Abans d'això, recordeu la sintaxi de la funció RoundUp.

Exemples

Podeu descarregar aquesta plantilla Excel de VBA RoundUp aquí - Plantilla Excel de VBA RoundUp

Realitzem la tasca d'arrodonir el número "288.5264". Veurem tots els números amb aquest exemple.

Exemple 1: quan el segon argument és zero

Mireu el codi VBA següent.

Codi:

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

• Quan executeu el codi anterior, convertirà el número proporcionat, és a dir, 288.5264 al número enter més proper, és a dir, 289

Exemple 2: quan el segon argument és 1

Mireu el codi següent per veure què passa quan en passem un com a segon argument.

Codi:

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

• Aquest codi convertirà el número donat en un punt decimal, és a dir, 288,6

Exemple 3: quan el segon argument és 2

Mireu el codi següent per veure què passa quan passem dos com a segon argument.

Codi:

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

• Aquest codi convertirà el nombre donat en dos punts decimals, és a dir, 288,53

Exemple # 4: quan el segon argument és 3

Mireu el codi següent per veure què passa quan passem tres com a segon argument.

Codi:

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

• Aquest codi convertirà el nombre donat en tres punts decimals, és a dir, 288.527

Exemple # 5: quan el segon argument és -1

Mireu el codi següent per veure què passa quan passem menys un com a segon argument.

Codi:

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

• Aquest codi convertirà el nombre donat al deu més proper, és a dir, 290.

Exemple # 6: quan el segon argument és -2

Mireu el codi següent per veure què passa quan passem menys dos com a segon argument.

Codi:

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

• Aquest codi convertirà el nombre donat al cent més proper, és a dir, a 300.

Exemple # 7: quan el segon argument és -3

Mireu el codi següent per veure què passa quan passem menys tres com a segon argument.

Codi:

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

• Aquest codi convertirà el número al miler més proper, és a dir, a 1000.

Així, podem utilitzar la funció ROUNDUP a VBA com a part de la classe de funcions del full de treball per arrodonir els números en funció del segon argument proporcionat.