eXe

Média simples - uso de Double

Ícone iDevice

Reflexão

Dados dois valores "reais", calcular sua média.

Sub MediaSimples()

Dim V1, V2 As Double

V1=Cells(1,1)

V2=Cells(1,2)

Cells(2,2)=(V1+V2)/2

End Sub