Дата: Понедельник, 10.02.2014, 15:47 |
Сообщение № 1
Группа: Гости
Всем привет. В ячейке с одинаковым интервалом отображаются цифры(положительные или со знаком минус). Вопрос, можно ли написать макрос, который бы с помощью звукового сигнала оповещал когда в ячейки происходит замена с положительно на отрицательный и наоборот.
Всем привет. В ячейке с одинаковым интервалом отображаются цифры(положительные или со знаком минус). Вопрос, можно ли написать макрос, который бы с помощью звукового сигнала оповещал когда в ячейки происходит замена с положительно на отрицательный и наоборот.Евгений
Что-то не сходится. 2. По правилам форума к вопросу надо прикладывать файл. 3. Не понятно когда должен происходить сигнал. Вы пишите, когда происходит смена значения на отрицательное. По какой причине смена происходит, если в ячейке формула, то какая или ввод руками?
1. В теме указан способ решения Формулы, а в вопросе
Что-то не сходится. 2. По правилам форума к вопросу надо прикладывать файл. 3. Не понятно когда должен происходить сигнал. Вы пишите, когда происходит смена значения на отрицательное. По какой причине смена происходит, если в ячейке формула, то какая или ввод руками?AlexM
А как в макросе прописать путь до файла с музыкальной композицией, который находится на компьютере чтобы при смене числа играла определенная композиция?
А как в макросе прописать путь до файла с музыкальной композицией, который находится на компьютере чтобы при смене числа играла определенная композиция?Евгений
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszName As String, ByVal dwFlags As Long) As Long Sub PlaySound() Sound = "D:\Мои документы\Моя музыка\Incanto commercial.wav" Call sndPlaySound(Sound, 1) End Sub
[/vba]
Например так[vba]
Код
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszName As String, ByVal dwFlags As Long) As Long Sub PlaySound() Sound = "D:\Мои документы\Моя музыка\Incanto commercial.wav" Call sndPlaySound(Sound, 1) End Sub
А может быть просто использовать встроенную "говорилку"? (к сожалению, только по-английски или я просто не умею )[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1")) Is Nothing Then CreateObject("SAPI.SpVoice").Speak IIf(Target > 0, "plous", IIf(Target < 0, "minus", "zero")) End If End Sub
[/vba] А как заставить комп говорить разными голосами, посмотрите ЗДЕСЬ
А может быть просто использовать встроенную "говорилку"? (к сожалению, только по-английски или я просто не умею )[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1")) Is Nothing Then CreateObject("SAPI.SpVoice").Speak IIf(Target > 0, "plous", IIf(Target < 0, "minus", "zero")) End If End Sub
[/vba] А как заставить комп говорить разными голосами, посмотрите ЗДЕСЬAlex_ST
С уважением, Алексей MS Excel 2003 - the best!!!
Сообщение отредактировал Alex_ST - Суббота, 15.02.2014, 23:09