VBA Excel

[Slicker]

надо написать функцию, которая возвращает результат в процедуру. Посчитать Сумму ((-1)^i)/i! при от i=1 до n (формула на картинке более понятна). Основную сложность вызывает факториал в формуле...

вот пока что сделал только это:

Sub Pr8()
Dim n As Integer
n = InputBox("Введите число")
s$ = F8(n)
MsgBox ("Сумма = " & s$)
End Sub

Function F8(n As Integer) As Integer
For i = 1 To n
F8 = 
Next i
End Function

вот формула:

[Slicker]

желательно до завтра дописать бы программку...

[Stilet]

Попробуй так, если я правильно поняв:

'Факториалъ
Function Fa(n As Integer) As Integer
Fa = 1
For i = 2 To n
Fa = Fa * i
Next i
End Function

' Функа
Function F8(n As Integer) As Double
Dim i As Integer
For i = 1 To n
F8 = F8 + ((-1) ^ i / Fa(i))
Next i
End Function
Private Sub UserForm_Click()
 MsgBox CStr(F8(3))
End Sub

[Serge_Bliznykov]

Вы тему бы лучше в Excel поместили - там такие монстры, враз Вашу задачу раскусят!! ;-)

ну да ладно.
Прежде всего, тип Integer меняйте на тип Long
дальше, факториал считается не просто, а очень просто
(вот, в лоб, без рекурсии):

Function Factorial(n As integer) As Long
Dim Res As Long, i as Integer
if n = 0 then
  Factorial = 1
else
  Res := 1
  For i = 2 To n
    Res = Res * i
  Next i
  Factorial  = Res
end if
End Function

НО. ВНИМАНИЕ!
имхо тут надо уловить одну закономерность,
каждый следующий член последовательности I-й - это предыдущий умноженный на минус 1 и делённый на I

dim K as Double, S as Double, i%, n%
K = -1
S = K
for i=2 to n
  K = (K * (-1))/i
  S = S + K
next i
MsgBox "Summa = "+CStr(S)

[Slicker]

Спасибо!!!
Сделал чтобы число можно было вводить в ячейку А1.
Вдруг кому нибудь нужна будет подобная программка, вот полностью рабочий код:

Sub Pr8()
Dim n, i As Double
MsgBox CStr(F8(Cells(1, 1)))
End Sub

Function Fa(n As Integer) As Integer
Fa = 1
For i = 2 To n
Fa = Fa * i
Next i
End Function

' Функа
Function F8(n As Integer) As Double
Dim i As Integer
For i = 1 To n
F8 = F8 + ((-1) ^ i / Fa(i))
Next i
End Function