Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Звук при изменении данных в ячейке
 
#1
03.07.2011 11:13:08
Здравствуйте! Продолжая тему музыки в Excel, подскажите, пожалуйста, возможно ли сделать так, чтобы при изменении данных в ячейке воспроизводился какой то определенный звук? Скажем если в ячейке значение меньше нуля то звук один, а если больше нуля другой?
 
 
 
#2
03.07.2011 11:48:55
мистер, мне кажется Вы всем уже порядком надоели)  
 
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszName As String, ByVal dwFlags As Long) As Long  
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long  
 
sub io()  
If Activecell < 0 Then Call sndPlaySound("C:\Windows\Media\tada.wav", 1)  
If Activecell > 0 Then Call sndPlaySound("C:\Windows\Media\tada.wav", 1)  
end sub  
 
поставтьте курсор в ячейку с числом
Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук

https://github.com/nervgh
 
 
 
#3
03.07.2011 12:02:49
Воспользовался поиском - нашёл готовое решение:  
http://programmersforum.ru/showpost....05&postcount=3  
 
Можете ещё это поглядеть:  
http://excelvba.ru/code/beeps
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#4
03.07.2011 12:13:10
Человек уже все познал в Ексель, осталось разобраться с украшениями.
 
 
 
#5
03.07.2011 13:20:14
{quote}{login=nerv}{date=03.07.2011 11:48}{thema=}{post}мистер, мне кажется Вы всем уже порядком надоели)  
 
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszName As String, ByVal dwFlags As Long) As Long  
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long  
 
sub io()  
If Activecell < 0 Then Call sndPlaySound("C:\Windows\Media\tada.wav", 1)  
If Activecell > 0 Then Call sndPlaySound("C:\Windows\Media\tada.wav", 1)  
end sub  
 
поставтьте курсор в ячейку с числом{/post}{/quote}  
За код спасибо. А вот по поводу "мистер, мне кажется Вы всем уже порядком надоели)"  
- отвечайте, пожалуйста, за себя, а остальные уж как нибудь сами...
 
 
 
#6
03.07.2011 13:21:17
{quote}{login=EducatedFool}{date=03.07.2011 12:02}{thema=}{post}Воспользовался поиском - нашёл готовое решение:  
http://programmersforum.ru/showpost....05&postcount=3  
 
Можете ещё это поглядеть:  
http://excelvba.ru/code/beeps{/post}{/quote}  
Спасибо, за ссылки, посмотрел, буду разбираться.
 
 
 
#7
03.07.2011 13:40:19
Можно даже сказать чего нибудь по англицки :)  
 
Application.Speech.Speak ("UPS")
Спасибо
 
 
 
#8
03.07.2011 13:47:10
nerv прав, зря обижаетесь. Ладно бы по делу, а то Вы ерундой занимаетесь и других отвлекаете. Даже поиском воспользоваться лень(не говорю уж об авторизации). А такими постами, как от 03.07.2011, 13:20 Вы очень быстро отобъете охоту отвечать Вам на любые вопросы. Я вот искренне сомневаюсь, что nerv станет помогать Вам в дальнейшем. Да и у меня желание сильно поубавилось.  
Удачи!
Я сам - дурнее всякого примера! ...
 
 
 
#9
03.07.2011 13:56:13
Может быть и я не прав, прошу прощения, кого обидел, но ведь форум для того и содан чтобы задавать вопросы, я на многие заданные вопросы по темам тоже знаю ответы, но я же не пишу ничего такого о тех кто их задает! А в поиске это скорее для тех кто в VBA хорошо разбирается, и может переделать код как то под себя. Так что я не думаю что стоит по этому поводу вести дискуссию....не тот форум.
 
 
 
#10
03.07.2011 14:08:34
{quote}{login=Aroma}{date=03.07.2011 01:56}{thema=}{post}А в поиске это скорее для тех кто в VBA хорошо разбирается, и может переделать код как то под себя.{/post}{/quote}  
Так Вы бы хоть поискали сначала... Попробовали чужой код изменить, а вот уже что не получится - спрашивайте. Не видно попыток что-либо сделать.
 
 
 
#11
03.07.2011 17:34:15
{quote}{login=Aroma}{date=03.07.2011 01:56}{thema=}{post}...я на многие заданные вопросы по темам тоже знаю ответы, но я же не пишу ничего такого...{/post}{/quote}  
Почему?
 
 
 
#12
03.07.2011 17:56:19
{quote}{login=Serge 007}{date=03.07.2011 05:34}{thema=Re: }{post}{quote}{login=Aroma}{date=03.07.2011 01:56}{thema=}{post}...я на многие заданные вопросы по темам тоже знаю ответы, но я же не пишу ничего такого...{/post}{/quote}  
Почему?{/post}{/quote}  
Потому как не для себя любимого писано - "А Вы знаете, что когда помогаете кому-то, помощь возвращается Вам вдвойне!?"  
-85509-
 
 
 
#13
03.07.2011 18:58:07
TO Aroma  
 
Вы с интервалом менее 1 часа создали 2 практически идентичные темы!  
В вашей первой теме я рекомендовал вам поиск, но вы это игнорировали.  
Помогите кому-нибудь материально, и ваша помошь возвратится вам вдвойне!  
Мне не надо.--:))
 
 
 
Страницы: 1
Читают тему
Наверх