Умеет ли Excel "петь " ?

[0mega]

Доброго времени суток всем форумчанам.
Может ли Excel оповестить звуковым сигналом о том, что ячейка IR5
не равна нулю ?
Спасибо

[The_Prist]

Смотря что петь. Только через макросы. Самый простой вариант. В модуль листа:

Private Sub Worksheet_Calculate()
If [IR5] <> 0 The DoEvents: Beep
End Sub

А еще можно воспользоваться поиском - темы такие пробегали на форуме. Можно и мелодии и звуковые файлы проигрывать...

А вот ссылочка, где про это можно почитать:
http://j-walk.com/ss/excel/tips/tip59.htm

[nilem]

В модуле, допустим Module1, такой код:

Private Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As Long, ByVal cVwFlags As Long) As Long
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000

Sub PlayWAV2()
WAVFile = "I Feel Good.wav"
WAVFile = ThisWorkbook.Path & "\" & WAVFile
Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
End Sub

А в вызывающей процедуре:

...
Call Module1.PlayWAV2
...

Файл I Feel Good.wav должен находиться в одной папке с исполняющим файлом .xls

[EducatedFool]

http://www.programmersforum.ru/showp...05&postcount=3

[nilem]

А умеет Excel пылесосить?

[The_Prist]

Сообщение от nilem

А умеет Excel пылесосить?

Конечно! При особо тонкой настройке вентилятора охлаждения через API можно добиться и такого эффекта...

[0mega]

Благодарю всех принявших участие в ответах.
К сожалению, я с макросами на "Вы" и через "пожалуйста"...
Если для кого-то это не составит большого труда, тогда напишите макрос по таким условиям:
если ячейка IR5 не равна нулю, тогда звуковой сигнал
Спасибо
P.S.
открывать форматы RAR - мне не позволяет вера. просьба все ZIPовать

[SAS888]

если ячейка IR5 не равна нулю, тогда звуковой сигнал

Еще нужно было указать, каким образом изменяется значение в ячейке "IR5" (вручную, макросом, в результате пересчета формулы, импорт внешних данных и т.п.). Об этом говорилось здесь. Посмотрите пример во вложении. Попробуйте изменять значение ячейки "IR5" вручную.

P.S. При желании, средствами VBA Excel можно воспроизвести wav-файл.

[0mega]

спасибо.
программе что-то не нравится и она ругается на меня
Более подробные требования изложены непосредственно в Excel

[SAS888]

она ругается на меня

Какой у Вас Excel и какая ОС? Посмотрите вложение. Подробности в файле.