[VBA / Excel] Redondear al entero superior Resuelto

Question

Hola,
todo está escrito en el título.
Actualmente, estoy utilizando una variable en Integer, pero los valores se redondean hacia arriba o hacia abajo.
Me gustaría que se redondeara únicamente hacia arriba, incluso cuando estoy en X,00000001 que me dé X+1 como entero.
¿Cómo puedo hacer eso?
¿Pueden ayudarme?

Gracias

Configuración: Windows XP Firefox 2.0.0.11

Mik-78 · Accepted Answer

Bueno, el tema es antiguo, ¡pero puede interesar a otros!  Se están complicando la vida, solo hace falta escribir simplemente: Application.WorksheetFunction.RoundUp(Valor)

120 · Answer

Utiliza la parte entera a la que le agregas 1  b=int(a) + 1

sfritz · Answer

Este procedimiento funciona si el primer dígito después de la coma es inferior a 5, pero si es superior pasa directamente al dígito superior.

Por ejemplo, 16.3 se convierte en 16 en entero y luego en 17 con +1.
Pero 16.6 se convierte en 17 en entero y luego en 18 con +1.

Pero me gustaría que en ambos casos el valor final fuera 17.

Gracias

toto · Answer

Hola  Añade 0.5 y toma la parte entera.

Tom · Answer

Hola,  hay que hacer int(round(a+0.5))

GameOver · Answer

En VB.net existe esto en el espacio de nombres "Math":
Ceiling(monNumero)

Que proporciona el límite superior entero más cercano a un número.

Ceiling(15.1) = 16
Ceiling(15.88) = 16

A ver si también existe en VBA...

---------------------------------------------

O si no, hacer una nueva función para insertar en un módulo:

Public Function Ceiling(RoundValue As Currency) As Currency Dim TheValue As Currency TheValue = RoundValue Select Case TheValue - Int(TheValue) Case Is <= 0.25 Ceiling = Int(TheValue) Case Is >= 0.5 Ceiling = Int(TheValue) + 1 Case Is >= 0.26 Ceiling = Int(TheValue) + 0.5 End Select End Function

(encontrado en http://bytes.com/topic/access/answers/832599-ceiling-function)

eriiic · Answer

Buenas noches,  suponiendo que tus números sean siempre positivos: =-Int(-i)  eric  edit: acabo de ver la fecha...

f894009 · Answer

Hola,   B = Int(X)  Si (X - B) > 0 Entonces  X = Int(X) + 1  Fin Si  Es básico pero efectivo  Buena continuación

ZeldaLL · Answer

¡Hola!

No tengo la costumbre de escribir en los foros, pero me gusta compartir los inicios de soluciones que subo como puedo :).

Tuve el mismo problema, quizás no sea la mejor solución, pero aquí está mi código:

A poner en un módulo:

 Sub test() c = Selection.Row d = Selection.Column Range("E5:I5").Select x = Selection.Columns.Count Range("E5").Select For y = 1 To x a = Selection.Value If a = Int(a) Then Selection.Value = a Else b = Int(a) If (a - b) > 0 Then a = Int(a) + 1 Selection.Value = a End If End If a = "" ActiveCell.Offset(0, 1).Select Next Cells(c, d).Select End Sub

A poner en "Hoja1":

 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.ScreenUpdating = False Application.EnableEvents = False If Not Intersect(Target, Range("A1:Z65536")) Is Nothing Then Call test End If Application.ScreenUpdating = True Application.EnableEvents = True End Sub

yvesm · Answer

Al mirar si tu redondeo es estrictamente inferior a tu cálculo sin redondear, creo que tendrás un resultado seguro:   i = Round((v-2 / 999))  If i < ((v - 2) / 999) Then  i = i + 1  End If

jpvito · Answer

En VBA, esto funciona:  If ((Valor - Int(Valor)) = 0) Then  res = Int(Valor)  Else  res = Int(Valor) + 1  End If

Stin · Answer

Si (valeur * 10 - CInt(valeur) * 10) <> 0 alors valeur = CInt(valeur) + 1 Fin Si  ... D'accord, ce n'est pas très joli, mais ça a le mérite d'être fonctionnel ^^'

[VBA / Excel] Redondear al entero superior

12 respuestas

Problema de conexión wifi

Conectar una sony handycam video 8 ccd f555e a un televisor hd

Buenos días, señor

Controlador de visualización incompatible

Herramienta de bloqueo de sitios sensibles

Absorbedor de tinta

Duración de la batería del teléfono móvil

Código pin (windows hello)

Android smartphone hacké

Muchos fais proponen una suscripción de 2€ y la tarjeta de 1€