Visual Basic for Applications. Практика. Нагина Е.К - 18 стр.

      MsgBox “В базе данных проданных товаров _ найде-
               но “ & Col & “ наименований. _
   Общий объем продаж равен “ & Volume & “ рублей.”
   End Sub
      Пояснения к программе. Массивы CodesData и VolData меняют раз-
мер без указания ключевого слова Preserve, а массивы CodesFound,
Quantity, SumVol, - с сохранением исходного содержимого. Причиной та-
кого поведения является однократное изменение размера первых двух мас-
сивов, когда в массивах еще не сохранены никакие данные. Поэтому со-
хранение содержимого массивов просто не выполняется. Остальные три
массива изменяют размер при каждом добавлении нового элемента (кода
товара). В этих массивах приходится сохранять уже существующие эле-
менты. При обнаружении нового кода товара значение переменной Col
увеличивается на 1, кроме того, изменяются размеры массивов
CodesFound, Quantity и SumVol. Затем в добавленные элементы массивов
заносятся соответствующие значения.
      Чтобы указать диапазон, по которому выполняется сортировка, дос-
таточно выбрать ячейку в его пределах. Аналогично, для задания столбца,
по которому выполняется сортировка (аргумент Key1), достаточно вы-
брать ячейку в пределах этого столбца.
      Порядок решения задачи.
1. На рабочем листе «Торговые операции» в ячейку А1 ввести заголовок
   списка и заголовки полей списка. Сформировать исходный список, со-
   стоящий из 20 записей. Коды товаров - трехзначные числовые целые
   значения. Всего в списке 8 различных кодов товаров, которые повторя-
   ются в различных сочетаниях с разными датами продаж и различными
   объемами продаж в денежном выражении.
2. Сформировать заголовок нового списка в ячейке Е1 и заголовки полей
   нового списка, где будут размещены сводные данные. Заголовки полей
   списка отформатировать.
3. Перейти в режим редактора Visual Basic, выполнив команду Сервис /
   Макрос / Редактор Visual Basic.
4. Выполнить команды Insert / Module и Insert / Procedure.
5. Ввести имя процедуры TradeOperations
6. Ввести программный код процедуры TradeOperations.
7. Вернуться на рабочий лист «Торговые операции».
8. Запуск процедуры оформить кнопкой, размещенной на рабочем листе,
   там же, где расположены списки. Для создания кнопки щелкните на
   кнопке панели инструментов Формы и нарисуйте прямоугольную кноп-
   ку на листе «Торговые операции». Подтвердите создание макроса для
   данной кнопки. Затем измените название на этой кнопке на «Подведе-
   ние итогов по продажам». Для запуска программы нужно просто
   щелкнуть на этой кнопке.

                                  18