Задание: Книжный магазин продал за 3 месяца различное количество книг 10 наименований по цене, устанавливаемым в начале каждого месяца (т.е. каждый месяц цены на книги менялись).
Написать программу на языке VBA, которая вводит исходные данные, выполняет расчёты и выводит на экран:
- исходные данные в виде таблицы, где указаны наименования книг, цена книги в каждом месяце, кол-во проданных книг за каждый месяц;
- доход по каждой книге за 3 месяца
- доход за каждый месяц по всем книгам;
- общий доход по всем книгам за 3 месяца;
- наименование книги, принёсший наибольший доход
Лист с исходными данными
На основе лекций и данных в интернете я написал программу по данной задаче, однако, программа не хочет работать. Может я где то затупил или комментарии не так написал. Ну в общем вот собственно моя программа:
Sub Funct()
'Сначала объявляем переменные, используемые в программе.
'стоимость книги (по месяцам)
Dim cena(10, 3) As Double
'количество (по месяцам)
Dim koll(10, 3) As Integer
' количество проданных книг
Dim kol_m(10) As Integer
' прибыль в месяц
Dim prib(3) As Double
' книга с наибольшей прибылью.
Dim kniga As Integer
' Доход с книги, принесшей наибольший доход
Dim pribl As Double
' счетчики циклов
Dim i As Integer, j As Integer, p As Integer
' Далее всем переменным присваивается нулевое значение
For i = 1 To 10
kol_m(i) = 0
Next i
For j = 1 To 3
prib(j) = 0
Next j
For p = 1 To 3
Next p
kniga = 0
prib = 0
'В этом фрагменте кода происходит считывание начальных
'данных с листа <<Нач_д>>, и в каждую ячейку массива
'cena(10) записывается стоимость каждой книги, а в
'ячейках двумерного массива koll(10,3) теперь находится
'количество книг каждого вида, проданных в
'каждый из месяцев.
Sheets(“Нач_д”).Select
For i = 1 To 10
For p = 1 To 3
cena(i, p) = Cells(3 + i, 1 + p)
Next p
Next i
For i = 1 To 10
For j = 1 To 3
koll(i, j) = Cells(3 + i, 4 + j)
Next j
Next i
' Далее на листе <<Результат>> в ячейку с определенным
' номером вводится ее название.
Sheets("Результат").Select
Cells(1, 1) = "Количество проданных книг"
Cells(2, 1) = "Наименование"
Cells(2, 2) = "Стоимость"
Cells(2, 5) = "Колиичество"
Cells(3, 2) = "1 месяц"
Cells(3, 3) = "2 месяц"
Cells(3, 4) = "3 месяц"
Cells(3, 5) = "1 месяц"
Cells(3, 6) = "2 месяц"
Cells(3, 7) = "3 месяц"
Cells(4, 1) = "Молодая гвардия (A.Фадеев)"
Cells(5, 1) = "Война и мир (Л.Н.Толстой)"
Cells(6, 1) = "Детство Никиты (А.Н. Толстой)"
Cells(7, 1) = "Два капитана (В. Каверин)"
Cells(8, 1) = "Рассказы (Т.Драйзер)"
Cells(9, 1) = "Избранное (Э. Хемингуэй)"
Cells(10, 1) = "Молдавские народные сказки"
Cells(11, 1) = "Поэмы. Стихи (А. Твардовский)"
Cells(12, 1) = "Мастер и Маргарита (М. Булгаков)"
Cells(13, 1) = "Три мушкетера (А. Дюма)"
' В этом фрагменте происходит вывод на рабочий лист
' стоимости книг и доход по каждой книге в течение 3 месяцев и
' количество книг проданных за месяц
For i = 1 To 10
Cells(3 + i, 1 + p) = cena(i, p)
For j = 1 To 5
Сеlls(3 + i, 2 + j) = koll(i, j)
koll_n(i) = koll_n(i) + koll(i, j)
Next j
Сеlls(3 + i, 8) = koll_n(i)
Next i
Cells(3 + i, 1 + p) = cena(i, p)
Next p
For j = 1 To 3
Cells(3 + i, 4 + j) = kol_n(i)
kol_m(i) = kol_m + koll(i, j)
Next j
Next i
Cells(17, 1) = "Результат в денежном эквиваленте"
Cells(18, 1) = "Наименование"
Cells(18, 2) = "Стоимость"
Cells(18, 5) = "Доход"
Cells(18, 8) = "Всего" 'Общий доход за 3 месяца
Cells(18, 9) = "Книга"
Cells(19, 2) = "1 месяц"
Cells(19, 3) = "2 месяц"
Cells(19, 4) = "3 месяц"
Cells(19, 5) = "1 месяц"
Cells(19, 6) = "2 месяц"
Cells(19, 7) = "3 месяц"
Cells(20, 1) = "Молодая гвардия (A.Фадеев)"
Cells(21, 1) = "Война и мир (Л.Н.Толстой)"
Cells(22, 1) = "Детство Никиты (А.Н. Толстой)"
Cells(23, 1) = "Два капитана (В. Каверин)"
Cells(24, 1) = "Рассказы (Т.Драйзер)"
Cells(25, 1) = "Избранное (Э. Хемингуэй)"
Cells(26, 1) = "Молдавские народные сказки"
Cells(27, 1) = "Поэмы. Стихи (А. Твардовский)"
Cells(28, 1) = "Мастер и Маргарита (М. Булгаков)"
Cells(29, 1) = "Три мушкетера (А. Дюма)"
Cells(30, 1) = "Итого"
' Во внутреннем цикле происходит вычисление суммы
' дохода по i-му изделию в j-й месяц с выводом
' результата, а во внешнем цикле (после получения
' результатов внутреннего цикла, происходит вывод
' стоимости одной книги и по всем книгам. Расчет
' дохода за каждый месяц организован в
' этом же внутреннем цикле.
For i = 1 To 12
For p = 1 To 3
Cells(19 + i, 1 + p) = cena(i, p)
Next p
For j = 1 To 3
Cells(19 + i, 4 + j) = koll(i, j) * cena(i, p)
prib(j) = prib(j) + koll(i, j) * cena(i, p)
prib(4) = prib(4) + koll(i, j) * cena(i, p)
Next j
Cells(19 + i, 8) = cena(i, p) * kol_m(i)
Next i
' Здесь описан алгоритм сравнения некоторого
' дохода с доходом, полученным
' в один из 3 месяцев. Если рассматриваемая
' больше другой, то сумме наибольшего дохода
' присваивается текущее значение, а днем с
' максимальным заработком становится день
' под номером j.
For j = 1 To 3
Сеlls(30, 2 + j) = prib(j)
If prib(j) > pribl Then
pribl = prib(j)
kniga = j
End If
Next j
' Ниже выводится на лист с результатом работы прогрммы
' заработок рабочего за неделю, день максимального
' заработка и сколько он заработал в этот день.
Сеlls(30, 8) = prib(6)
Сеlls(31, 1) = "Доход за 3 месяца"
Сеlls(31, 5) = prib(6)
Сеlls(32, 1) = "Книга с наибольшим доходом"
Сеlls(32, 5) = kniga
Сеlls(32, 6) = "Доход"
Сеlls(32, 8) = pribl
End Sub
Программа почему - то ругается на строчку:
prib = 0
