Como criar uma função fatorial em vba (com exemplo)

Um fatorial é o produto de todos os inteiros positivos menores ou iguais a um determinado inteiro positivo.

Por exemplo, o fatorial 5 (escrito 5!) é calculado como:

• 5! = 5*4*3*2*1 = 120

Você pode usar a seguinte sintaxe para criar uma função fatorial em VBA:

 Function FindFactorial(N As Integer) As Double

 Dim i As Integer, result As Long
 
 result = 1

 For i = 1 To N
     result = result * i
 Next

 FindFactorial = result

End Function

Depois de criar esta função, você pode digitar algo como =FindFactorial(A2) em uma célula do Excel para encontrar o fatorial do número inteiro na célula A2 .

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

Exemplo: Crie uma função fatorial em VBA

Suponha que temos a seguinte lista de números no Excel e queremos calcular o fatorial de cada número:

Podemos definir a seguinte função em VBA para fazer isso:

 Function FindFactorial(N As Integer) As Double

 Dim i As Integer, result As Long
 
 result = 1

 For i = 1 To N
     result = result * i
 Next

 FindFactorial = result

End Function

Depois de criar esta função, podemos digitar a seguinte fórmula na célula B2 para calcular o fatorial do valor na célula A2 :

 =FindFactorial( A2 )

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

Observe que a coluna B agora exibe o fatorial de cada número inteiro na coluna A.

Por exemplo:

• 1! = 1
• 2! = 2 * 1 = 2
• 3! = 3 * 2 * 1 = 6
• 4! = 4*3*2*1 = 24

E assim por diante.

Nota : Para calcular um fatorial no Excel sem usar VBA, você pode usar a função FACT .

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