Воспроизведение MP3 при изменении значения в ячейке

Дата: Пятница, 10.02.2017, 15:42 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 15

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Здравствуйте.
Подскажите пожалуйста, нужно проиграть MP3 при изменении значения в ячейках, в столбце D на первом листе (выделяются красным цветом). Происходит динамическое обновление из веба каждую минуту. Система Windows 64 битная.

Спасибо.

К сообщению приложен файл: 3285000.xlsm (79.9 Kb)

Дата: Пятница, 10.02.2017, 16:03 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4147

Репутация: 772 ±

Замечаний: 0% ±

Excel 2013/2016

edmal,

Из предыстории, это не обязательно MP3 важен звуковой оповещатель.

К сообщению приложен файл: Copy_of_3285000.xlsm (68.1 Kb)

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Сообщение отредактировал bmv98rus - Пятница, 10.02.2017, 16:58

Дата: Пятница, 10.02.2017, 16:50 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 15

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Звук проигрывается при каждом обновлении , через каждую минуту. Даже если не произошло никаких изменений в столбце D.

Дата: Пятница, 10.02.2017, 16:57 | Сообщение № 4

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4147

Репутация: 772 ±

Замечаний: 0% ±

Excel 2013/2016

edmal

Все больше сегодня ничего не буду решать, сплошные коcяки от меня

в D26 скорректируете [vba]

Код

=IF(SUMPRODUCT(--(E2:E22<>SnapShoot!E2:E22))>0;playAlert();0)

[/vba]
Выше файл заменю

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Сообщение отредактировал bmv98rus - Пятница, 10.02.2017, 17:55

Дата: Пятница, 10.02.2017, 17:13 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 15

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Всё. Спасибо огромное!!!!!!!!!!!!!

Perfect2You

Дата: Пятница, 10.02.2017, 17:23 | Сообщение № 6

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 237

Репутация: 59 ±

Замечаний: 0% ±

Excel 2010

Опять ругается. Теперь на это.
[vba]

Код

Public Declare Function PlayWavSound Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal LpszSoundName As String, _
ByVal uFlags As Long) As Long

[/vba]

Может, есть что почитать? А то отрывочными подсказками дыры только латать получается. Понимания нет.

Дата: Пятница, 10.02.2017, 18:05 | Сообщение № 7

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4147

Репутация: 772 ±

Замечаний: 0% ±

Excel 2013/2016

Perfect2You,
Боюсь что https://msdn.microsoft.com/en-us....5).aspx но я и сам не програмист, также гуглом все нахожу.
Посмотрите по аналогии с вчерашней темой.

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Сообщение отредактировал bmv98rus - Пятница, 10.02.2017, 18:05

Perfect2You

Дата: Пятница, 10.02.2017, 18:38 | Сообщение № 8

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 237

Репутация: 59 ±

Замечаний: 0% ±

Excel 2010

Спасибо и на том. Будем гуглить и тренировать буржуинский.

Дата: Пятница, 10.02.2017, 20:44 | Сообщение № 9

Группа: Пользователи

Ранг: Новичок

Сообщений: 15

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Немного подправил и теперь всё заработало

[vba]

Код

Public Declare PtrSafe Function PlayWavSound Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal LpszSoundName As String, _
ByVal uFlags As Long) As Long

[/vba]

Дата: Пятница, 10.02.2017, 20:47 | Сообщение № 10

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4147

Репутация: 772 ±

Замечаний: 0% ±

Excel 2013/2016

edmal,
то что Win x64 вы написали, а Excel?

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Дата: Пятница, 10.02.2017, 20:55 | Сообщение № 11

Группа: Пользователи

Ранг: Новичок

Сообщений: 15

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Извиняюсь, просто на работе 32 стоит , а пришел домой и вспомнил что 64. И давай рыть гугл.

Дата: Пятница, 10.02.2017, 21:12 | Сообщение № 12

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4147

Репутация: 772 ±

Замечаний: 0% ±

Excel 2013/2016

Ну как бы связка система 64 и офис 32 рекомендованна,

а попрбуйте
[vba]

Код

#If VBA7 Then
    #If Win64 Then
        Public Declare PtrSafe Function PlayWavSound Lib "winmm.dll" _
            Alias "sndPlaySoundA" (ByVal LpszSoundName As String, _
            ByVal uFlags As LongPtr) As LongPtr
    #Else
        Public Declare Function PlayWavSound Lib "winmm.dll" _
            Alias "sndPlaySoundA" (ByVal LpszSoundName As String, _
            ByVal uFlags As LongPtr) As LongPtr
    #End If
#Else
    #If Win64 Then
        Public Declare PtrSafe Function PlayWavSound Lib "winmm.dll" _
            Alias "sndPlaySoundA" (ByVal LpszSoundName As String, _
            ByVal uFlags As Long) As Long
    #Else
        Public Declare Function PlayWavSound Lib "winmm.dll" _
            Alias "sndPlaySoundA" (ByVal LpszSoundName As String, _
            ByVal uFlags As Long) As Long
    #End If
#End If

[/vba] Ну и конечно было б интересно добить вопрос с событием обновления запроса, а то искуственно как то.

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Сообщение отредактировал bmv98rus - Пятница, 10.02.2017, 21:22

Дата: Суббота, 11.02.2017, 16:31 | Сообщение № 13

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4147

Репутация: 772 ±

Замечаний: 0% ±

Excel 2013/2016

[offtop] edmal,

При очень большой помощи ZVI переделал на событие обновления.[/offtop]

К сообщению приложен файл: 6767427.xlsm (69.3 Kb)

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.