Arredondamento de Valor

[adriano944]

Pessoal..

Boa Tarde

Mais uma vez venho solicitar ajuda de vocês..

Estou com o seguinte problema, tenho uma parte do codigo abaixo q me da a media de uma determinada coluna em outra planilha..

Sheets("MediaTempo de Estruturação").Select

For i = 8 To ActiveSheet.UsedRange.Rows.Count

If Cells(i, 1) = modelo Then

If Cells(i, 5) >= 1 Then

media = "=AVERAGE('" + modelo + "'!R[-6]C[25]:R[65528]C[25])"

Cells(i, 6) = media

Else

Cells(i, 5) = "0"

End If

End If

Next

porem em uma determinada planilha a media q esta aparecendo é: 78,71 mas o valor ao lado esta formatado para numero e com 2 casas decimais do valor: 78,7058823529412

gostaria de saber se tem alguma função que me de diretamente o valor 78,71, sem ser mecessário a utilização da "mascara" que o excel disponibiliza.

Desde já agradeço a atenção

[KodornaRocks]

Sub teste()

a = 11 / 3

MsgBox Round(a, 2)

End Sub

[adriano944]

Sub teste()

a = 11 / 3

MsgBox Round(a, 2)

End Sub

KodornaRocks

Obrigado por responder a minha pergunta, porem não consegui entender a sua resposta..poderia explica-la por gentileza?

[KodornaRocks]

Sub teste()

a = 11 / 3

MsgBox Round(a, 2)

End Sub

KodornaRocks

Obrigado por responder a minha pergunta, porem não consegui entender a sua resposta..poderia explica-la por gentileza?

gostaria de saber se tem alguma função que me de diretamente o valor 78,71, sem ser mecessário a utilização da "mascara" que o excel disponibiliza.

Pelo que entendi você só queria saber o comando que arredonda um número com N casas depois da virgula para apenas 2, não é?

Seguindo a sintaxe: Round("Valor Float", "Numero de casas depois da vírgula")

Ex 1:

a = 11/3 ' Logo o valor de a é 3,666......

b = Round(a,2)

MsgBox b

' A resposta será 3,67

Ex 2:

a = 11/3 ' Logo o valor de a é 3,666......

b = Round(a,3)

MsgBox b

' A resposta será 3,667

Ex 3:

a = 10/3 ' Logo o valor de a é 3,333......

b = Round(a,2)

MsgBox b

' A resposta será 3,33

Pelo menos foi isso que eu entendí de sua pergunta.