Шаг 16.
VBA в MSExcel.
Основные объекты VBA. Методы объекта Application

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

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

Таблица 1. Методы объекта Application
Методы Выполняемые действия
Calculate Вызывает принудительное вычисление во всех открытых рабочих книгах. Например: 
Application.Calculate
Run Запускает на выполнение подпрограмму или макрос. Синтаксис: 
Run (Macro, Argl, Arg2, ...)
  • Macro — строка с именем макроса;
  • Arg1, Arg2, ... — аргументы передаваемые макросу.
Например: Application.Run Macro:= "Расчет" - запускает макрос Расчет
Volatile Вызывает перевычисление функции пользователя при изменении значений параметров. Например, функция Квадрат будет автоматически пересчитывать результат на рабочем листе при изменении значения аргумента: 
Function Квадрат (х) 
  Application.Volatile 
  Квадрат = х^2 
End Function
Wait Временно приостанавливает работу приложения без остановки работы других программ. Синтаксис: 
Wait (Time)
Time — время, в которое предполагается возобновить работу приложения. В следующем примере показывается, как установить время, чтобы возобновление работы приложения началось в 17 часов: 
Application.Wait "17:00:00"
OnKey Устанавливает выполнение специфицированной процедуры при нажатии заданной комбинации клавиш. Синтаксис: 
OnKey(Key, Procedure)
  • Procedure — имя выполняемой подпрограммы при нажатии клавиш;
  • Key — строка, определяющая комбинацию клавиш, которая должна быть нажата. В этой строке можно также указывать специальные клавиши, используя следующие коды:
    • Backspace — {BACKSPACE} или {BS};
    • Caps Lock — {CAPSLOCK};
    • Delete или Del — {DELETE} или {DEL};
    • клавиша стрелка вниз — {DOWN};
    • End — {END};
    • Enter (цифровая клавиатура) — {ENTER};
    • ESC — {ESCAPE} или {ESC};
    • Home — {HOME};
    • Ins или Insert — {INSERT};
    • клавиша стрелка влево — {LEFT};
    • Num Lock — {NUMLOCK};
    • Page Down — {PGDN};
    • Page Up — {PGUP};
    • Return — {RETURN};
    • клавиша стрелка вправо — {RIGHT};
    • Scroll Lock — {SCROLLLOCK};
    • Tab — {TAB};
    • клавиша стрелка вверх — {UP};
    • от F1 до F15 — от {F1} до {F15}.
Допустимо использование сочетания одновременно нажатых клавиш. С этой целью для перечисленных трех клавиш установлены следующие коды:
  • Shift - +;
  • Ctrl - ^;
  • Alt - %.
В примере процедуре Амортизация назначена комбинация клавиш "Ctrl"+"+", а процедуре ПроцентнаяСтавка — Shift+Ctrl+"стрелка вправо": 
Application.OnKey "^{+}", "Амортизация"
Application.ОnКеу "+^{RIGHT}", "ПроцентнаяСтавка"
OnRepeat и OnUndo Определяет процедуру, выполняемую при выборе команды Правка | Повторить (Edit | Repeat) и Правка | Отменить (Edit | Undo) соответственно. Синтаксис: 
OnRepeat (Text, Procedure)
OnUndo (Text, Procedure)
  • Text — строка, задающая текст команды Правка | Повторить (Edit | Repeat);
  • Procedure — имя подпрограммы, выполняемой при выборе команды Правка | Повторить (Edit | Repeat).
OnTime Назначает выполнение процедуры на определенное время. Синтаксис: 
OnTime (EarliestTime, Procedure, LatestTime, Schedule)
  • EarliestTime — момент запуска процедуры;
  • Procedure — имя процедуры;
  • LatestTime — если на момент запуска процедуры, Excel не может ее запустить в силу того, что выполняется другое действие, то параметр LatestTime определяет последнее время ее запуска. Если этот аргумент опущен, то Excel будет ждать до тех пор, пока не сможет выполнить эту процедуру;
  • Schedule — допустимые значения: True (выполнение процедуры откладывается на сутки) и False (во всех остальных случаях).
В следующем примере демонстрируется, как запустить процедуру Очистка на выполнение через 15 секунд от текущего времени: 
Application.OnTime  Now + TimeValue ("00:00:15"), "Очистка"
Quit Закрывает приложение. Например: 
Application.Quit

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




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