پرسش فاکتوریل

[Mahdi borounsar]

سلام
چطور در vbaعددی رو از کاربر بگیریم و فاکتوریل رو نشون بدیم؟

[iranweld]

با سلام

Sub test()

myvalue = InputBox("Give me some input", "salam", "input your Number here")

If IsNumeric(myvalue) Then

xx = Application.Fact(myvalue)
 
MsgBox xx

Else

MsgBox "no inputed Number"

End If

End Sub