↧
Arredondar
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"...
View ArticleArredondar
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)
View Article