Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1 2 3 След.
RSS
Вставить звуковой сигнал при исполнении условия
 
#1
23.10.2008 17:37:47
Добрый день!  
Каким образом можно вставить в программу сигнал при выполнении условия - напр. А1=А2?  
С уважением  
Вячеслав
 
 
 
#2
23.10.2008 17:40:57
Отличная формулировка, надо чтобы он пищал все время пока а1=а2 или какое событие имеется ввиду?
 
 
 
#3
23.10.2008 17:54:42
Нет, должно быть обозначено исполнение события.  
Как вариант возможно и звучание с настройкой длительности - просто это более общая задача.  
А главное - обозначить момент исполнения события.  
С уважением  
Вячеслав
 
 
 
#4
23.10.2008 18:00:40
Да, действительно, формулировка не фонтан.  
Уточняю.  
В А1 - постоянно меняющиеся данные, поступающие из другой программы.  
Эти данные сравниваются с А2.  
Когда значение в А1 будет равно А2, должен податься сигнал.  
....Так, вроде, более корректно.
 
 
 
#5
23.10.2008 18:31:13
См. приложение
 
 
 
#6
23.10.2008 18:53:10
Может я что-то не понял, но в полученной книге я поместил в А1 и А2 одно число, а звука нет.
 
 
 
#7
23.10.2008 18:53:36
{quote}{login=ZVI}{date=23.10.2008 06:31}{thema=Re: Вставить звуковой сигнал при исполнении условия}{post}См. приложение{/post}{/quote}  
В приложении добавлено еще одно условие,чтобы не реагировало на изменение других ячеек.
 
 
 
#8
23.10.2008 19:07:09
{quote}{login=Вячеслав}{date=23.10.2008 06:53}{thema=Вставить звуковой сигнал при исполнении условия}{post}Может я что-то не понял, но в полученной книге я поместил в А1 и А2 одно число, а звука нет.{/post}{/quote}  
Такое бывает если не установлен проигрыватель Windows Media Player, а точнее - драйвер mci.  
Посмотрите VBA-код, в нем прописан файл, которого на Вашем компьютере может и не быть: C:\Windows\Media\tada.wav  
Попробуйте еще такой вариант, подправив в коде путь к Вашему wav-файлу.
 
 
 
#9
23.10.2008 21:35:40
Сигналы непосредственно из директория проигрываются нормально.  
А в программе не звучат.  
Путь проверил - всё нормально.
 
 
 
#10
23.10.2008 21:55:08
Ну, тогда начнем по порядку.  
1. Какая версия операционной системы? Надеюсь, что не Vista.  
2. Какая версия Excel?  
3. Инсталлирован ли Windows Media Player?  
4. Какой уровень безопасности макросов установлен в Excel?  
5. Если ли у Вас уже какой-то опыт работы с макросами VBA?
 
 
 
#11
24.10.2008 11:39:20
1. ОС - Vista.  
2.Excel 2003  
3.Плеер инсталирован  
4.Уровень безопасности - высокий  
5.Опыта  - нет.
 
 
 
#12
24.10.2008 12:47:30
Когда А1=А2 появляется сообщение "Указанное устройство не открыто или не опознаётся устройством MCI".
 
 
 
#13
24.10.2008 12:51:09
Всё получилось!  
Спасибо!
 
 
 
#14
24.10.2008 13:09:06
Почему-то работает только с Tada.Wav.  
Попробовал заменить на "Исходящий звонок.wav" - не получается: появляется сообщение "Указанное устройство не открыто или не опознаётся устройством MCI".  
В то же время из директории "Исходящий звонок.wav" проигрывается нормально.
 
 
 
#15
24.10.2008 13:20:38
Возможно потому что Исходящий звонок.wav содержит пробел и нужны дополнительные кавычки.
 
 
 
#16
24.10.2008 13:37:13
Переименовал в ZVUK.WAV.  
Из директории воспроизводится нормально, а из программы - нет.  
Пишет "Данный файл не найден. Проверьте, что путь или имя файла указаны правильно", хотя этот файл находится в той же директории что и Tada.Wav.
 
 
 
