Написать программу в VBA

Формулировка задачи:

Помогите с задачей. Пиццерией «Сбарро» за 6 месяцев было продано различное количество пиццы (10 наименований) по цене, устанавливаемой в начале каждого месяца. Написать программу на языке VBA, которая выводит исходные данные, выполняет расчеты и выводит на экран: • Исходные данные в виде таблицы, где указаны наименования продукта, цена в каждом месяце, количество проданной пиццы за каждый месяц • Доход от каждого вида пиццы за 6 месяцев • Доход за каждый квартал по всем наименованиям продукта • Общий доход от всего меню за 6 месяцев • Наименование пиццы, принесший наибольший доход за 6 месяцев, и ее количество. Подскажите, хоть как начать. Какие переменные вводить?

Решение задачи: «Написать программу в VBA»

textual
                            Листинг программы 
                        

                            Sub Funct()
'Г‘Г*Г*Г·Г*Г«Г* Г®ГЎГєГїГўГ«ГїГҐГ¬ ГЇГҐГ°ГҐГ¬ГҐГ*Г*Г»ГҐ, ГЁГ±ГЇГ®Г«ГјГ§ГіГҐГ¬Г»ГҐ Гў ГЇГ°Г®ГЈГ°Г*Г¬Г¬ГҐ.
Dim cena(10, 6) As Double    'Г‘ГІГ®ГЁГ¬Г®Г±ГІГј ГЇГЁГ¶Г¶Г»
Dim koll(10, 6) As Integer   'ГЉГ®Г«ГЁГ·ГҐГ±ГІГўГ® (ГЇГ® Г¬ГҐГ±ГїГ¶Г*Г¬)
Dim kol_n(10) As Integer     'ГЉГ®Г«ГЁГ·ГҐГ±ГІГўГ® ГЇГЁГ¶Г¶Г» Гў Г¬ГҐГ±ГїГ¶
Dim doh(7) As Double        'Г„Г®ГµГ®Г¤ Гў Г¬ГҐГ±ГїГ¶
Dim name As Integer           'ГЏГЁГ¶Г¶Г* Г± Г*Г*ГЁГЎГ®Г«ГјГёГЁГ¬ Г¤Г®ГµГ®Г¤Г®Г¬
Dim i As Byte, j As Integer, p As Integer   'Г‘Г·ВёГІГ·ГЁГЄГЁ Г¶ГЁГЄГ«Г®Гў
For i = 1 To 10
kol_n(i) = 0
Next
For j = 1 To 6
doh(j) = 0
Next
For p = 1 To 6
Next
doh = 0
name = 0
Sheets("ГЌГ*Г·_Г¤").Select
For i = 1 To 10
For p = 1 To 6
cena(i, p) = Cells(3 + i, 1 + p)
Next p
Next i
For i = 1 To 10
For j = 1 To 6
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, 8) = "ГЉГ®Г«ГЁГ·ГҐГ±ГІГўГ®"
Cells(3, 2) = "1 Г¬ГҐГ±"
Cells(3, 3) = "2 Г¬ГҐГ±"
Cells(3, 4) = "3 Г¬ГҐГ±"
Cells(3, 5) = "4 Г¬ГҐГ± "
Cells(3, 6) = "5 Г¬ГҐГ±"
Cells(3, 7) = "6 Г¬ГҐГ±"
Cells(4, 1) = "ГЊГ*Г°ГЈГ*Г°ГЁГІГ*"
Cells(5, 1) = "Г’Г°Г®ГЇГЁГЄГ*Г*ГЄГ*"
Cells(6, 1) = "ГЏГ°ГЁГ¬Г*ГўГҐГ°Г*"
Cells(7, 1) = "ГЏГҐГЇГЇГҐГ°Г®Г*ГЁ"
Cells(8, 1) = "Г‚ГҐГЈГҐГІГ*Г°ГЁГ*Г*Г±ГЄГ*Гї"
Cells(9, 1) = "4 Г±Г»Г°Г*"
Cells(10, 1) = "ГЉГ«Г*Г±Г±ГЁГЄГ*"
Cells(11, 1) = "Г…ГўГ°Г®ГЇГҐГ©Г±ГЄГ*Гї"
Cells(12, 1) = "Г„Г*Г°Г» Г¬Г®Г°Гї"
Cells(13, 1) = "Г„Г®Г¬Г*ГёГ*ГїГї"
For i = 1 To 10
For p = 1 To 6
Cells(3 + i, 1 + p) = cena(i, p)
Next p
For j = 1 To 6
Cells(3 + i, 4 + j) = kol_n(i)
kol_n(i) = kol_n + koll(i, j)
Next j
Next i
'ГЌГЁГ¦ГҐ ГЇГ°Г®ГЁГ±ГµГ®Г¤ГЁГІ ГўГўГ®Г¤ Г*Г*Г§ГўГ*Г*ГЁГ© Г±Г®Г®ГІГўГҐГІГ±ГІГўГіГѕГ№ГЁГµ
'Г±ГІГ®Г«ГЎГ¶Г®Гў ГЁ Г±ГІГ°Г®ГЄ
Cells(17, 1) = "ГђГҐГ§ГіГ«ГјГІГ*ГІ Гў Г¤ГҐГ*ГҐГ¦Г*Г®Г¬ ГЅГЄГўГЁГўГ*Г«ГҐГ*ГІГҐ"
Cells(18, 1) = "ГЌГ*ГЁГ¬ГҐГ*Г®ГўГ*Г*ГЁГҐ"
Cells(18, 2) = "Г‘ГІГ®ГЁГ¬Г®Г±ГІГј"
Cells(18, 5) = "Г„Г®ГµГ®Г¤"
Cells(18, 8) = "Г‚Г±ГҐГЈГ®"  'ГЋГЎГ№ГЁГ© Г¤Г®ГµГ®Г¤ Г§Г* 6 Г¬ГҐГ±ГїГ¶ГҐГў
Cells(18, 9) = "ГЏГЁГ¶Г¶Г*"
Cells(19, 2) = "1 Г¬ГҐГ±"
Cells(19, 3) = "2 Г¬ГҐГ±"
Cells(19, 4) = "3 Г¬ГҐГ±"
Cells(19, 5) = "4 Г¬ГҐГ±"
Cells(19, 6) = "5 Г¬ГҐГ±"
Cells(19, 7) = "6 Г¬ГҐГ±"
Cells(20, 1) = "ГЊГ*Г°ГЈГ*Г°ГЁГІГ*"
Cells(21, 1) = "Г’Г°Г®ГЇГЁГЄГ*Г*ГЄГ*"
Cells(22, 1) = "ГЏГ°ГЁГ¬Г*ГўГҐГ°Г*"
Cells(23, 1) = "ГЏГҐГЇГЇГҐГ°Г®Г*ГЁ"
Cells(24, 1) = "Г‚ГҐГЈГҐГІГ*Г°ГЁГ*Г*Г±ГЄГ*Гї"
Cells(25, 1) = "4 Г±Г»Г°Г*"
Cells(26, 1) = "ГЉГ«Г*Г±Г±ГЁГЄГ*"
Cells(27, 1) = "Г…ГўГ°Г®ГЇГҐГ©Г±ГЄГ*Гї"
Cells(28, 1) = "Г„Г*Г°Г» Г¬Г®Г°Гї"
Cells(29, 1) = "Г„Г®Г¬Г*ГёГ*ГїГї"
Cells(30, 1) = "Г€ГІГ®ГЈГ®"
For i = 1 To 10
For p = 1 To 6
Cells(19 + i, 1 + p) = cena(i, p)
Next p
For j = 1 To 6
Cells(19 + i, 4 + j) = koll(i, j) * cena(i, p)
doh(j) = doh(j) + koll(i, j) * cena(i, p)
doh(7) = doh(7) + koll(i, j) * cena(i, p)
Next j
Cells(19 + i, 8) = cena(i, p) * kol_n(i)
Next i
Cells(18, 8) = "Г‚Г±ГҐГЈГ®"
Cells(18, 9) = "ГЏГЁГ¶Г¶Г*"
Cells(32, 8) = doh(7)
Cells(33, 1) = "ГЋГЎГ№ГЁГ© Г¤Г®ГµГ®Г¤"
Cells(33, 5) = doh(7)
Cells(22, 9) = name
End Sub
                        