Методы автоматизации при работе в MS Excel. Синявская Г.А. - 53 стр.

выбрать это имя, а в окне справа щелкнуть по DblClick для построения процеду-
ры обработки события двойного нажатия кнопки мыши.
      Заполнение тела процедуры начинаем с описания типов переменных. Бу-
дем использовать переменную numidx для хранения количества элементов спи-
ска объекта Spisok. Диапазон Список мы задали в качестве свойства ListFillRange,
но этот диапазон имеет большое количество строк, так как задан до конца рабо-
чего поля таблицы. Тип Integer для переменной использовать нельзя, так как
количество элементов списка у нас явно больше 32 767, поэтому надо исполь-
зовать тип Long (длинное целое):




 Рис. 25. Интерактивная помощь

     Dim numidx As Long
       При вводе конструкций, предусмотренных языком VBA, можно пользо-
ваться подсказкой, как показано на рис. 25.
       Далее присваиваем переменной numidx значение свойства ListCount объек-
та Spisok:
     numidx = Spisok.ListCount
      После этого в цикле каждому элементу массива Selected присвоим значе-
ние False, т.е. снимем все предыдущие отметки:
     For i = 0 To numidx - 1
     Spisok.Selected(i) = False
     Next i

                                       Далее для сортировки товаров по
                                  наименованию ( для удобства поиска)
                                  необходимо перейти на лист Товары, щелк-
 Рис. 26. Панель инструментов     нуть мышью в области данных и произвести
 Остановить запись                сортировку с помощью меню Данные / Сор-


                                         53