Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications стр.53
Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications стр.53

Создайте кнопки Июнь и Июль и назначьте им следующие процедуры:

Private Sub CommandButton2_Click()

Sheets("Июнь").Select End Sub

Private Sub CommandButton3_Click()

Sheets("Июль").Select End Sub

Назначьте свойствам Caption этих кнопок значения Июнь и Июль соответственно.

Программирование в среде Visual Basic for Applications

В этих процедурах использовался метод Activate. Это метод активизирует объект, в данном случае рабочий лист. Теперь, например, кнопке Май назначена процедура, активизирующая рабочий лист с именем Май, т. е. нажатие этой кнопки будет приводить к переходу на лист с именем Май.

При необходимости можно изменить названия и самих процедур на Май, Июнь и Июль.

12.2. Процедура перелистывания рабочих листов с помощью раскрывающегося списка

Разработаем процедуру перелистывания рабочих листов с помощью раскрывающегося списка.

На рабочем листе Вспомогательный в ячейки Al, А2 и A3 введите:

Май

Июнь

Июль

С помощью команды Вставка/Имя/Присвоить присвойте диапазону А1:АЗ имя Список, ячейке А6 - имя Номер, а ячейке А7 - имя Лист (рис. 12.2).

Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications

Рис. 12.2. Данные на рабочем листе «Вспомогательный»

В ячейку А7 введите формулу

= ИНДЕКС (Список;Номер;1)

В общем случае синтаксис функции ИНДЕКС (INDEX) имеет следующий вид:

ИНДЕКС (массив; номер строки; номер_столбца)

12. Создание автоматизированного оглавления рабочей книги 93

Функция ИНДЕКС возвращает значение ячейки диапазона массив с заданными номерами строки и столбца. Таким образом, при введении в ячейку Номер целого числа от 1 до 3 функция ИНДЕКС будет возвращать в ячейку Лист содержимое соответствующей ячейки диапазона Список. Например, если в ячейку Номер ввести число 3, то в ячейке Лист будем иметь Июль (см. рис. 12.2).

С помощью кнопки Раскрывающийся список создайте раскрывающийся список на ячейках D6 и Е6 рабочего листа Оглавление (см. рис. 12.1). Назначьте этому списку процедуру ComboBoxl_Click():

• выделите созданный список, щелкнув в Режиме конструктора по созданному списку левой кнопкой мыши;


⇐ Предыдущая Следующая ⇒
 
 
 
Powered by Exponenta