coding and helping to launch vba
 

im using the following code

Sub test()
Dim x As Single, n As Integer, i As Integer, fact As Integer
n = Range("b3")
x = Range("a3")
'calculate n factorial
'checking B3
If Range("B3") <= 0 Or Int(Range("B3")) < Range("B3") Then
MsgBox " integer in b3 must be greater then zero"
Exit Sub
End If
fact = 1
For i = 1 To n
fact = fact * 1
Next i
'calculate result x ^ n/fact n!
result = x ^ n / fact
Range("c3") = result


where n =5 and x = 2 but is running into cell c3 32, which is 2 to
the
power 5 factorial


but i want to run 2 to the power 5 divided by n factorial, does
anyone
no anything i can put into this vba code to make it return this.


also i want to add some error checking, does anyone know how to add
that to the vba code


thanks

coding and helping to launch vba
 

see your other post

"biker man" wrote:

im using the following code

Sub test()
Dim x As Single, n As Integer, i As Integer, fact As Integer
n = Range("b3")
x = Range("a3")
'calculate n factorial
'checking B3
If Range("B3") <= 0 Or Int(Range("B3")) < Range("B3") Then
MsgBox " integer in b3 must be greater then zero"
Exit Sub
End If
fact = 1
For i = 1 To n
fact = fact * 1
Next i
'calculate result x ^ n/fact n!
result = x ^ n / fact
Range("c3") = result


where n =5 and x = 2 but is running into cell c3 32, which is 2 to
the
power 5 factorial


but i want to run 2 to the power 5 divided by n factorial, does
anyone
no anything i can put into this vba code to make it return this.


also i want to add some error checking, does anyone know how to add
that to the vba code


thanks