U nload U serForm l

End Sub

Эта процедура, которая вызывается после щелчка на кнопке Отмена, выгружает из памяти форму UserForml.

5.Нажмите комбинацию клавиш <Shift+F7> для повторного отображения формы UserForml (либо щелкните на значке View Object (Просмотр объекта) в верх­ ней части окна Project Explorer (Просмотр объектов)).

6.Дважды щелкните на кнопке ОК и введите код следующей процедуры (это код

обработчика событий для события Click объекта OKButton).

'А ктиви зац ия листа

S h e e ts ( "Л и с т 1 " ) . A c t i v a t e

'Передача пола

'О чистка элементов управления для следующих записей

TextName. SetFocus

End Sub

7.Перейдите в окно Excel и щелкните на кнопке еще раз, чтобы отобразить пользо­ вательское диалоговое окно. Запустите процедуру повторно.

Элементы управления диалогового окна должны функционировать правильно. Теперь с помощью пользовательской формы можно добавлять новые имена в ра­ бочий лист.

Процедура OKButton_Click работает следующим образом. Сначала она проверяет, активен ли лист Л и с т 1 . После этого запускается функция Excel СЧЁТЗ (COUNTA) для определения следующей пустой ячейки в столбце А. Затем текст из текстового поля Text Box передается в определенную ячейку столбца А. С помощью операторов If оп­ ределяется выделенный элемент управления OptionButton, что обеспечивает запись соответствующего текста в столбец В (Мужчина, Женщина, Другое). Наконец, диало­ говое окно перезапускается (чтобы обеспечить возможность введения следующей запи­ си). Заметим, что щелчок на кнопке ОК не приведет к закрытию диалогового окна. Для завершения ввода данных (и выгрузки пользовательского диалогового окна) щелкните на кнопке Отмена.

Проверка правильности введенных данных

Приведенному в этом разделе примеру следует уделить особое внимание. Возможно, вы заметили, что не устранена небольшая проблема — отсутствует проверка введенных