Los Excel " Roundup " función redondea un número al alza de la cantidad de dígitos que especifique . Por ejemplo , correr " Roundup ( 2,2 , 0 ) " indica a Excel que desea que redondear el número 2.2 al siguiente número entero . El " 0 " en el segundo argumento indica a Excel que no desea ningún dígito después del punto decimal, lo que equivale a decir que quieres una respuesta entero.
VBA Ronda Función
VBA no tiene una función de " Roundup " construido adentro la función más cercano que tiene es la función de "Ronda " , que se redondea hacia arriba o hacia abajo dependiendo de si el fin dígito en el número que está redondeo es mayor o menos de 5 . Por ejemplo , si escribes " Round ( 2.2 , 0 )" en el VBA " inmediatas " Resultados de la ventana en un 2 , en lugar de los 3 que la función de Excel " Roundup " se redondee a .
propiedad " Formula"
Aunque VBA no tiene una función de " Roundup " de su cuenta, puede usar la función de " Roundup " de Excel. Encomendar VBA Para ello, establezca la propiedad "La Fórmula " del " rango" objeto virtual a la función " Roundup " . El ejemplo siguiente muestra cómo hacer esto . Abra el entorno de desarrollo de VBA con la tecla " Alt" y " F11 " al mismo tiempo dentro de Excel . Haz clic con el ratón en la ventana " inmediata " , a continuación, escriba la siguiente declaración : " Range (" A1 ") Formula = " = Roundup ( 2,2 , 0 ) " " Return to Excel usando la tecla "Alt -F11 " pulsación de teclas se acaba de describir . . . verá el resultado de " 3 " en la celda A1 , lo que indica su estado de aplicarse con éxito la función de " Roundup " de Excel.
interactivo Ejemplo
Usted puede hacer un interactivo programa de VBA que acepta del usuario de los argumentos para la función de " Roundup " , y muestra el resultado de esta función Después de abrir el entorno de desarrollo de VBA , pegue el siguiente programa en la ventana: .
Pública roundUpANumber Sub ( )
Dim a1, a2 , s
a1 = CDbl ( InputBox ("Escriba el número al que desea round" ))
a2 = CInt ( InputBox ( " Introduce el número de decimales al que le gustaría redondear el número que acaba de introducir . " ))
s = " = Roundup ("& A1 &", "& A2 &") "
Rango
("A1 ") . Fórmula = s
Range (" A1") . Calcular
MsgBox ( Range (" A1") . Valor )
End Sub
Ejecute el programa haciendo clic en uno de los estados , a continuación, hacer clic en el comando " Ejecutar" del menú " Ejecutar" . Cuando Excel le pide argumentos de la función , forma de ellos y presiona " Enter". Su programa se muestra el resultado de la función de " Roundup " de los argumentos que ha entrado .