Решить это в excel и vba

вычислить y= cosx + cosx^2 + cosx^3 + + cosx^n

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 в имени.

Или можно сохранить как есть а потом сначала вызывать Эксель и в нем открыть этот файл игнорируя расширение.