что тут нет так?

[komra2]

макрос должен считать вот эту строку

cos (x) + cos (x2) + cos (x3) + cos (x4) + … + cos (x10)

Вот мой код:

Public Function st(x)
For a = 0 To 10 Step 1
res = Cos(x + a)
Next a
End Function

[p51x]

вычисляете ведь только cos(x + 10)

[IgorGO]

так пойдет:
SumCos = cos (x) + cos (x2) + cos (x3) + cos (x4) + … + cos (x10)
вместо троеточия допишете остальные Х и будет все в порядке

если вдруг у Вас х это массив Х (1 to 10)

Public Function st(x)
  For a = 0 To 10
    st = st + Cos(x(a))
  Next 
End Function

[komra2]

Есть такой пример на картинке, и вот такое решение написал, верно ли оно ?Снимок.PNG
Вот сам код, на негативные числа он не хочет работать, а вот на позитивные выдает четкий результат

Public Function l(n)
Dim x, n As Byte
If x < 0 Or x > 0 Or n < 0 Or n > 1 Then
l = (((-1) ^ n - 1) * (x - 1) ^ n) / n
If n = 0 Then
MsgBox "решения нет"
End If
End If
End Function

данные из экселя

-2	#NUM!
-1	#NUM!
0	#NUM!
1	0
2	0,693147181

[IgorGO]

Function L(x)
  dim n as byte
  If x < 1 Then MsgBox "Задайте x >= 1":  Exit function
  for n = 1 to x
    L = L + (-1) ^ (n - 1) * (x - 1) ^ n / n
  next
End Function