 |
АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция
События
Основные события объекта Workbook приведены в табл. 5.13.
Таблица 5.13
| Событие | Когда возникает событие |
| BeforeClose | При закрытии рабочей книги |
| BeforePrint | Перед печатью рабочей книги |
| BeforeSave | Перед сохранением рабочей книги |
| NewSheet | При добавлении нового листа |
| Open | При открытии рабочей книги |
| SheetActivate | При активизации рабочего листа |
Объект Worksheet и семейство WorkSheets
В иерархии MS Excel объект Worksheet идет сразу после объекта Workbook, представляет рабочий лист книги и входит
в семейство (набор) Worksheets.
Ссылку на объект можно получить с помощью команды Worksheets(Index). Она возвращает ссылку на объект по индексу в наборе, в качестве индекса может выступать имя листа или его номер в наборе.
Примеры:
Worksheets(“Лист1”).Activate
Worksheets(1).Activate
Activesheet – возвращает ссылку на активный лист.
Пример:
Activesheet.Range (“a1”)=1
Свойства
Свойство Name позволяет работать с именем рабочего листа.
Пример:
Worksheets(1).Name=”Итоги”
ActiveCell – возвращает активную ячейку активного рабочего листа.
Cells – возвращает ссылку на диапазон ячеек листа.
Cells(<строка>,<столбец>) – возвращает ссылку на ячейку с указанными координатами.
Columns(<столбец>) – возвращает ссылку на столбец.
В качестве параметра могут быть заданы имя или номер столбца.
Пример:
Worksheets(1).Columns(“a”)=1
или
Worksheets(1).Columns(1)=1
Rows(<строка>) – возвращает ссылку на строку. В качестве параметра может быть использован номер строки.
Пример:
Worksheets(1).Rows(1)=1
Range(<Диапазон ячеек>) – возвращает ссылку на указанный диапазон ячеек.
UsedRange – возвращает ссылку на используемый диапазон листа.
Пример:
Worksheets(“Лист1”).UsedRange.Value=1
Count – возвращает количество листов в книге.
Visible – определяет отображение рабочего листа в книге. Его допустимые значения:True – рабочий лист выводится на экран; False – рабочий лист невидим (скрыт), но его можно отобразить на экране с помощью последовательности команд Формат, Лист, Отобразить (Format, Sheet, Show); xlVeryHidden – рабочий лист скрыт и его можно отобразить на экране только программно.
Примеры:
Sub Пусто()
Worksheets(“Лист3”).Visible=False
End Sub
Sub Открыто()
Worksheets(“Лист3”).Visible=True
End Sub
Sub Пусто1()
Worksheets(“Лист4”).Visible=xlVeryHidden
End Sub
Sub Открыто1()
Worksheets(“Лист4”).Visible=True
End Sub
UsedRange – возвращает диапазон, то есть объект Range, содержащий данные.
Пример:
Worksheets(1).UsedRange.Clear ‘Очищается
диапазон первого рабочего листа с данными
Методы
Метод Activate позволяет активизировать рабочий лист.
С помощью метода Evaluate выражения преобразуются
в объекты или в значения.
Пример:
Sub Ввод_формул()
Dim Значение As Single
Dim Fx As String
Ячейка InputBox(“Введите имя ячейки”) ‘Ввод
адреса ячейки в диалоговом окне
ЗначениеEvaluate(Ячейка)
Value ‘Считывание значения из ячейки
MsgBox Cstr(Ячейка)&”=”&CSng(Значение)
‘Вывод значения в диалоговое окно
Fx=InputBox(“Введите формулу (функцию)”)
‘Ввод функции в диалоговом окне
ЗначениеEvaluate(Fx) ‘Вычисление значения
функции
MsgBox CStr (Ячейка)&”=”&CSng(Значение)
‘Вывод значения в диалоговом окне
End Sub
Поиск по сайту: