VBAでExcelにサウンドアラートを設定する方法｜初心者向けステップバイステップガイド

Microsoft Excelには、特定の条件が満たされたかどうかに応じてセルの色を変更するなど、条件付き書式を自動化できる便利なツールが標準で複数搭載されています。

しかし、Microsoftの「Visual Basic for Applications（VBA）」を使えば、Excelに音を鳴らさせることも可能だということを知っている人は意外と少ないものです。このチュートリアルでは、条件が満たされたときにExcelでアラームを鳴らす方法を詳しく解説します。

Excelに特定のトリガーをきっかけに音を再生させるには、大きく分けて2つのステップが必要です。まず、Excelが音を再生できるようにするカスタムコードを追加し、次に、どのイベントや値をトリガーとして音を鳴らすのかをExcelに指示します。

そのためには、Excel VBAマクロで新しいルールを作成する必要があります。難しそうに聞こえますが心配はいりません。やることは、以下のコードをコピー＆ペーストして、基本的なパラメータを少し変更するだけです。

Excelでアラームを作成する手順

1. Excelスプレッドシートを開きます。
2. Alt + F11キーを押して、「Microsoft Visual Basic for Applications」のウィンドウを開きます。
3. 「挿入」＞「標準モジュール」をクリックします。

4. 以下のコードを入力します。

Function MakeABeep() As String
    Beep
    MakeABeep = ""
End Function

5. 保存をクリックします。

6. 「ファイルの種類」ドロップダウンメニューから「Excel マクロ有効ブック」を選択します。

7. 任意のセルに「=MakeABeep()」と入力してEnterキーを押します。システム音が聞こえればコードは正常に動作しています。次のステップに進みましょう。

Excelでアラームをトリガーする方法

次に、特定のイベント発生時に音を鳴らしたいセルへ条件付きの数式を追加します。トリガーとなる条件は目的によって異なるため、さまざまなExcel関数の使い方を把握しておくと、思い通りに動作させやすくなります。

ここでは、セルA1の値が100を超えたら音を鳴らす基本例を紹介します。

1. ワークシート内の空いているセルを選択します。
2. 「=IF(A1>100,MakeABeep(),"")」と入力してEnterキーを押します。

これで、セルA1の値が101以上になった時点でシステム音が再生されます。

Excelでカスタムサウンドを再生する方法

システム音1種類に頼るだけでなく、複数のカスタムサウンドを再生させることもできます。こうすれば、条件ごとに異なるアラームを鳴らす設定が可能になります。

1. Excelファイルを開きます。
2. Alt + F11キーを押してMicrosoft VBAを起動します。
3. 「挿入」＞「標準モジュール」をクリックします。

4. ダイアログボックスに以下のコードを入力します。

#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 AlarmSound() As String
    Call PlaySound("C:\Users\User\Downloads\sound.wav", _
        0, SND_ASYNC Or SND_FILENAME)
    AlarmSound = ""
End Function

5. 「C:\Users\User\Downloads\sound.wav」の部分を、使用したいサウンドファイルの保存場所に置き換えます。パスの取得方法は、エクスプローラーで対象フォルダーを開き、アドレスバーを右クリックして「アドレスのコピー」を選択するだけです。

6. Ctrl + Sキーでファイルを保存します。
7. 「ファイルの種類」ドロップダウンリストから「Excel マクロ有効ブック」を選択します。

8. 任意の空白セルに条件式を入力します。たとえば「=IF(A1>100,AlarmSound(),"")」のように記述します。前述の例と同様に、セルA1の値が100を超えるとアラームが鳴ります。

補足：このテンプレートコードでは「AlarmSound」という関数名を使用していますが、「MakeABeep」と同じく、名前は自由に決められます。たとえば、条件ごとに複数のアラームを鳴らし分けたい場合は「Alarm1」「Alarm2」などと命名するとよいでしょう。

Excelで作成できるアラームの種類

Excelは非常に強力なツールであり、データを思い通りの形式に整えるための数多くの数式が用意されています。これらのルールを活用するには、「ホーム」タブをクリックし、「条件付き書式」を選択します。

アラームを鳴らすようExcelに指示できるデータ条件の例をいくつか紹介します。

1. 値が別の値と等しい・より大きい・より小さい・一定の範囲内にある場合
2. セルの内容が重複している場合
3. セルが特定の日付（期限日や有効期限など）を参照している場合
4. 値が特定のパーセンタイルに該当する場合（上位10%や平均以上など）
5. セルが特定の色になっている場合（既存の条件付き書式ルールと組み合わせると便利）

データ管理は今まで以上に簡単に

Microsoft OfficeのExcelは、長年にわたり市場で最も強力なデータ検証・分析ツールのひとつです。データを見やすく整理して表示したい場合も、条件が満たされたときに通知を受け取りたい場合も、Excelには必要な機能がすべて揃っています。ぜひ本記事の手順を参考に、自分専用のサウンドアラートを設定してみてください。