Лекция: Private Sub ListBox1_Click()

Dim nom As Integer, k As Integer

Dim j As Integer, i As Integer

Dim s1 As Single, s2 As Single

Dim mag As String

' mag – выбранный магазин

' скрыть форму

UserForm3.Hide

mag = ListBox1.Text

' перейти на Лист Отбор

Sheets(«Отбор»).Select

Range(«A1»).Select

ActiveCell.Offset(2, 0).Range(«A3:I30»).Select

' очистка содержимого Листа Отбор

Selection.ClearContents

Range(«A2»).Select

Sheets(«Заказы»).Select

Range(«A3»).Select

' подсчет числа заполненных строк в списке на Листе Заказы

' nom – число строк

nom = Range(«b4»).CurrentRegion.Rows.Count

k = 3

s1 = 0: s2 = 0

' s1– общая стоимость товара, s2 – сумма к оплате

For i = 3 To nom

If Cells(i, 1).Text = mag Then

' если на Листе «Заказы» в первом столбце

' встречается название магазина, выбранного

' из списка на форме «Отчет» (рис. 3.7),

' то эта строка копируется на лист «Отбор»

For j = 1 To 9

Worksheets(«Отбор»).Cells(k, j).Value = Sheets(«Заказы»). Cells(i, j).Text

Next

s1 = s1 + Worksheets(«Отбор»).Cells(k, 8).Value

s2 = s2 + Worksheets(«Отбор»).Cells(k, 9).Value

k = k + 1

End If

Next

Worksheets(«Отбор»).Cells(k, 8).Value = s1

Worksheets(«Отбор»).Cells(k, 9).Value = s2

Worksheets(«Отбор»).Cells(k, 1).Value = «Итого:»

Sheets(«Отбор»).Activate

End Sub

Список литературы

1. Гарнаев А.Ю. Самоучитель VBA -СПб.: БХВ – Санкт-Петербург, 1999. – 426 с., ил.

2. Додж М., Кината К., Стинсон К. Эффективная работа с Microsoft Excel97. – СПб.: Издательство «Питер», 1999. – 1072с.

3. Использование Microsoft Excel 97: Пер. с англ. – Изд.-бестселлер.-К.; М.; СПб: Изд. дом «Вильямс», 1998.-800с.

4. Кузьменко В.Г. VBA 2000. – М.: Издательство БИНОМ, 2000. – 408с.

5. Подлин, Шарон. Освой самостоятельно программирование для Microsoft Excel 2000 за 24 часа.: М.: Изд. дом «Вильямс», 2000. – 304с.

6. Х.Г.Райманс. Основы программирования на Visual Basic: вводный курс. Киев, «BHV» – 1995 г., 270 с.

7. Створення інформаційних систем засобами Visual Basic for Application (VBA) у середовищі Microsoft Excel. Конспект лекцій по дисциплінам “Основи інформатики” і “Комп’ютерні технології і програмування” для студентів економічних спеціальностей усіх форм навчання./ Укл. Н.І.Біла. – Запоріжжя: ЗДТУ, 2001. – 52с.

8. Методичні вказівки та індивідуальні завдання до лабораторних робіт по темі: “Програмування мовою Visual Basic for Application (VBA) у середовищі Microsoft Excel”. Для студентів економічних спеціальностей денної форми навчання, що вивчають дисципліни “Основи інформатики” і “Комп’ютерні технології і програ­мування”. / Укл. Біла Н.І., Кузіна В.М., Оникієнко Т.М. – Запоріжжя: ЗДТУ, 2001. – 38с. — № 979