Як відтворити звук, якщо в Excel виконується умова?
У програмі Excel ми можемо застосувати умовне форматування для форматування та виділення комірок, щоб відповідати умові, як вам потрібно, але, іноді, можливо, вам захочеться відтворити звук, якщо умова виконана. Наприклад, якщо значення комірки в А1 більше 300, я хочу, щоб відтворювався звук. Excel не підтримує цю функцію. У цій статті я представив деякі коди VBA для вирішення цього завдання.
Відтворюйте власний звук на основі значення комірки за допомогою коду VBA
Відтворюйте звук, якщо значення комірки змінюється у певному стовпці з кодом VBA
Відтворюйте системний звуковий сигнал за замовчуванням на основі значення комірки за допомогою коду VBA
Ось зручний код для відтворення системного звукового сигналу за замовчуванням, коли виконується певна умова. Будь ласка, зробіть так:
1. Утримуйте клавішу ALT + F11 клавіші, потім відкриється Microsoft Visual Basic для додатків вікна.
2. Клацання Insert > Модуліта вставте наступний код у Модулі Вікно
Код VBA: відтворення системного звукового сигналу за замовчуванням на основі значення комірки:
Function BeepMe() As String
Beep
BeepMe = ""
End Function
3. Потім збережіть і закрийте це вікно коду, поверніться до робочого аркуша та введіть цю формулу: = IF (A1> 300, BeepMe (), "") у порожню комірку поруч із коміркою містить значення, за яким потрібно відтворити звук, а потім натисніть Що натомість? Створіть віртуальну версію себе у ключ, у комірку формули нічого не відображатиметься, див. знімок екрана:
4. І тепер, якщо введене значення в комірці А1 перевищує 300, буде відтворений системний звуковий сигнал.
Відтворюйте власний звук на основі значення комірки за допомогою коду VBA
Якщо ви хочете відтворити якийсь інший звук, ніж системний звуковий сигнал за замовчуванням, тут також код VBA може зробити вам послугу.
1. Утримуйте клавішу ALT + F11 клавіші, потім відкриється Microsoft Visual Basic для додатків вікна.
2. Натисніть Insert > Модуліта вставте наступний код у Модулі Вікно
Код VBA: відтворення певного звуку на основі значення комірки:
#If Win64 Then
Private Declare PtrSafe Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As LongPtr, ByVal dwFlags As Long) As Boolean
#Else
Private Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As Long, ByVal dwFlags As Long) As Boolean
#End If
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
Function SoundMe() As String
'Updateby Extendoffice 20161223
Call PlaySound("c:\windows\media\Speech On.wav", _
0, SND_ASYNC Or SND_FILENAME)
SoundMe = ""
End Function
3. Потім збережіть і закрийте це вікно коду, поверніться до аркуша та введіть цю формулу: = IF (A1> 300, SoundMe (), "")у порожню комірку поруч із коміркою містить значення, за яким потрібно відтворити звук, а потім натисніть Що натомість? Створіть віртуальну версію себе у ключ, у комірку формули нічого не відображатиметься, див. знімок екрана:
4. Відтепер, якщо в комірку А300 буде введено значення більше 1, відразу буде відтворюватися певний звук.
примітки: У наведеному вище коді ви можете змінити звуковий файл wav відповідно до ваших потреб c: \ windows \ media \ шлях до файлу. Дивіться знімок екрана:
Відтворюйте звук, якщо значення комірки змінюється у певному стовпці з кодом VBA
Якщо ви хочете відтворити звук, якщо значення комірки змінюється в певному стовпці, ви можете застосувати такий код VBA.
1. Клацніть правою кнопкою миші вкладку аркуша, на якій ви хочете відтворити звук, коли значення змінюється в стовпці, а потім виберіть Переглянути код з контекстного меню та у відкритому вікні Microsoft Visual Basic для програм вікно, скопіюйте та вставте наступний код у порожній модуль:
Код VBA: відтворення звуку, якщо значення комірки змінюється в стовпці:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20161223
Dim xCell As Range
On Error Resume Next
If Target.Columns.Count = 1 Then
If Intersect(Target, Columns(3)) Is Nothing Then
Exit Sub
Else
For Each xCell In Columns(3)
On Error Resume Next
If (xCell.Value = Target.Value) And (xCell.Value <> "") Then
Beep
Exit For
End If
Next
End If
End If
End Sub
примітки: У наведеному вище коді номер 3 у сценарії Стовпці (3) - це номер стовпця, який потрібно відтворити звуком, коли значення змінюється в цьому стовпці.
2. А потім збережіть і закрийте це вікно коду, тепер, якщо значення комірки зміниться в третьому стовпці, буде відтворений системний звуковий сигнал.
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!