Как создать макрос вычисления суммы чисел Фибоначчи?

Question

[lev89]

Необходимо создать таблицу из двух столбцов. Всего строк пусть будет 10. Первый столбец - порядковый номер. Второй столбец - последовательность чисел фибоначчи. После генерации таблицы необходимо вычислить сумму ряда чисел фибоначчи. Прошу помочь с решением.

Sub CreateTable()

'переменная для присвоения количества строк
Dim a As Long
a = Cells(10, 2).CurrentRegion.Rows.Count

'Добавляем строку заголовков
Cells(1, 1).EntireRow.Insert

'Указываем названия граф
Cells(1, 1) = "№ п/п"
Cells(1, 2) = "Значение"

'Добавляем сетку
Range(Cells(1, 1), Cells(a + 10, 2)).Borders.LineStyle = True

'Выделяем заголовки жирным шрифтов и применяем автоподстройку ширины столбцов
With Range(Cells(1, 1), Cells(1, 2))
.Font.Bold = True
.EntireColumn.AutoFit
End With

End Sub

Comments

[Александр]

Прошу помочь с решением.

Где хоть намётки решения? Пока лишь рисование таблички да графоманские комментарии.

Answer 1

[hint000]

И зачем тут макрос? Формулами за несколько секунд делается (столбец С - сумма первых чисел):

Answer 2

[lev89]

это конечно да, но вопрос принципиальный в рамках изучаемой дисциплины.

Comments

[Александр]

К пересмотру: «Вовка в Тридевятом царстве».

Занятный мультфильм, поучительный.