Курсовая работа: Составление и описание программы по заданным параметрам

Next

'в каждую ячейку массива koll(i, j) записывается количество букетов за период

'так как массив двумерный цикл проходит по двум счетчикам

For i = 1 To 6

For j = 1 To 5

koll(i, j) = Cells(3 + i, 2 + j)

Next j

Next i

'на листе "Результат" создаются ячейки с определенными названиями

Sheets("Результат").Cells(1, 1) = "Количество букетов"

Sheets("Результат").Cells(2, 1) = "Наименование цветов"

Sheets("Результат").Cells(2, 2) = "Цена 1-го букета"

Sheets("Результат").Cells(2, 3) = "Собрано"

Sheets("Результат").Cells(3, 3) = "1-й год"

Sheets("Результат").Cells(3, 4) = "2-й год"

Sheets("Результат").Cells(3, 5) = "3-й год"

Sheets("Результат").Cells(3, 6) = "Всего"

Sheets("Результат").Cells(4, 1) = "Розы"

Sheets("Результат").Cells(5, 1) = "Гвоздики"

Sheets("Результат").Cells(6, 1) = "Лилии"

Sheets("Результат").Cells(7, 1) = "Тюльпаны"

Sheets("Результат").Cells(8, 1) = "Орхидеи"

Sheets("Результат").Cells(9, 1) = "Хризантемы"

'в соответсвующие ячейки записываются цены собранных букетов

For i = 1 To 6

Sheets(" Результат ").Cells(3 + i, 2) = cena(i)

For j = 1 To 4

'в соответсвующие ячейки записываются количество собранных букетов за каждый год

Sheets(" Результат ").Cells(3 + i, 2 + j) = koll(i, j)