В Excel мы можем применить условное форматирование для форматирования и выделения ячеек для соответствия условию по мере необходимости, но иногда вы можете захотеть воспроизвести звук, если условие выполнено. Например, если значение ячейки в A1 больше 300, я хочу, чтобы воспроизводился звук. Excel не поддерживает эту функцию, в этой статье я представлю некоторые коды VBA для решения этой задачи.
Воспроизведение звукового сигнала системы по умолчанию на основе значения ячейки с кодом VBA
Воспроизвести собственный звук на основе значения ячейки с кодом VBA
Воспроизвести звук, если ячейка изменение значения в определенном столбце с кодом VBA
Воспроизвести звуковой сигнал системы по умолчанию на основе значения ячейки с кодом VBA
Вот удобный код для воспроизведения звукового сигнала системы по умолчанию при выполнении определенного условия, пожалуйста, сделайте это:
1. Удерживая ALT + F11 , откроется Окно Microsoft Visual Basic для приложений .
2 . Нажмите Вставить > Module и вставьте следующий код в окно Module .
Код VBA: воспроизведение звукового сигнала системы по умолчанию на основе значения ячейки:
3 . Затем сохраните и закройте это окно кода, вернитесь на рабочий лист и введите следующую формулу: = IF (A1> 300, BeepMe (), “”) в пустую ячейку рядом с ячейкой, содержащей значение, на основе которого вы хотите воспроизвести звук, а затем нажмите клавишу Enter , в ячейке формулы ничего не будет отображаться, см. снимок экрана:
4 . И теперь, если введенное значение в ячейке A1 больше 300, будет воспроизводиться системный звуковой сигнал по умолчанию.
Воспроизвести собственный звук на основе значения ячейки с кодом VBA
Если вы хотите воспроизвести какой-либо другой звук, кроме системы по умолчанию звуковой сигнал, здесь также код VBA может оказать вам услугу.
1 . Удерживая нажатыми клавиши ALT + F11 , откроется окно Microsoft Visual Basic для приложений .
2. Нажмите Вставить > Module и вставьте следующий код в окно Module .
Код VBA: воспроизведение определенного звука на основе значения ячейки:
3 . Затем сохраните и закройте это окно кода, вернитесь на рабочий лист и введите эту формулу: = IF (A1> 300, SoundMe (), “”) в пустую ячейку рядом с ячейкой, содержащей значение, на основе которого вы хотите воспроизвести звук, а затем нажмите клавишу Enter , в ячейке формулы ничего не будет отображаться, см. снимок экрана:
4 . С этого момента, если в ячейку A1 ввести значение больше 300, сразу будет воспроизводиться определенный звук.
Примечания : в приведенном выше коде вы можете изменить звуковой wav-файл по своему усмотрению, указав путь к файлу c: windows media . См. Снимок экрана:
Воспроизвести звук, если значение ячейки изменяется в определенном столбце с кодом VBA
Если вы хотите воспроизводить звук при изменении значения ячейки в определенном столбце, вы можете применить следующий код VBA.
1 . Щелкните правой кнопкой мыши вкладку листа, на которой вы хотите воспроизводить звук при изменении значения в столбце, затем выберите Просмотреть код в контекстном меню и в открывшемся Microsoft Visual Basic для приложения скопируйте и вставьте следующий код в пустой модуль:
Код VBA: воспроизведение звука при изменении значения ячейки в столбце:
Примечание : В приведенном выше коде число 3 в скрипте Columns (3) – это номер столбца, в котором вы хотите воспроизводить звук при изменении значения в этом столбце.
2 . А затем сохраните и закройте это окно кода, теперь, если значение ячейки изменится в третьем столбце, будет воспроизводиться системный звуковой сигнал по умолчанию.