Звуковое оповещение

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Звуковое оповещение (Формулы)

Звуковое оповещение

Евгений

Дата: Понедельник, 10.02.2014, 15:47 | Сообщение № 1

Группа: Гости

Всем привет. В ячейке с одинаковым интервалом отображаются цифры(положительные или со знаком минус).
Вопрос, можно ли написать макрос, который бы с помощью звукового сигнала оповещал когда в ячейки происходит замена с положительно на отрицательный и наоборот.

Ответить

AlexM

Дата: Понедельник, 10.02.2014, 18:34 | Сообщение № 2

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

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

Сообщений: 4490

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

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

Excel 2003

1. В теме указан способ решения Формулы, а в вопросе

Цитата Евгений, 10.02.2014 в 15:47, в сообщении № 1

можно ли написать макрос

Что-то не сходится.
2. По правилам форума к вопросу надо прикладывать файл.
3. Не понятно когда должен происходить сигнал. Вы пишите, когда происходит смена значения на отрицательное. По какой причине смена происходит, если в ячейке формула, то какая или ввод руками?

К сообщению приложен файл: W_Change_.xls (17.0 Kb)

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Сообщение отредактировал AlexM - Понедельник, 10.02.2014, 21:03

Ответить

gling

Дата: Понедельник, 10.02.2014, 22:36 | Сообщение № 3

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

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

Сообщений: 2523

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

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

2010

К файлу AlexM подключил звуки вместо текста. На ноуте звучит не знаю как будет на выносных динамиках, не пробовал. Писал конечно же не сам. ' © 2010 EducatedFool -это было в макросе. Где брал не помню но мне понравилось.

К сообщению приложен файл: 1043798.xls (32.5 Kb)

ЯД-41001506838083

Ответить

Евгений

Дата: Четверг, 13.02.2014, 10:52 | Сообщение № 4

Группа: Гости

Спасибо. Просьба модераторам исправить рейтинг AlexM на +. Ошибся.
[moder]Зарегистрируйтесь и исправьте самостоятельно

Ответить

Евгений

Дата: Четверг, 13.02.2014, 10:57 | Сообщение № 5

Группа: Гости

А как в макросе прописать путь до файла с музыкальной композицией, который находится на компьютере чтобы при смене числа играла определенная композиция?

Ответить

AlexM

Дата: Четверг, 13.02.2014, 13:23 | Сообщение № 6

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

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

Сообщений: 4490

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

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

Excel 2003

Например так[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]

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Ответить

Frankenstein

Дата: Пятница, 14.02.2014, 22:40 | Сообщение № 7

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

Ранг: Прохожий

Сообщений: 5

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

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

Excel 2003

Спасибо. Алексей по какому адресу с вами можно связаться?

Ответить

AlexM

Дата: Пятница, 14.02.2014, 23:35 | Сообщение № 8

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

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

Сообщений: 4490

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

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

Excel 2003

Связь уже установлена. Пишите вопросы на форум.

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Ответить

Alex_ST

Дата: Суббота, 15.02.2014, 23:05 | Сообщение № 9

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

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

Сообщений: 3206

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

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

2003

А может быть просто использовать встроенную "говорилку"?
(к сожалению, только по-английски или я просто не умею

)[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]
А как заставить комп говорить разными голосами, посмотрите ЗДЕСЬ