vba

P

paul

im writing a VBA programme where x = 2 in cell A3 and cell B3 = 5

and in cell C3


=IF(B3<=0,"B3 must be integer greater than zero",(A3^B3)/FACT(B3))


can anyone help me write a VBA programmeto ensure that x from cell
a3
and n from cell b3 return in cell c3 the value of x raised tot he n
divided by n factorial


where x is 2 and n is 5


many thanks as im struggling on how to do this
 
P

p45cal

maybe:

Sub blah()
'checking B3:
If Range("B3") < 1 Or Int(Range("B3")) <> Range("B3") Then
MsgBox "B3 should be an integer greater than 0"
Exit Sub
End If
Range("C3") = Range("A3") ^ Range("B3") /
Application.WorksheetFunction.Fact(Range("B3"))
End Sub
 
B

Bill Renaud

A VBA function might be as follows (the "&" after the 0 declares the 0
to be a long data type):

Public Function MyFunction(X As Double, N As Long) As Variant
If (N <= 0&) _
Then
MyFunction = "N must be an integer greater than zero"
Else
MyFunction = (X ^ N) / WorksheetFunction.Fact(N)
End If
End Function

In cell C3, put the worksheet formula:

=MyFunction(A3,B3)
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

programme run help 2
vba coding 3
vba help 1
vba programming 1
vba help with formula 0
running varibiables into vba 1
running a programme 9
programme fucntioning problems errors 2

Top