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