Вычислить произведение чисел от 1 до N (Excel) - VBA

Формулировка задачи:

Разработайте программу, вычисляющую произведение чисел от 1 и по порядку до указанного пользователем числа.

Решение задачи: «Вычислить произведение чисел от 1 до N (Excel)»

textual
                            Листинг программы 
                        

                            Sub Александр9797()
n = InputBox("N")
[A1] = f(n)
MsgBox A1
Debug.Print A1
End Sub
Function f(ByVal x As Long) As Long
If f = 0 Then f = 1
If x > 1 Then
 f = f(x - 1) * x
End If
End Function
 
'N = 5
'N! = 1*2*3*4*5 = 120
                        