Option Explicit 'Требование описывать все переменные
Private Sub CommandButton1_Click()
Dim n As Integer, i As Integer
Dim x As Double, y As Double, c As Double
n = CInt(Cells(2, 1))
x = CDbl(Cells(2, 2))
y = 0
c = x
For i = 1 To n
y = y + Cos(c)
c = c * x
Next i
Cells(2, 3) = y
End Sub
Не дает прицепить экселевский файл. Поэтому переименовал r1.xslx для Excel2010 в r1.xlsx.pdfю Скачай и убери расширение .pdf в имени.
Или можно сохранить как есть а потом сначала вызывать Эксель и в нем открыть этот файл игнорируя расширение.
Option Explicit 'Требование описывать все переменные
Private Sub CommandButton1_Click()
Dim n As Integer, i As Integer
Dim x As Double, y As Double, c As Double
n = CInt(Cells(2, 1))
x = CDbl(Cells(2, 2))
y = 0
c = x
For i = 1 To n
y = y + Cos(c)
c = c * x
Next i
Cells(2, 3) = y
End Sub
Не дает прицепить экселевский файл. Поэтому переименовал r1.xslx для Excel2010 в r1.xlsx.pdfю Скачай и убери расширение .pdf в имени.
Или можно сохранить как есть а потом сначала вызывать Эксель и в нем открыть этот файл игнорируя расширение.