用VBA添加正确声音和错误声音

wuhaowu

求老师用VBA添加2个声音，表格M4到M1000，如果判断是 True 就播放success.wav  ，如果是False 就播放Fcyc_wat.wav  .

shiruiqiang

直接 speek“正确”或“错误”，不是更直接吗？

wuhaowu

shiruiqiang 发表于 2024-5-24 14:52
直接 speek“正确”或“错误”，不是更直接吗？

具体该怎么弄老师，这个是仓库用扫描枪扫的错误就播放错误的声音，正确的就播放正确的声音，来给仓库人员能听到正确和错误的提示音。

LIUZHU

Application.Speech.Speak，这样写的吧，测试可以

LIUZHU

用VBA音乐文件的例子倒是没见过

wuhaowu

LIUZHU 发表于 2024-5-24 15:35
用VBA音乐文件的例子倒是没见过

1. #If VBA7 Then
   
2.     Private Declare PtrSafe Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
   
3. #Else
   
4.     Private Declare Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
   
5. #End If
   
6. 
   
7. 
   
8. Private Sub Alert(ByVal success As Boolean)
   
9.     Dim FlName
   
10.     If success Then FlName = "\success.wav" Else FlName = "\Fcyc_wat.wav"
    
11.     FlName = ThisWorkbook.Path & FlName
    
12.     sndPlaySound32 FlName, 0& '无窗口播放wav声音
    
13. End Sub
    
14. 
    
15. Private Sub Worksheet_Change(ByVal Target As Range)
    
16.     '扫码限定一次一个，填写到B列
    
17.     If Target.Column <> 2 Then Exit Sub
    
18.     If Target.Row = 1 Then Exit Sub
    
19.     With Target
    
20.         If .Value = "shanchushuju" Then
    
21.             Range("B1").Select
    
22.             Range("B:B").Clear
    
23.         End If
    
24.     End With
    
25.     原厂吊牌码 = [b1].Value
    
26.     Alert Target.Value = 原厂吊牌码
    
27. End Sub
    

复制代码

这段代码就是用的，这是之前论坛老师写的，现在想用在我的表格里。不知道老师能移到我的表格里。谢谢。

剑指E

.                             

wuhaowu

剑指E 发表于 2024-5-24 16:45
.

谢谢 老师的优秀作品.

wuhaowu

剑指E 发表于 2024-5-24 16:45
.

老师我选择左上角其它单号的时候弹出这个怎么弄的？

剑指E

wuhaowu 发表于 2024-5-24 17:29
老师我选择左上角其它单号的时候弹出这个怎么弄的？

控件放太边了