Función de redondeo de VBA

Función de redondeo de Excel VBA

Similar a la función de la hoja de trabajo donde redondeamos los números a los enteros más cercanos, en VBA tenemos una función RoundUp que disminuye el punto decimal para nosotros y la sintaxis para usar la función de redondeo es la siguiente Redondear (Número, Número de dígitos después del decimal ) estos dos argumentos en la función son obligatorios.

Cuando trabajamos con números y cálculos, obtenemos números de fracción después del número entero y es bastante común en los negocios cotidianos. Por lo general, no nos preocupamos por los valores decimales porque no tienen ningún impacto en nuestro resultado final. En esas situaciones, necesitamos redondear los números al número entero más cercano o al número entero inmediato. Al usar la función RoundUp, podemos realizar esta tarea.

Si ha buscado en VBA la función RoundUp, entonces no debe haberla encontrado porque es una función de hoja de trabajo. Para acceder a la función RoundUp, necesitamos usar la clase de función de hoja de trabajo vba.

Antes de esto, recuerde la sintaxis de la función RoundUp.

Ejemplos

Puede descargar esta plantilla de Excel de VBA RoundUp aquí - Plantilla de Excel de VBA RoundUp

Realicemos la tarea de redondear el número "288.5264". Veremos todos los números con este ejemplo.

Ejemplo n. ° 1: cuando el segundo argumento es cero

Mira el código VBA a continuación.

Código:

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

• Cuando ejecute el código anterior, convertirá el número proporcionado, es decir, 288.5264 al número entero más cercano, es decir, 289

Ejemplo n. ° 2: cuando el segundo argumento es 1

Mire el código a continuación para ver qué sucede cuando pasamos uno como segundo argumento.

Código:

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

• Este código convertirá el número dado a un punto decimal, es decir, 288,6

Ejemplo n. ° 3: cuando el segundo argumento es 2

Mire el código a continuación para ver qué sucede cuando pasamos dos como segundo argumento.

Código:

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

• Este código convertirá el número dado a dos puntos decimales, es decir, 288,53

Ejemplo n. ° 4: cuando el segundo argumento es 3

Mire el código a continuación para ver qué sucede cuando pasamos tres como segundo argumento.

Código:

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

• Este código convertirá el número dado a tres puntos decimales, es decir, 288.527

Ejemplo n. ° 5: cuando el segundo argumento es -1

Mire el código a continuación para ver qué sucede cuando pasamos menos uno como segundo argumento.

Código:

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

• Este código convertirá el número dado a la decena más cercana, es decir, 290.

Ejemplo n. ° 6: cuando el segundo argumento es -2

Mire el código a continuación para ver qué sucede cuando pasamos menos dos como segundo argumento.

Código:

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

• Este código convertirá el número dado a la centena más cercana, es decir, 300.

Ejemplo n. ° 7: cuando el segundo argumento es -3

Mire el código a continuación para ver qué sucede cuando pasamos menos tres como segundo argumento.

Código:

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

• Este código convertirá el número al millar más cercano, es decir, 1000.

De esta manera, podemos usar la función REDONDEAR en VBA como parte de la clase de función de la hoja de trabajo para redondear los números según el segundo argumento proporcionado.