Arredondar valor para baixo
Enviado: 22 Abr 2015 às 16:03
Boa tarde,
Estou com a planilha em anexo onde através do código abaixo é realizado a soma da coluna L. No valor da coluna J preciso que o valor seja arredondado para baixo, porém esta arredondando para cima.
Se realizar a divisão de 6698 por 20 o valor é 334,9 preciso que seja arredondado para 334. Alguém pode me ajudar?
Estou com a planilha em anexo onde através do código abaixo é realizado a soma da coluna L. No valor da coluna J preciso que o valor seja arredondado para baixo, porém esta arredondando para cima.
Código: Selecionar todos
Sub SomaReparte()
Dim vReparte As Long
Dim vTotal As Long
Dim vPacote As Long
For vReparte = 2 To Plan1.Cells(Rows.Count, "L").End(xlUp).Row
vTotal = vTotal + Plan1.Cells(vReparte, "L")
Next
vPacote = vTotal / 20
[L65000].End(xlUp).Offset(1, 0).Value = vTotal
[L65000].End(xlUp).Offset(0, -2).Value = vPacote
End SubSe realizar a divisão de 6698 por 20 o valor é 334,9 preciso que seja arredondado para 334. Alguém pode me ajudar?