Написание программы на языке VBA

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

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

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

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

Sheets("Результат").Cells(7, 1) = "ромашка"

Sheets("Результат").Cells(8, 1) = "хризантема&qu

ot;

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

Sheets("Результат").Cells(10, 1) = "Итого"

Sheets("Результат").Cells(10, 6) = koll_i

'в соответствующие ячейки записываются количество букетов

For i = 1 To 6

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

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

For j = 1 To 3

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

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

'рассчитывается закупочные цены каждого вида за год

Next j

'результат записывается в соответствующие ячейки

Next i

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

Sheets("Результат").Select

Sheets("Результат").Cells(12, 1) = "Результат в денежном эквиваленте"

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

Sheets("Результат").Cells(13, 2) = "количество букетов в каждом году."

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

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

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

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

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

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

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

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

Sheets("Результат").Cells(18, 1) = "ромашка"

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

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

Sheets("Результат").Cells(21, 1) = "ИТОГО"

Sheets("Результат").Cells(22, 1) = "Вид цветов принесший макс доход за 2 года"

'производится вывод количества букетов в каждом году

For i = 1 To 6

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

Next i

'расчет сумм: проданных букетов, за 3 года каждого вида цветов, общего дохода за 3 года;

'вывод: проданных букетов, за 3 года каждого вида цветов

For i = 1 To 6

For j = 1 To 3

zar (i, j) = koll(i) * cena(i, j)

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

zarpl (i) = zarpl(i) + zar(i, j)

Next j

Sheets ("Результат").Cells (14 + i, 6) = zarpl (i)

den = den + zarpl (i)

Next i

'вывод общего дохода за 3 года

Sheets("Результат").Cells(21, 6) = den

'расчет вида цветов за 2 года принесших максим доход

min = 0

For i = 1 To 6

sum (i, 1) = zar (i, 1) + zar (i, 2)

sum (i, 2) = zar (i, 2) + zar (i, 3)

sum (i, 3) = zar (i, 1) + zar (i, 3)

For j = 1 To 3

If sum (i, j) > min Then

z = i

min = sum(i, j)

End If

Next j

Next i

Sheets ("Результат").Cells (22, 6) = Sheets ("Результат").Cells (14 + z, 1)

End Sub

6. Описание входных данных и результат вычислений

Проверка программы на всех единицах:

Проверка на всех нулях:

Проверка на произвольных данных:

Исходные данные для задания № представлены на Рис.№1., решение – на Рис.2

7. Список использованной литературы

1. Информатика. Методическое пособие по выполнению практических работ в компьютерном классе (Word, Excel) / Гришин М.П. М.: МГИУ, 2005.

2. Информатика. Часть 1. Введение в информатику: учебное пособие / Гришин М.П., Иванов М.Н., Носова Т.К., Суворов С.В. М.: МГИУ, 2008.

3. Информатика. Часть 2. Программирование: Учебно-методическое пособие / Иванов М.Н., Суворов С.В. М.: МГИУ. 2006.

4. Моделирование с помощью Microsoft Excel и VBA. Разработка систем поддержки принятия решений/ Кристиан Олбрайт: Вильямс, 2005

5. Профессиональная разработка приложений Excel/ Стивен Буллен, Роб Боуви, Джон Грин: Вильямс, 2005

6. Самоучитель VBA/ Андрей Гарнаев: БХВ-Петербург,2004

7. Самоучитель программирования на VBA в Microsoft Office/В. Д. Хореев: Юниор, 2001

 Скачать реферат