vba - 如何让excel在满足条件时播放声音

Question

我有一个电子表格，用于扫描序列号和 Assets 标签。2 列和条形码扫描仪。我设置了条件格式，因此如果任何单元格在设置范围内获得重复条目，它会更改字体和单元格颜色，因此显然犯了错误。

我想在发生错误时播放声音，以便不再需要不断回头查看电脑以查看是否已找到重复项。

我发现了多种方法可以在单元格为特定值时播放声音，但如果应用了 Excel 条件格式则无法播放声音。

如有任何建议，我们将不胜感激。

#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(),"") sound基础上，然后按回车键，公式单元格中不会显示任何内容，参见截图:

如果一个数字大于或等于另一个数字，则效果很好，我不知道如何让它拾取重复项，我对 Excel 公式非常陌生。

感谢您的任何提示。

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 .