Шаг 22.
VBA в MSExcel.
Основные объекты VBA. Методы объекта Worksheet и семейства Worksheets

    На этом шаге мы приведем основные методы этого объекта.

    Перечислим методы объекта Worksheet и семейства Worksheets.

Таблица 1. Методы объекта Worksheet и семейства Worksheets
Методы Выполняемые действия
Activate Активизирует указанный рабочий лист. Например: 
  Worksheets(1).Activate
Add Создает новый рабочий лист. Синтаксис: 
  Add (Before, After, Count, Type)
  • Before — указывает лист, перед которым будет размещен новый рабочий лист;
  • After — указывает лист, после которого будет размещен новый рабочий. Если аргументы Before и After опущены, то новый лист размещается перед активным листом;
  • Count — число добавляемых листов, по умолчанию имеет значение 1;
  • Туре — указывает тип добавляемого листа. Допустимые значения: xlWorksheet (по умолчанию), xlExce14MacroSheet и хlЕхсеl4IntlMacroSheet.
Например: 
  ActiveWorkbook.Worksheets.Add
— вставляется новый лист перед активным листом активной рабочей книги
Delete Удаляет рабочий лист. Например: 
  Worksheets(1).Delete
- удаляется первый рабочий лист из активной рабочей книги
Protect Защищает рабочий лист от внесения в него изменений. Синтаксис: 
  Protect (Password,DrawingObjects,Contents,Scenarios,UserInterfaceOnly)
  • Password — строка, используемая в качестве пароля для защиты листа;
  • DrawingObjects —допустимые значения: True (графические объекты защищены) и False (графические объекты не защищены). По умолчанию используется значение False;
  • Contents — допустимые значения: True (ячейки защищены) и False (ячейки не защищены). По умолчанию используется значение True;
  • Scenarios — допустимые значения: True (сценарии защищены) и False (сценарии не защищены). По умолчанию используется значение True;
  • UserInterfaceOnly — допустимые значения: True (лист защищен от изменений со стороны пользователя, но не подпрограммы VBA) и False (лист защищен от изменений со стороны как пользователя, так и подпрограммы VBA). По умолчанию используется значение False.
В следующем примере установлена полная защита активного рабочего листа от любых изменений со стороны пользователя: 
  ActiveSheet.Protect  Password:="Секрет", _
     DrawingObjects:=True, _
    Contents:=True, Scenarios:=True
Unprotect Снятие защиты с рабочего листа. Синтаксис: 
  Unprotect (Password)
Password — строка, используемая в качестве пароля для защиты листа. В следующем примере снимается защита с активного рабочего листа: 
  ActiveSheet.Unprotect  Password:="Секрет"
Copy Копирование рабочего листа в другое место рабочей книги. Синтаксис: 
  Copy (Before | After)
  • Before — рабочий лист книги, перед которым вставляется данный;
  • After — рабочий лист, после которого вставляется данный.
Одновременно допустимо использование только одного из аргументов. В следующем примере Лист1 активной рабочей книги копируется после Лист3 той же рабочей книги: 
  Worksheets( "Лист1").Сору After:=Worksheets ("Лист3"')
Move Перемещение рабочего листа в другое место рабочей книги. Синтаксис: 
  Move (Before | After)
  • Before — рабочий лист книги, перед которым вставляется данный;
  • After — рабочий лист, после которого вставляется данный.
Одновременно допустимо использование только одного из аргументов. В примере Лист1 активной рабочей книги перемещается перед Лист3 той же рабочей книги: 
  Worksheets ( "Лист1" ).Move  Before:=Worksheets ("Лист3")
Evaluate Преобразует выражение в объект или значение. Используется при вводе формул и ячеек из диалоговых окон. В следующем примере в поле ввода первого появившегося диалогового окна вводится ссылка на ячейку, например A1, процедура считывает значение из этой ячейки и отображает его в диалоговом окне. После этого в поле ввода следующего диалогового окна надо ввести какое-нибудь арифметическое выражение, например sin(1)^2. Процедура вычислит значение этого выражения и отобразит в диалоговом окне: 
Sub Два Примера Для Evaluate ( ) 
  ' Ввод адреса ячейки
  Ячейка = InputBox ( "Введите имя ячейки")
  'Считывание значения из ячейки с указанным адресом
  Значение = Evaluate (Ячейка).Value
  ' Вывод считанного значения в диалоговое окно
  MsgBox CStr (Значение)
  ' Ввод в диалоговое окно формулы, например, sin(1)^2 
  Функция = InputBox ( "Введите функцию" )
  ' Вычисление значения по введенной формуле
  Значение = Evaluate (Функция)
  ' Вывод найденного значения в диалоговом окне 
  MsgBox CStr (Значение) 
End Sub

    На следующем шаге мы рассмотрим события этого объекта.




Предыдущий шаг Содержание Следующий шаг