Объект Application (приложение) является главным в иерархии объектов Excel и представляет само
приложение Excel. Он имеет более 120 свойств и 40 методов. Эти свойства и методы
предназначены для установки общих параметров приложения Excel. Кроме того, объект
Application позволяет вызывать более 400 встроенных функций рабочего листа при
помощи конструкции вида:
Application.ФункцияРабочегоЛиста(Аргументы)
Например:
Application . Pi ( ) |
Вычисление
числа п |
||
Application.
Pmt (Аргументы) |
Определение
постоянных периодических платежей при постоянной процентной ставке
с помощью функции ППЛАТ (РМТ) |
||
Application
. Sum (Аргументы) |
Нахождение суммы
значений из ячеек диапазона |
||
Приведем
несколько наиболее часто используемых свойств, методов и событий объекта Application.
Свойства |
Выполняемые
действия и допустимые значения |
||
ActiveWorkbook, ActiveSheet ActiveCell |
Возвращают активный
объект: рабочую книгу, лист, ячейку, диаграмму, диалоговое окно. Свойство
ActiveCell содержится В ActiveSheet, а свойства ActiveSheet, ActiveChart
И ActiveDialog в ActiveWorkbook. |
||
Свойства |
Выполняемые
действия и допустимые значения |
||
ActiveChart |
В следующем
примере в активной ячейке устанавливается по- |
||
ActiveDialog |
лужирный шрифт
и в нее вводится строка текста Отчет за май: With ActiveCell .Font.
Bold = True .Value = "Отчет за май" End With |
||
ThisWorkbook |
Возвращает рабочую
книгу, содержащую выполняющийся в данный момент макрос. Это свойство
может возвращать рабочую книгу, отличную от возвращаемой свойством
Active-Workbook, т. к. выполняемый макрос может находиться в неактивной
книге |
||
Calculation |
Устанавливает
режим вычислений. Допустимые значения: xlCalculationAutomatic (автоматический
режим) xlCalculationManual (вычисления выполняются вручную) xlCalculationSemiAutomatic
(автоматический режим, не распространяется на таблицы) |
||
Caption |
Возвращает текст
в строке имени главного окна Excel. Установка свойства равным Empty
возвращает заголовок, используемый по умолчанию. В следующем примере
первая инструкция устанавливает в качестве заголовка окна приложения
текст Отчет за 1999 год, а вторая возвращает имя окна, используемое
по умолчанию, т. е. Microsoft Excel: Application.
Caption = "Отчет за 1999 год" Application. Caption = Empty |
||
DisplayAlerts |
Допустимые значения:
True (отображаются встроенные предупреждения о работе программы) и
False (предупреждения не отображаются) |
||
DisplayFormulaBar |
Допустимые значения:
True (строка формул выводится в окне Excel) и False (строка формул
не выводится). В данном ниже
примере установлен режим, при котором строка формул не будет выводиться
в окне Excel: Application.
DisplayFormulaBar = False |
||
DisplayScrollBars |
Допустимые значения:
True (полосы прокрутки видны в окне Excel) и False (полосы прокрутки
не отображаются). Например: Application. DisplayScrollBars = False
— строка формул не будет выводиться в окне Excel |
||
Свойства |
Выполняемые
действия и допустимые значения |
||
DisplayStatusBar |
Допустимые значения:
True (строка состояния видна в окне Excel) и False (строка состояния
не видна). Например: Application.
DisplayStatusBar = True — строка состояния не будет выводиться в окне
Excel |
||
EnableCancelKey |
Определяет действие
при нажатии комбинации клавиш <Ctrl>+<Break>, используемой
для прерывания выполнения процедуры. Допустимые значения: xlDisabled (прерывания
программы запрещено) xllnterrupt (прерывание процедуры разрешено)
XlErrorHandler (прерывание воспринимается как ошибка) |
||
Height |
Высота окна
приложения в пунктах |
||
Width |
Ширина окна
приложения в пунктах |
||
Left |
Расстояние в
пунктах от левой границы окна приложения до левого края экрана |
||
Right |
Расстояние в
пунктах от правой границы окна приложения до правого края экрана |
||
Top |
Расстояние в
пунктах от верхней границы окна приложения до верхнего края экрана |
||
ScreenUpdating |
Допустимые значения:
True (изображение обновляется во время выполнения программы) и False
(изображение не обновляется). Задание False в качестве значения свойства
ускоряет выполнение процедуры. В конце процедуры свойству ScreenUpdating
необходимо присвоить значение True |
||
StatusBar |
Выводит заданный
текст в строке состояния. Выполнение приведенного ниже примера позволит
вывести текст Ввод данных. . . в строке состояния: Application.
DisplayStatusBar = True Application. StatusBar = "Ввод данных..." |
||
Version |
Возвращает номер
текущей версии Excel. Применяется для проверки того, что приложение
используется в корректной версии. Например: If Application.
Version о "8.0" Then Exit Sub |
||
WindowState |
Устанавливает
размер окна. Допустимые значения: xlMaximized (максимальный) xlMinimized
(минимальный) xlNormal (нормальный) Например: Application. WindowState
= xlMaximized — устанавливается максимальный размер окна |
||
Методы |
Выполняемые
действия |
||
Calculate
Run
Volatile
Wait
OnKey |
Вызывает принудительное
вычисление во всех открытых рабочих книгах. Например: Application. Calculate Запускает на
выполнение подпрограмму или макрос. Синтаксис: Run (Macro,
Argl, Arg2, ...)
Application. Run Macro:= "Расчет" - запускает макрос
Расчет Вызывает перевычисление
функции пользователя при изменении значений параметров. Например,
функция Квадрат будет автоматически пересчитывать результат на рабочем
листе при изменении значения аргумента: Function Квадрат (х) Application . Volatile Квадрат
= х^2 End Function Временно приостанавливает
работу приложения без остановки работы других программ. Синтаксис: Wait (Time)
В следующем
примере показывается, как установить время, чтобы возобновление работы
приложения началось в 17 часов: Application. Wait
"17:00:00" Устанавливает
выполнение специфицированной процедуры при нажатии заданной комбинации
клавиш. Синтаксис: OnKey(Key, Procedure)
|
||
Методы |
Выполняемые
действия |
||
OnRepeat и OnUndo |
Допустимо использование
сочетания одновременно нажатых клавиш. С этой целью для перечисленных
трех клавиш установлены следующие коды:
В примере процедуре
Амортизация назначена комбинация клавиш <Ctrl>+<+>, а
процедуре ПроцентнаяСтавка — <Shift>+<Ctrl>+<->.>: Application. OnKey "^{+}", "Амортизация" Application. ОпКеу
"+^ {RIGHT}", "ПроцентнаяСтавка" Определяет процедуру,
выполняемую при выборе команды Правка, Повторить (Edit, Repeat) и
Правка, Отменить (Edit, Undo) соответственно. |
||
Методы |
Выполняемые
действия |
||
OnTime
Quit |
Синтаксис: OnRepeat (Text, Procedure) OnUndo (Text, Procedure)
Procedure —
имя подпрограммы, выполняемой при выборе команды Правка, Повторить
(Edit, Repeat) Назначает выполнение
процедуры на определенное время. Синтаксис: OnTime (EarliestTime, Procedure, LatestTime, Schedule)
В следующем
примере демонстрируется, как запустить процедуру Очистка на выполнение
через 15 секунд от текущего времени: Application. OnTime Now +_ TimeValue ("00:00:15"), "Очистка" Закрывает приложение. Например: Application. Quit |
||
Событие | Когда возникает событие |
NewWorkbook | При создании новой рабочей книги |
WorkbookActivate | При активизации рабочей книги |
WorkbookBeforeClose | Перед закрытием рабочей книги |
WorkbookBeforePrint | Перед печатью рабочей книги |
WorkbookBeforeSave | Перед сохранением рабочей книги |
WorkbookNewSheet | При добавлении нового листа в рабочую книгу |
WorkbookOpen | При открытии рабочей книги |
WorkbookDeactivate | Когда активная книга теряет фокус |
Релятивисты и позитивисты утверждают, что "мысленный эксперимент" весьма полезный интрумент для проверки теорий (также возникающих в нашем уме) на непротиворечивость. В этом они обманывают людей, так как любая проверка может осуществляться только независимым от объекта проверки источником. Сам заявитель гипотезы не может быть проверкой своего же заявления, так как причина самого этого заявления есть отсутствие видимых для заявителя противоречий в заявлении.
Это мы видим на примере СТО и ОТО, превратившихся в своеобразный вид религии, управляющей наукой и общественным мнением. Никакое количество фактов, противоречащих им, не может преодолеть формулу Эйнштейна: "Если факт не соответствует теории - измените факт" (В другом варианте " - Факт не соответствует теории? - Тем хуже для факта").
Максимально, на что может претендовать "мысленный эксперимент" - это только на внутреннюю непротиворечивость гипотезы в рамках собственной, часто отнюдь не истинной логики заявителя. Соответсвие практике это не проверяет. Настоящая проверка может состояться только в действительном физическом эксперименте.
Эксперимент на то и эксперимент, что он есть не изощрение мысли, а проверка мысли. Непротиворечивая внутри себя мысль не может сама себя проверить. Это доказано Куртом Гёделем.
Понятие "мысленный эксперимент" придумано специально спекулянтами - релятивистами для шулерской подмены реальной проверки мысли на практике (эксперимента) своим "честным словом". Подробнее читайте в FAQ по эфирной физике.
|
![]() |