Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Запуск макросов по названию в столбце - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Запуск макросов по названию в столбце (Макросы/Sub)
Запуск макросов по названию в столбце
ПутинВВ Дата: Четверг, 10.01.2019, 04:27 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Доброго времени, уважаемые специалисты по программе Excel.

Помогите новичку....

В таблицу, в столбец Q6:Q39 вписаны названия макросов.
Как запустить макросы в том порядке, в каком они записаны в столбце Q6:Q39 - с паузой между запусками - 5 секунд ?

Если же в ячейке - пусто, то макрос не выполняет ожидания, а переходит к следующей заполненной ячейке столбца Q.
К сообщению приложен файл: 4690011.xls(52.0 Kb)
 
Ответить
СообщениеДоброго времени, уважаемые специалисты по программе Excel.

Помогите новичку....

В таблицу, в столбец Q6:Q39 вписаны названия макросов.
Как запустить макросы в том порядке, в каком они записаны в столбце Q6:Q39 - с паузой между запусками - 5 секунд ?

Если же в ячейке - пусто, то макрос не выполняет ожидания, а переходит к следующей заполненной ячейке столбца Q.

Автор - ПутинВВ
Дата добавления - 10.01.2019 в 04:27
sboy Дата: Четверг, 10.01.2019, 09:15 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 2418
Репутация: 683 ±
Замечаний: 0% ±

Excel 2010
Добрый день.
[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] Неужели в АП никто помочь не смог? :)
К сообщению приложен файл: 8865578.xls(55.5 Kb)


Яндекс: 410016850021169
 
Ответить
СообщениеДобрый день.
[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
Дата добавления - 10.01.2019 в 09:15
ПутинВВ Дата: Четверг, 10.01.2019, 10:06 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
sboy, спасибо.
Все отлично работает.

У меня такой вопрос - вот во время выполнения этих макросов - делать на листе ничего нельзя. Ни ячейку выделить, ничего.

Можно ли как-нибудь изменить этот макрос, чтобы он не блокировал доступ листу - во время своей работы ?
 
Ответить
Сообщениеsboy, спасибо.
Все отлично работает.

У меня такой вопрос - вот во время выполнения этих макросов - делать на листе ничего нельзя. Ни ячейку выделить, ничего.

Можно ли как-нибудь изменить этот макрос, чтобы он не блокировал доступ листу - во время своей работы ?

Автор - ПутинВВ
Дата добавления - 10.01.2019 в 10:06
sboy Дата: Четверг, 10.01.2019, 10:13 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 2418
Репутация: 683 ±
Замечаний: 0% ±

Excel 2010
Добавьте
[vba]
Код
DoEvents
[/vba]


Яндекс: 410016850021169
 
Ответить
СообщениеДобавьте
[vba]
Код
DoEvents
[/vba]

Автор - sboy
Дата добавления - 10.01.2019 в 10:13
ПутинВВ Дата: Четверг, 10.01.2019, 10:24 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
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

[/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

[/vba]

Автор - ПутинВВ
Дата добавления - 10.01.2019 в 10:24
sboy Дата: Четверг, 10.01.2019, 10:44 | Сообщение № 6
Группа: Друзья
Ранг: Старожил
Сообщений: 2418
Репутация: 683 ±
Замечаний: 0% ±

Excel 2010
В цикл
[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

[/vba]


Яндекс: 410016850021169
 
Ответить
СообщениеВ цикл
[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

[/vba]

Автор - sboy
Дата добавления - 10.01.2019 в 10:44
ПутинВВ Дата: Четверг, 10.01.2019, 10:51 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
sboy, все нормально теперь.
Спасибо огромное.
 
Ответить
Сообщениеsboy, все нормально теперь.
Спасибо огромное.

Автор - ПутинВВ
Дата добавления - 10.01.2019 в 10:51
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Запуск макросов по названию в столбце (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!