Назначить время (дату, час, секунд) для работы любого макроса.

Пользователь

Сообщений: 291 Регистрация: 16.06.2012

Офис-2013, Win.7 max

31.07.2017 21:54:57

Доброй ночи уважаемые знатоки.
Извиняюсь, если повторно поднимаю тему. Искал в "Поиск"е и не нашёл то что надо.
Помогите пожалуйсто с такой задачей: Надо установить время (дату, час, минут) макросу для его неактивности . После указанного времени макрос не должен работать. Спасибо.

Изменено: abdu77 - 31.07.2017 23:35:02

Sanja Модератор Сообщений: 16561 Регистрация: 10.01.2013	#2 31.07.2017 22:14:40 Без примера читаем справку по Application.Wait Согласие есть продукт при полном непротивлении сторон

abdu77

Пользователь

Сообщений: 291 Регистрация: 16.06.2012

Офис-2013, Win.7 max

31.07.2017 22:39:06

Вот пример:

Код
Sub Макрос1() With Sheets("Лист1").Range("g3:g7") .FormulaLocal = "=впр(f3;b:c;2;0)" .Value = .Value End With End Sub

abduvs77

Пользователь

Сообщений: 291 Регистрация: 16.06.2012

Офис-2013, Win.7 max

29.04.2018 09:41:34

Нашёл свою старую тему. С тех пор, как я поднял тему прошло время. Теперь я сам (ну, хоть и криво

) могу решать такие вопросы. УРА!!
Спасибо старожилам ПЛАНЕТЫ.

Код

Sub bibidate()
Dim dd As Date
dd = 4 / 29 / 2018
     If dd < 4 / 28 / 2018 Then
         Exit Sub
        Else
   With Sheets("Лист1").Range("g3:g7")
       .FormulaLocal = "=впр(f3;b:c;2;0)"
       .Value = .Value
   End With
   End If
End Sub

Изменено: abduvs77 - 29.04.2018 09:42:26