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

Вход

Регистрация

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

 

= Мир MS Excel/Создать макрос и при выполнении его условия подавать сигнал - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Создать макрос и при выполнении его условия подавать сигнал
evgenyforever Дата: Понедельник, 24.01.2022, 21:38 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 62
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Коллеги, ищу исполнителя.
У меня есть макрос, который обновляет внешний источник данных каждые 5 секунд
[vba]
Код
Sub Время()

    Sheets("Лист 1").Range("A500").QueryTable.Refresh BackgroundQuery:=False
    
    Sheets("Лист 2").Range("A500").QueryTable.Refresh BackgroundQuery:=False

    Application.OnTime Now + TimeValue("00:00:05"), "Время"
End Sub
[/vba]

Теперь для логического завершения нужен еще один макрос, который будет сопровождать звуком (подавать сигнал).
У меня на листе протянута вниз формула на 500 ячеек. При обновлении внешнего источника данных, первая строка удаляется автоматически, а 500-ая строка заменяется новым значением.

Нужна подача звукового сигнала в двух случаях:
1) когда в столбе с протянутой вниз формулой на 500-ой строке появляется пустая ячейка (по условию формулы)
2) когда в столбе с протянутой вниз формулой на 500-ой строке появляется ячейка со значением, т.е. не пустая (также по условию формулы)

Также приложу снимок, чтобы показать схематично:


Сообщение отредактировал evgenyforever - Понедельник, 24.01.2022, 21:59
 
Ответить
СообщениеКоллеги, ищу исполнителя.
У меня есть макрос, который обновляет внешний источник данных каждые 5 секунд
[vba]
Код
Sub Время()

    Sheets("Лист 1").Range("A500").QueryTable.Refresh BackgroundQuery:=False
    
    Sheets("Лист 2").Range("A500").QueryTable.Refresh BackgroundQuery:=False

    Application.OnTime Now + TimeValue("00:00:05"), "Время"
End Sub
[/vba]

Теперь для логического завершения нужен еще один макрос, который будет сопровождать звуком (подавать сигнал).
У меня на листе протянута вниз формула на 500 ячеек. При обновлении внешнего источника данных, первая строка удаляется автоматически, а 500-ая строка заменяется новым значением.

Нужна подача звукового сигнала в двух случаях:
1) когда в столбе с протянутой вниз формулой на 500-ой строке появляется пустая ячейка (по условию формулы)
2) когда в столбе с протянутой вниз формулой на 500-ой строке появляется ячейка со значением, т.е. не пустая (также по условию формулы)

Также приложу снимок, чтобы показать схематично:

Автор - evgenyforever
Дата добавления - 24.01.2022 в 21:38
evgenyforever Дата: Четверг, 27.01.2022, 17:20 | Сообщение № 2
Группа: Пользователи
Ранг: Участник
Сообщений: 62
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Решение нашлось, вопрос закрыт.
 
Ответить
СообщениеРешение нашлось, вопрос закрыт.

Автор - evgenyforever
Дата добавления - 27.01.2022 в 17:20
  • Страница 1 из 1
  • 1
Поиск:

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