Выполнение повторяющихся действий в Excel

Excel | 7/2013

В Excel есть функция позволяющая выполнять указанную по имени процедуру по времени

Application.OnTime время, название процедуры

Например для вызова процедуры my_Procedure каждые 10 секунд:

Application.OnTime Now + TimeValue("00:00:10"), "my_Procedure"

В конце процедуры можно указать строку :

if MyVar5<>vbTrue then Application.OnTime Now + TimeValue("00:00:10"), "my_Procedure"

В результате после проверки переменной MyVar5 функция будет вызываться последовательно каждые 10 секунд при этом Excel не будет забирать на себя много ресурсов операционной системы находясь фактически в простое.

Как только переменная MyVar5 станет равна vbTrue вызовы прекратятся.

При помощи данной переменной MyVar5 можно организовывать корректное завершение работы такого "цикла". Значение переменной может например менять кнопка расположенная на рабочем листе книги Excel.


"Одноразовая" функция в Excel

Excel | 7/2013

Задача: Выполнить функцию только при первом открытии рабочей книги. При последующих редактированиях данной книги функцию не выполнять и содержимое ячеек не менять.

Решение: Необходимо добавить в рабочую книгу макрос:

Private Sub Workbook_Open()
Range("B4").Select
If Excel.ActiveCell.FormulaR1C1 = "" Then ActiveCell.FormulaR1C1 = Now
End Sub

При открытии книги проверяется содержимое ячейки B4.
Если ячейка пуста она заполняется результатом выполнения функции NOW.
Вставляется текущая дата и время.

При следующих открытиях этой книги изменения содержимого ячейки производиться не будет.

Форматирование ячейки можно выполнить заранее.

Смотрите файл примера Book01.zip



Выполнение работ

Обучение

  • индивидуальное
  • групповое
  • разработка документации
  • инфографика

 

Программирование
  • конструкторские задачи
  • 2D-3D CAD-системы
  • технологическое ПО
  • задачи в архитектуре, машиностроении, геодезии
  • скрипты и макросы AutoCAD
  • автоматизация офисной работы
  • скрипты и макросы Word, Excel, Visio, ...
  • интранет
  • административные скрипты
  • конвертация документов разных форматов, парсеры