Contenido
En VBA (Visual Basic for Applications), la función WorksheetFunction.Ceiling puede usarse para redondear un número hacia arriba, hasta el múltiplo más cercano de significancia especificado. Esta función es similar a la función CEILING en Excel.
Aquí tienes un ejemplo de cómo usar Ceiling en VBA:
Sub RedondearHaciaArriba()
Dim Numero As Double
Dim Significancia As Double
Dim Resultado As Double
' Establecer el valor del número y la significancia
Numero = 8.25
Significancia = 0.1
' Usar la función Ceiling desde la colección WorksheetFunction
Resultado = Application.WorksheetFunction.Ceiling(Numero, Significancia)
' Mostrar el resultado
MsgBox "El número " & Numero & " redondeado hacia arriba al múltiplo más cercano de " _
& Significancia & " es " & Resultado
End Sub
En este ejemplo, estamos redondeando el número 8.25 hacia arriba al múltiplo más cercano de 0.1.
Ten en cuenta que en versiones más recientes de Excel, la función CEILING ha sido remplazada por CEILING.PRECISE y CEILING.MATH. Asegúrate de utilizar la función correcta que se relacione con la versión de Excel que estás utilizando.
Si quisieras usar CEILING.MATH o CEILING.PRECISE en VBA, el código sería similar pero usando las funciones correspondientes:
Sub RedondearHaciaArribaConCeilingMath()
Dim Numero As Double
Dim Significancia As Double
Dim Resultado As Double
' Establecer el valor del número y la significancia
Numero = 8.25
Significancia = 0.1
' Usar la función Ceiling.Math desde la colección WorksheetFunction
Resultado = Application.WorksheetFunction.Ceiling_Math(Numero, Significancia)
' Mostrar el resultado
MsgBox "El número " & Numero & " redondeado hacia arriba al múltiplo más cercano de " _
& Significancia & " con Ceiling.Math es " & Resultado
End Sub
Por último, es importante mencionar que VBA tiene manejo de errores y es posible que necesites envolver tu llamada a Ceiling con un bloque On Error para manejar casos donde la función podría generar un error, como cuando se pasa un argumento no válido.
Conoce nuestra tienda
Ver más productos
Mejora tu nivel y logra tus objetivo
Excel
Access
Power BI
