Головна

Private Sub ListBox1_Click()

  1. David Attenborough, The Private Life of Plants, Princeton University Press, Princeton-New Jersey, 1995, стр. 81-83
  2. PRIVATE HOUSE NEAR STALLIKON, SWITZERLAND
  3. Right to Respect for one's Private Life
  4. TWO PRIVATE HOUSES

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

 



  7   8   9   10   11   12   13   14   15   16   17   18   19   20   21   22   Наступна

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

© 2016-2022  um.co.ua - учбові матеріали та реферати