Доброго времени, уважаемые специалисты по программе Excel.
Помогите новичку....
В таблицу, в столбец Q6:Q39 вписаны названия макросов. Как запустить макросы в том порядке, в каком они записаны в столбце Q6:Q39 - с паузой между запусками - 5 секунд ?
Если же в ячейке - пусто, то макрос не выполняет ожидания, а переходит к следующей заполненной ячейке столбца Q.
Доброго времени, уважаемые специалисты по программе Excel.
Помогите новичку....
В таблицу, в столбец Q6:Q39 вписаны названия макросов. Как запустить макросы в том порядке, в каком они записаны в столбце Q6:Q39 - с паузой между запусками - 5 секунд ?
Если же в ячейке - пусто, то макрос не выполняет ожидания, а переходит к следующей заполненной ячейке столбца Q.ПутинВВ
Sub Овал1_Щелчок() arr = Range(Cells(6, 17), Cells(Rows.Count, 17).End(xlUp)).Value For i = 1 To UBound(arr) If Not IsEmpty(arr(i, 1)) Then Application.Run arr(i, 1) Application.Wait (Now + TimeValue("0:00:05")) End If Next i End Sub
[/vba] [offtop] Неужели в АП никто помочь не смог?
Добрый день. [vba]
Код
Sub Овал1_Щелчок() arr = Range(Cells(6, 17), Cells(Rows.Count, 17).End(xlUp)).Value For i = 1 To UBound(arr) If Not IsEmpty(arr(i, 1)) Then Application.Run arr(i, 1) Application.Wait (Now + TimeValue("0:00:05")) End If Next i End Sub
[/vba] [offtop] Неужели в АП никто помочь не смог? sboy
Я вот куда только не добавлял - лист по-прежнему блокируется. [vba]
Код
Sub Овал1_Щелчок() DoEvents arr = Range(Cells(6, 17), Cells(Rows.Count, 17).End(xlUp)).Value For i = 1 To UBound(arr) If Not IsEmpty(arr(i, 1)) Then Application.Run arr(i, 1) Application.Wait (Now + TimeValue("0:00:05")) DoEvents End If Next i DoEvents End Sub
[/vba]
sboy, а куда именно DoEvents добавлять ?
Я вот куда только не добавлял - лист по-прежнему блокируется. [vba]
Код
Sub Овал1_Щелчок() DoEvents arr = Range(Cells(6, 17), Cells(Rows.Count, 17).End(xlUp)).Value For i = 1 To UBound(arr) If Not IsEmpty(arr(i, 1)) Then Application.Run arr(i, 1) Application.Wait (Now + TimeValue("0:00:05")) DoEvents End If Next i DoEvents End Sub
Sub Овал1_Щелчок() arr = Range(Cells(6, 17), Cells(Rows.Count, 17).End(xlUp)).Value For i = 1 To UBound(arr) If Not IsEmpty(arr(i, 1)) Then Application.Run arr(i, 1) t = Now + TimeValue("0:00:05") Do DoEvents Loop While t > Now End If Next i End Sub
[/vba]
В цикл [vba]
Код
Sub Овал1_Щелчок() arr = Range(Cells(6, 17), Cells(Rows.Count, 17).End(xlUp)).Value For i = 1 To UBound(arr) If Not IsEmpty(arr(i, 1)) Then Application.Run arr(i, 1) t = Now + TimeValue("0:00:05") Do DoEvents Loop While t > Now End If Next i End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
