Головна |
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
Charts (семейство листов диаграмм) | Свойства и методы объекта Range | Основные операторы VBA | Инструкции 2 | End Sub | Sub табулирование () | Sub поиск() | Создание исходных таблиц | Создание формы UserForm1 | Создание формы UserForm2 |