События объекта Worksheet
События на уровне рабочего листа возникают в случае его активизации или деактивизации, изменений в нем самом или в сводных таблицах. Событие Activate Событие Activate возникает, когда лист становится текущим. Напишем программу, которая выполняется при активизации листа Лист1 и выводит на экран его имя: Private Sub Worksheet_Activate() MsgBox "Активный лист - " & ActiveSheet.Name End Sub Для того чтобы ввести эту программу: 1. В окне проекта щелкните Лист1(Рис. 11‑2Рис. 10‑2). 2. В списке объектов выберите WorkSheet, а в списке процедур – событие Activate (Рис. 11‑2) Рис. 11‑2. 3. Введите код. 4. Перейдите в Excel и протестируйте программу. Обратите внимание: при щелчке по Лист2 сообщение не выводится! Событие Deactivate Событие Deactivate возникает, когда лист становится неактивным. Для Лист1 введите следующий код и протестируйте работу программы: Private Sub Worksheet_Deactivate() MsgBox ActiveSheet.Name & " стал неактивным!" End Sub Событие SelectionChange Событие SelectionChange(в самом простом случае) возникает тогда, когда текущей становится другая ячейка (либо в результате щелчка мышкой по другой ячейке, либо после нажатия клавиши [Enter], либо после нажатия клавиш передвижения курсора). Для Лист2 напишем программу, которая выводит адрес текущей ячейки. Для этого: 1. В модуле Лист2 наберите следующий код: Private Sub Worksheet_SelectionChange(ByVal Target As Range) MsgBox "Адрес текущей ячейки - " & ActiveCell.Address End Sub 2. Протестируйте работу программы: щелкая мышкой по разным ячейкам; передвигая курсор клавишами передвижения курсора; завершив ввод информации в ячейку с помощью клавиши [Enter]; завершив ввод информации в ячейку с помощью кнопки Ввод в строке формул (зеленая галочка). Обратите внимание: в этом случае текущей осталась прежняя ячейка –процедура не выполняется. Домашнее задание №1 1. Напишите программу ОткрытиеКниги, которая: 1) открывает файл C:\St\Случайные числа.xls; 2) активизирует лист Случ. числа. В случае отсутствия листа выдать соответствующее сообщение и завершить выполнение программы; 3) в первом столбце находит первую пустую ячейку. Для этого воспользуйтесь управляющей конструкцией While–Wend(см. 8.3 из курса лекций): НомерСтроки = 1 While Trim(Cells(НомерСтроки,1).Value) <> “” НомерСтроки = НомерСтроки + 1 Wend Обратите внимание на встроенную функцию Trim, которая удаляет пробелы с обеих сторон строкового значения. Здесь она используется для того, чтобы ячейку, в которой содержится пробел, тоже считать пустой (у некоторых пользователей есть привычка удалять содержимое ячейки с помощью клавиши Пробел); 4) разыгрывает 5 случайных чисел и помещает их в 5 ячеек 1-го столбца, начиная с найденной ячейки; 5) cохраняет измененный файл; 6) выводит сообщение: Случайные числа разыграны! 2. На основе программы ОткрытиеКниги напишите программу ОткрытиеКнигиМод, в которой: – прежде чем открывать книгу C:\St\Случайные числа.xls, проверьте, в каком состоянии она находится: существует, закрыта или открыта. Блок проверки «открыта ли книга?» оформите в виде подпрограммы, которая должна быть универсальной для любой книги; – розыгрыш 5 чисел также оформите в виде подпрограммы. 3. На основе программы СлучайныеЧисла напишите программу – если файл C:\St\Случайные числа.xls не существует, выполняется программа СлучайныеЧисла, созданная в 2.1 – в противном случае выполняется программа ОткрытиеКнигиМод. Вызов обеих программ оформите как вызов подпрограмм. 4. На основе программ СлучайныеЧислаМод и УдалениеФайла напишите программу ЗаменаФайла, в которой: 1) если файл C:\St\Случайные числа.xls не существует, выполняется программа СлучайныеЧисла; 2) в противном случае выдается сообщение об его существовании и запрос на замену: § если пользователь щелкает по кнопке Да, то файл удаляется, а затем выполняется программа СлучайныеЧисла; § если пользователь щелкает по кнопке Нет, то выполнение программы прекращается. Вызов программы СлучайныеЧисла оформите как вызов подпрограммы. 5. Протестируйте работу программ в разных режимах, когда книга открыта, закрыта, или её не существует. Обратите внимание на ситуацию, когда книга открыта, в неё были внесены изменения, а в настоящий момент она не активна. Домашнее задание №2 и №3. Типовые варианты. Требования к оформлению ДЗ 2 и 3 Отчет по ДЗ 2 и 3 должен быть сдан в электронном и печатном виде и включать в себя: 1. Титульный лист (пустые строки недопустимы! Вспоминаем интервалы! J). 2. Оглавление. 3. Постановку задачи. 4. Листинг программы, напечатанный в редакторе VBA (или в редакторе Word: шрифт – Courier, 10 пунктов). 5. План тестирования программы. 6. Придуманное вами задание. 7. Главы должны быть пронумерованы. Стиль заголовков – Заголовок 1. Если в главах имеются параграфы, то стиль заголовка должен соответствовать их уровню. 8. Электронная версия отчета должна быть оформлена согласно стандартам и принципам, изложенным в курсе «Офисные программные пакеты».
Вариант 1. Домашнее задание №2 Написать программу, которая формирует список уволившихся сотрудников института по факультетам. Постановка задачи: 1. В базе данных Excel Кадры.xls содержатся данные о сотрудниках института. БД хранятся в папке C:\Институт и содержат следующую информацию:
Популярное: Почему стероиды повышают давление?: Основных причин три... Генезис конфликтологии как науки в древней Греции: Для уяснения предыстории конфликтологии существенное значение имеет обращение к античной... ©2015-2024 megaobuchalka.ru Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. (1346)
|
Почему 1285321 студент выбрали МегаОбучалку... Система поиска информации Мобильная версия сайта Удобная навигация Нет шокирующей рекламы |