Vba: como usar pi em cálculos

Em matemática, Pi é um número irracional (um número decimal infinito) igual a aproximadamente 3,14.

Para usar Pi em cálculos em VBA, você pode usar a seguinte sintaxe:

 Function MultiplyByPi(inputVal)

Dim Pi As Double

MultiplyByPi = inputVal * Application.WorksheetFunction.Pi()

End Function

Esta função específica permite multiplicar qualquer valor no Excel por Pi.

Observe que Application.WorksheetFunction.Pi retorna o valor 3.14159265358979 , que é a constante Pi precisa de 15 dígitos.

Se precisar de um cálculo mais preciso do que 15 dígitos, você pode simplesmente codificar Pi com quantos dígitos desejar.

O exemplo a seguir mostra como usar essa sintaxe na prática.

Exemplo: como usar Pi em VBA

Suponha que temos a seguinte lista de valores no Excel que gostaríamos de multiplicar por Pi:

Para fazer isso, podemos criar a seguinte função em VBA:

 Function MultiplyByPi(inputVal)

Dim Pi As Double

MultiplyByPi = inputVal * Application.WorksheetFunction.Pi()

End Function

Depois de criarmos esta função, podemos digitar a seguinte fórmula na célula B2 para multiplicar o valor na célula A2 por Pi:

 =MultiplyByPi( A2 )

Podemos então clicar e arrastar esta fórmula para cada célula restante na coluna B:

A coluna B agora exibe cada valor na coluna A multiplicado por Pi.

Recursos adicionais

Os tutoriais a seguir explicam como realizar outras tarefas comuns em VBA:

VBA: Como adicionar valores em um intervalo
VBA: Como calcular o valor médio do intervalo
VBA: Como contar o número de linhas no intervalo