Arredondar

Question

Como posso fazer uma macro que arredonde numeros que terminem entre 2 e 3 (por exemplo: 2,33;12,33;22,33) para final em 4? (2,44 para 4; 12,33 para 14; 22,33 para 24)

Answer 1

Option Explicit

Sub TESTE()



Dim NUMERO As String
Dim NUMERO2 As Integer
Dim PNUMERO As Integer
Dim V As Integer

NUMERO = CStr(102.33)
V = InStr(1, NUMERO, ",")
If V = 3 Then
If Right(NUMERO, 2) = "33" Or Right(NUMERO, 2) = "44" Then
 
 PNUMERO = Left(NUMERO, 1) * 10

NUMERO2 = CInt(PNUMERO + 4)
MsgBox NUMERO2
End If
End If

If V = 4 Then
If Right(NUMERO, 2) = "33" Or Right(NUMERO, 2) = "44" Then
 
 PNUMERO = Left(NUMERO, 1) * 100

NUMERO2 = CInt(PNUMERO + 4)
MsgBox NUMERO2
End If
End If



If V = 2 Then
If Right(NUMERO, 2) = "33" Or Right(NUMERO, 2) = "44" Then
 PNUMERO = 0
NUMERO2 = CInt(PNUMERO + 4)
MsgBox NUMERO2
End If
End If





End Sub

---

Anderson Diniz [e-mail]

Answer 2

Deu certo, valeu