#17
25.10.2008 04:06:54
Вячеслав, Вы, наверное, не указали путь к файлу или что-то не так прописали в пути к файлу.  
В Вашем случае вместо "C:\Windows\Media\tada.wav"    
должно было получиться:"C:\Windows\Media\ZVUK.WAV"  
Проверил - работает.  
 
Прилагаю еще один вариант с использованием объекта MS Media Player.  
Этот вариант позволяет проигрывать файлы с пробелами в пути и имени, а также позволяет проигрывать другие форматы звуковых файлов, в частности, MP3.
 
 
 
#18
17.02.2009 12:43:44
Здравствуйте! Да, сигнал действительно работает.  
А вот если (А1) принимает данные из другой ячейки, или с сервера. Допустим (А1) принимает данные из (С1), тогда звук не срабатывает… Подскажите пожалуйста, что дописать в код, или поделитесь примером.
 
 
 
#19
10.11.2009 21:07:22
Добрый вечер!  
 
Также требуется помощь со звуком, в форуме ничего не нашел...  
 
Ситуация заключается в следующем.  
Имеем таблицу, в которой в одну из колонок (A) по мере сканирования внешним сканером штрихкода заносится определенная информация. Есть одно эталонное значение значение, описанное в ячейке F1. Задача заключается в том, чтобы при появлении в колонке (A) значения = F1 проигрывался звуковой файл. Остальные значения - тишина.  
 
искренне надеюсь, что процесс описал понятно...
 
 
 
#20
10.11.2009 21:57:35
В Вашем случае, скорее всего, придётся использовать событие листа Worksheet_Calculate
 
 
 
#21
10.11.2009 22:27:14
{quote}{login=Юрий М}{date=10.11.2009 09:57}{thema=}{post}В Вашем случае, скорее всего, придётся использовать событие листа Worksheet_Calculate{/post}{/quote}  
 
Хмм... а можно поподробнее, пожалуйста?
 
 
 
#22
10.11.2009 22:42:53
Вот простенький пример. Ячейку с формулой можно скрыть или запрятать подальше. Пример для одной ячейки. Проверку других можно организовать циклом.
 
 
 
#23
10.11.2009 22:59:57
Юрий, спасибо большое за помощь!  
 
Но к сожалению я не очень силен в макросах, не могли бы Вы на примере вставить озвучку и эту самую зацикленность?  
 
Заранее большое спасибо! От меня лично и от того товарища которому Вы можете помочь сэкономить пару километров в день хождения к ноуту от места сканирования, для того чтобы посмотреть, проставилось нужное (F1) значение или нет :)
 
 
 
#24
10.11.2009 23:15:40
Вот на основе файла ZVI.
 
 
 
#25
10.11.2009 23:25:12
{quote}{login=Юрий М}{date=10.11.2009 11:15}{thema=}{post}Вот на основе файла ZVI.{/post}{/quote}  
 
Ничего не происходит. Думал что, возможно нет такого звукового файла "исходящий звонок", но просмотрев внимательно, понял, что у Вас предусмотрено и это... Менял Const SoundFile на tada.wav, как в исходнике - все равно тишина.  
В чем может быть проблема?
 
 
 
#26
10.11.2009 23:31:38
Предусмотрено у ZVI, а не у меня :-). Ну вот как я Вам могу помочь? - у меня всё работает. Может добавить громкость? :-))
 
 
 
#27
10.11.2009 23:42:02
Увы не помогло :(  
 
Тем не менее спасибо большое за участие!  
 
Может кто-нибудь сможет сказать в чем причина того, что у Юрия все отлично работает, а у меня нет?
 
 
 
#28
10.11.2009 23:45:28
Посмотрите вот этот файл. Если у Вас сработает - подкрутим под Ваши нужды.
 
 
 
#29
10.11.2009 23:50:31
{quote}{login=Юрий М}{date=10.11.2009 11:45}{thema=}{post}Посмотрите вот этот файл. Если у Вас сработает - подкрутим под Ваши нужды.{/post}{/quote}  
 
Да, у меня все работает! :)
 
 
 
#30
11.11.2009 00:01:15
Тогда поместите прилагаемый файл в ту же папку. Вывод сообщения я сделал только для проверки работоспособности. Отключите его, если всё нормально.
 
 
 
Страницы: 1 2 3 След.
Читают тему
Наверх