programme run help


P

paul

number,x, from cell A3 and a positive integer, n, from cell B3 then
returns into cell C3 the value of x raised to the power n divided by
n factorial.

where x in cell a3 = 2 and n in cell b3 = 5


im using this formula, but when i run it nothing happens, how do i
make this vba programme run and return the value?


this is the vba programme:


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


or i can use this one, which one do you thinks better?

Sub test()
'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

how do i delcare x and n variables into working vba code so that
the vba can run, im not sure how to decalre them, how you do it. at
the minute nothing happens the vba doesnt code it. do i need to put it
into a macro.

the cell a3 and b3 are on a normal sheet 1 on excel and i need to use
vba to calculate into cell C3 the value of x raised to the power n
divided by n factorial.

I just want to no how to make the code run, im really struggling
please please please help!!!!!

if any one can help can u explain in great detail so i can get it
right thank you
 
Ad

Advertisements

G

Guest

Since you wrote it as a function, you call it by putting "=myfunction(A3,B3)"
in C3 on the worksheet

Peter Richardson
 
Ad

Advertisements

G

Guest

Paul,

Both of these now work. To get the function to run paste it into a general
module and call it with

=MyFunction(a1:b1) Modify the cell addresses to suit

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


Sub test()
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

Mike
 

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

running a programme 9
programme fucntioning problems errors 2
running varibiables into vba 1
vba 2
vba coding 3
run programme error occuring 2
vba 1
PROGRAMME HELP 2

Top