Объект Worksheet и семейство Worksheets. Основные объекты VBA. Язык визуального программирования приложений Visual Basic for Applications

В иерархии Excel объект worksheet идет сразу после объекта workbook и представляет рабочий лист.

Приведем несколько наиболее часто используемых свойств и методов объекта Worksheet.

Свойства объекта Worksheet и семейства Worksheets


	Методы	Выполняемые действия
	Name	Возвращает имя рабочего листа. В следующем примере первому листу активной рабочей книги присваивается имя Итоги за декабрь : Worksheets (1) . Visible = "Итоги за декабрь"
	Add	Создает новый рабочий лист. Синтаксис: Add (Before, After, Count, Type) Before — указывает лист, перед которым будет размещен новый рабочий лист After — указывает лист, после которого будет размещен новый рабочий. Если аргументы Before и After опущены, то новый лист размещается перед активным листом Count — число добавляемых листов, по умолчанию имеет значение 1 Туре — указывает тип добавляемого листа. Допустимые значения: xlWorksheet (по умолчанию), xlExce14MacroSheet и хlЕхсеl4 IntlMacroSheet. Например: ActiveWorkbook . Worksheets . Add — вставляется новый лист перед активным листом активной рабочей книги
	Delete	Удаляет рабочий лист. Например: Worksheets (1) . Delete - удаляется первый рабочий лист из активной рабочей книги
		Защищает рабочий лист от внесения в него изменений Синтаксис: Protect (Password, DrawingObjects, Contents, Scenarios, User Inter faceOnly) Password — строка, используемая в качестве пароля для защиты листа DrawingObjects —допустимые значения: True (графические объекты защищены) и False (графические объекты не защищены). По умолчанию используется значение False Contents — допустимые значения: True (ячейки защищены) и False (ячейки не защищены). По умолчанию используется значение True scenarios —допустимые значения: True (сценарии защищены) и False (сценарии не защищены). По умолчанию используется значение True


		Userlnterf aceOnly — допустимые значения: True (лист защищен от изменений со стороны пользователя, но не подпрограммы VBA) и False (лист защищен от изменений со стороны как пользователя, так и подпрограммы VBA). По умолчанию используется значение False В следующем примере установлена полная защита активного рабочего листа от любых изменений со стороны пользователя: Active Sheet .Protect Password: =" Секрет" , DrawingObjects :=True, Contents :=True, Scenarios : =True
	Unprotect	Снятие защиты с рабочего листа. Синтаксис: Unprotect (Password) Password — строка, используемая в качестве пароля для защиты листа В следующем примере снимается защита с активного рабочего листа: ActiveSheet . Protect Password: ="Секрет"
	Copy	Копирование рабочего листа в другое место рабочей книги. Синтаксис: Copy (Before, . After) Before — рабочий лист книги, перед которым вставляется данный After — рабочий лист, после которого вставляется данный Одновременно допустимо использование только одного из аргументов. В следующем примере Лист1 активной рабочей книги копируется после ЛистЗ той же рабочей книги: Worksheets ( "Лист1") .Сору after :=Worksheets ("ЛистЗ"')
	Move	Перемещение рабочего листа в другое место рабочей книги. Синтаксис: Move (Before, After) Before — лист рабочей книги, перед которым вставляется данный After — лист, после которого вставляется данный Одновременно допустимо использование только одного из аргументов. В примере Лист1 активной рабочей книги перемещается перед ЛистЗ той же рабочей книги: Worksheets ( "Лист1" ) .Move Before : =Worksheets ("Лист3")

Методы объекта Worksheet и семейства Worksheet

Evaluate

Преобразует выражение в объект или значение. Используется при вводе формул и ячеек из диалоговых окон.

В следующем примере в поле ввода первого появившегося ) диалогового окна вводится ссылка на ячейку, например A1, процедура считывает значение из этой ячейки и отображает его в диалоговом окне. После этого в поле ввода следующего диалогового окна надо ввести какое-нибудь арифметическое выражение, например sin(l) ^2. Процедура вычислит значение этого выражения и отобразит в диалоговом окне:

Sub Два Примера ДляEvaluate ( ) '

' Ввод адреса ячейки '

Ячейка = InputBox ( "Введите имя ячейки") '

' Считывание значения из ячейки с указанным адресом '

Значение = Evaluate (Ячейка) .Value '

' Вывод считанного значения в диалоговое окно

MsgBox CStr (Значение) '

' Ввод в диалоговое окно формулы, например, sin(1)^2 '

Функция = InputBox ( "Введите функцию" ) '

' Вычисление значения по введенной формуле '

Значение = Evaluate (Функция)

' Вывод найденного значения в диалоговом окне '

MsgBox CStr (Значение) End Sub

События объекта Worksheet

Знаете ли Вы, что такое мысленный эксперимент, gedanken experiment?
Это несуществующая практика, потусторонний опыт, воображение того, чего нет на самом деле. Мысленные эксперименты подобны снам наяву. Они рождают чудовищ. В отличие от физического эксперимента, который является опытной проверкой гипотез, "мысленный эксперимент" фокуснически подменяет экспериментальную проверку желаемыми, не проверенными на практике выводами, манипулируя логикообразными построениями, реально нарушающими саму логику путем использования недоказанных посылок в качестве доказанных, то есть путем подмены. Таким образом, основной задачей заявителей "мысленных экспериментов" является обман слушателя или читателя путем замены настоящего физического эксперимента его "куклой" - фиктивными рассуждениями под честное слово без самой физической проверки.
Заполнение физики воображаемыми, "мысленными экспериментами" привело к возникновению абсурдной сюрреалистической, спутанно-запутанной картины мира. Настоящий исследователь должен отличать такие "фантики" от настоящих ценностей.

Релятивисты и позитивисты утверждают, что "мысленный эксперимент" весьма полезный интрумент для проверки теорий (также возникающих в нашем уме) на непротиворечивость. В этом они обманывают людей, так как любая проверка может осуществляться только независимым от объекта проверки источником. Сам заявитель гипотезы не может быть проверкой своего же заявления, так как причина самого этого заявления есть отсутствие видимых для заявителя противоречий в заявлении.

Это мы видим на примере СТО и ОТО, превратившихся в своеобразный вид религии, управляющей наукой и общественным мнением. Никакое количество фактов, противоречащих им, не может преодолеть формулу Эйнштейна: "Если факт не соответствует теории - измените факт" (В другом варианте " - Факт не соответствует теории? - Тем хуже для факта").

Максимально, на что может претендовать "мысленный эксперимент" - это только на внутреннюю непротиворечивость гипотезы в рамках собственной, часто отнюдь не истинной логики заявителя. Соответсвие практике это не проверяет. Настоящая проверка может состояться только в действительном физическом эксперименте.

Эксперимент на то и эксперимент, что он есть не изощрение мысли, а проверка мысли. Непротиворечивая внутри себя мысль не может сама себя проверить. Это доказано Куртом Гёделем.

Понятие "мысленный эксперимент" придумано специально спекулянтами - релятивистами для шулерской подмены реальной проверки мысли на практике (эксперимента) своим "честным словом". Подробнее читайте в FAQ по эфирной физике.

Событие	Когда возникает событие
BeforeClose	При закрытии рабочей книги
BeforePrint	Перед печатью рабочей книги
BeforeSave	Перед сохранением рабочей книги
Deactivate	Когда рабочая книга теряет фокус
NewSheet	При добавлении нового листа
Open	При открытии рабочей книги
SheetActivate	При активизации любого рабочего листа
Sheet Deactivate	Когда рабочий лист теряет фокус