条件が満たされたときに音を鳴らすにはどうすればいいですか

Question

シリアル番号と資産タグをスキャンするためのスプレッドシートがあります。 2カラムとバーコードスキャナ。私は設定された条件付き書式設定を持っているので、もし任意のセルが設定された範囲内で重複した項目を取得した場合、フォントとセルの色が変わって明らかな間違いが生じます。

エラーが発生したときに音を鳴らして、重複が見つかったかどうかをパソコンで確認し続ける必要がある場合は、再生したいと思います。

セルが特定の値である場合にサウンドを再生する方法は多数ありますが、条件付きの書式設定が有効である場合はそうではありません。

何か提案がありがとうございます。

#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 

とVBのコードの後に​​

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

数値が大きいか等しいもう一つは、私はそれを取得する方法を考えることはできません重複、私は非常に新しい式を拾うために取得します。

ありがとうございます。

Answer 1

ここには、条件blnWannaHearDespasito = Trueのコードがあります。音楽はDespasitoです。 :)

Option Explicit 

Public Sub TestMe() 

    Dim blnWannaHearDespasito As Boolean 
    blnWannaHearDespasito = True 

    If blnWannaHearDespasito Then 
     Application.Speech.Speak "Despasitoooooo" 
    Else 
     Application.Speech.Speak ("No") 
    End If 

End Sub 

If blnWannaHearDespasito ThenはIf blnWannaHearDespasito = True Thenと同じであるが、それは短いです。 Ifは常にTrueまたはFalseと評価されます。

Speech.Speak Method in MSDN。