Excelで条件が満たされた場合にサウンドを再生するにはどうすればよいですか？

Excelでは、条件付き書式を適用して、必要に応じてセルを書式設定および強調表示し、条件を満たしますが、条件が満たされた場合にサウンドを再生したい場合があります。 たとえば、A1のセル値が300より大きい場合、サウンドを再生したいとします。 Excelはこの機能をサポートしていません。この記事では、このタスクを解決するためのVBAコードをいくつか紹介します。

VBAコードを使用して、セル値に基づいてデフォルトのシステムビープ音を再生します

VBAコードを使用してセル値に基づいてカスタムサウンドを再生する

VBAコードを使用して特定の列のセル値が変更された場合にサウンドを再生する

VBAコードを使用して、セル値に基づいてデフォルトのシステムビープ音を再生します

特定の条件が満たされたときにデフォルトのシステムビープ音を鳴らすための便利なコードを次に示します。次のようにしてください。

1. 押したまま Alt + F11 キーを押すと、 アプリケーション向け Microsoft Visual Basic 窓。

2に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュール 窓。

VBAコード：セル値に基づいてデフォルトのシステムビープ音を再生します。

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

3。 次に、このコードウィンドウを保存して閉じ、ワークシートに戻って、次の数式を入力します。 = IF（A1> 300、BeepMe（）、 ""） セルの横の空白のセルに、サウンドの再生に基づく値が含まれている場合は、を押します。 入力します キーを押すと、数式セルに何も表示されません。スクリーンショットを参照してください。

4。 そして、セルA1に入力された値が300より大きい場合、デフォルトのシステムビープ音が再生されます。

VBAコードを使用してセル値に基づいてカスタムサウンドを再生する

デフォルトのシステムビープ音以外の音を再生したい場合は、ここでもVBAコードを使用できます。

1。 を押し続けます Alt + F11 キーを押すと、 アプリケーション向け Microsoft Visual Basic 窓。

2. クリック インセット > モジュール、次のコードをに貼り付けます モジュール 窓。

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。 今後、セルA300に1以上の値を入力すると、特定の音が同時に再生されます。

ノート：上記のコードでは、サウンドwavファイルを必要に応じて変更できます。 c：\ windows \ media \ ファイルパス。 スクリーンショットを参照してください：

VBAコードを使用して特定の列のセル値が変更された場合にサウンドを再生する

特定の列でセルの値が変化した場合にサウンドを再生する場合は、次のVBAコードを適用できます。

1。 列の値が変化したときにサウンドを再生するシートタブを右クリックして、[ コードを表示 コンテキストメニューから、開いた状態で アプリケーション用のMicrosoftVisual 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

Note：上記のコードでは、番号 3 スクリプト内 列（3） この列の値が変化したときにサウンドを再生する列番号です。

2。 次に、このコードウィンドウを保存して閉じます。これで、XNUMX番目の列のセル値が変更されると、デフォルトのシステムビープ音が鳴ります。