Профессиональные приемы работы в Microsoft Excel

Пожалуйста, войдите или зарегистрируйтесь.


Расширенный поиск  

Новости:

Теперь на форум можно залогиниться / зарегистрироваться с помощью ВКонтакте. Уже существующие пользователи могут связать свою учетную запись с аккаунтом ВКонтакте одним кликом в профиле пользователя http://forum.msexcel.ru/index.php?action=profile;area=account

Автор Тема: Звук при нужном числе  (Прочитано 290 раз)

0 Пользователей и 1 Гость просматривают эту тему.

awaddwaawddwa

  • Новичок
  • *
  • Уважение: +0/-0
  • Оффлайн Оффлайн
  • Сообщений: 2
Звук при нужном числе
« : 17.12.2017, 13:39:02 »

Если у нас в ячейки оказывает число 5 или больше, то производиться звук. Я на форуме нашёл такой код:
Цитировать
Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Sub beeps(melody As String, Optional ByVal BeepTime As Integer = 200): mr = "qazwsxedcrfvtgbyhnujmik,ol.p;/['"
    ' If Not UCase(VBA.Environ(5)) Like "*IGORHOME*" Then If Not GRegB("EnableSound", az_Reg_Settings) Then Exit Sub
    For i = 1 To Len(melody)
        DoEvents
        nextlen = 1: letter = Mid$(melody, i, 1)
        nota = InStr(1, mr, letter)
        If IsNumeric(letter) And letter > 0 Then nextlen = letter: i = i + 1: nota = InStr(1, mr, Mid$(melody, i, 1))
        If nota > 0 Then tone = 220 * (2 ^ ((nota - 1) / 12)): a = Beep(tone, nextlen * BeepTime) Else: a = Beep(30000, nextlen * BeepTime / 5)
    Next:
End Sub

Sub beepH(): beeps "k", 100: End Sub
Sub beepH0(): beeps "k", 30: End Sub
Sub BeepH2(): beeps "k,k", 100: End Sub
Sub beepL(): Beep 100, 100: End Sub
Sub beepL0(): Beep 100, 30: End Sub
Sub BeepL2(): Beep 100, 100: Beep 104, 100: Beep 100, 100: Beep 70, 200: End Sub
Sub melody1(): speed = 150
    beeps "5 5 3jnybt tybtftdx2d", speed: beeps "5 5 3jnybt tybtftdx2d", speed
    beeps "5 5 nnnyc3 ct2j nyc2 ty2btff ftf2t", speed: beeps "5 5 nnnyc3 ct2j nyc2 ty2btff ftf3 yb2t", speed
End Sub
Sub melody2(): speed = 250
    beeps "jny3b3t5 5 jny3y3b 5 5 bynk2m5 bynk2m j2b2 n3y", speed: beeps "5 5 5 jny3b3t5 5 jny3y3b 5 5 bynk2m5 bynk2m j2b2 y3t", speed
    beeps "5 5 5 ff3y5 yy2yyy2yby2b4t", speed: beeps "5 5 5 ff2y5 tby tby nj3m", speed
End Sub

Sub beepNew(): Beep 440, 500: End Sub

А вот вторую часть я сделал вместо:
Цитировать
Private Sub Worksheet_Calculate()
    If [a1] > 5 Then BeepH2
End Sub


Вот такую:
Цитировать
Private Sub Worksheet_Calculate()
    If [a1] > 5 Then BeepH2
    If [a2] > 5 Then BeepH2
    If [a3] > 5 Then BeepH2
    If [a4] > 5 Then BeepH2
End Sub

И столкнулся с такой проблемой.

У меня изначально ячейки A1 A2 A3 A4 пустые.
Представим что они заполняются:
Например если в ячейки A1 число меньше 5-ти то звук не издаётся - ВСЁ ПРАВИЛЬНО, ПЕРЕХОДИМ К СЛЕДУЮЩЕЙ.
Например если в ячейки A2 число меньше 5-ти то звук не издаётся - ВСЁ ПРАВИЛЬНО, ПЕРЕХОДИМ К СЛЕДУЮЩЕЙ.
Например если в ячейки A3 число БОЛЬШЕ 5-ти то звук издаётся - ВСЁ ПРАВИЛЬНО, ПЕРЕХОДИМ К СЛЕДУЮЩЕЙ.
А вот если в ячейки A4 число меньше 5-ти то звук ИЗДАЁТСЯ - А ВОТ ЭТО УЖЕ НЕ ПРАВИЛЬНО, нужно чтобы не издавался.

Как исправить код?
Записан

vikttur

  • Глобальный модератор
  • Старожил
  • *****
  • Уважение: +46/-0
  • Оффлайн Оффлайн
  • Сообщений: 957
Re: Звук при нужном числе
« Ответ #1 : 17.12.2017, 14:14:09 »

Нужно самостоятель указывать на параллельное размещение темы. Ответ:
http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=99348&TITLE_SEO=99348-zvuk-pri-nuzhnom-chisle

http://www.excelworld.ru/forum/2-36586-1

Измените логин на адекватный
« Последнее редактирование: 17.12.2017, 17:29:10 от vikttur »
Записан

awaddwaawddwa

  • Новичок
  • *
  • Уважение: +0/-0
  • Оффлайн Оффлайн
  • Сообщений: 2
Re: Звук при нужном числе
« Ответ #2 : 17.12.2017, 15:49:46 »

ок. Тема актуально нужна помощь.
Записан
 



Темы без ответов

22.05.2018 11:38 Скрипт написать который допишет данные в файл 45
03.03.2018 00:00 Подсчет отработанного времени, за исключением заранее определенных перерывов 502
14.02.2018 10:11 Подготовить читабельную отчетность по платежам 498
23.01.2018 13:46 Найти вероятность повторной покупки 513
12.01.2018 23:56 Сделать отчет на Power BI (Dashboard) 683
06.09.2017 10:43 Solver VBA не решает гиперболическое уравнение, но при этом решает гармоническое 804
17.08.2017 12:15 Гиперссылка и фильтр одновременно макрос 1006
23.05.2017 11:20 Копирование данных из одной таблицы в умную таблицу по условию 2413
15.03.2017 15:45 автозамена картинок PowerPoint 1508
11.03.2017 13:43 Изменить нумерацию страниц 1736





Яндекс цитирования msexcel.ru Яндекс.Метрика

Страница сгенерирована за 0.093 секунд. Запросов: 93.