如何在 Excel 中满足条件时播放声音?
在 Excel 中,我们可以使用条件格式来根据需要设置和突出显示满足条件的单元格,但有时如果满足某个条件,您可能希望播放声音。例如,如果 A1 单元格的值大于 300,我希望播放一个声音。Excel 不支持此功能,本文将介绍一些 VBA 代码来解决这个任务。
使用 VBA 代码根据单元格值播放默认系统提示音
这里有一个方便的代码,当满足特定条件时可以播放默认系统提示音,请按以下步骤操作:
1. 按住 ALT + F11 键,然后打开 Microsoft Visual Basic for Applications 窗口。
2. 单击 插入 > 模块,并将以下代码粘贴到模块窗口中。
VBA 代码:根据单元格值播放默认系统提示音:
Function BeepMe() As String
Beep
BeepMe = ""
End Function
3. 然后保存并关闭此代码窗口,返回工作表,并输入此公式:=IF(A1>300,BeepMe(),"") 到包含要播放声音的值的单元格旁边的空白单元格中,然后按 Enter 键,公式单元格中不会显示任何内容,请参见截图:
4. 现在,如果 A1 单元格中的输入值大于 300,将播放默认系统提示音。
使用 VBA 代码根据单元格值播放自定义声音
如果您想播放其他声音而不是默认系统提示音,这里也有一个 VBA 代码可以帮助您。
1. 按住 ALT + F11 键,然后打开 Microsoft Visual Basic for Applications 窗口。
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(),"") 到包含要播放声音的值的单元格旁边的空白单元格中,然后按 Enter 键,公式单元格中不会显示任何内容,请参见截图:
4. 从现在开始,如果在 A1 单元格中输入的值大于 300,将立即播放特定声音。
注意:在上述代码中,您可以根据需要从 c:\windows\media\ 文件路径更改声音 wav 文件。请参见截图:
使用 VBA 代码在特定列中单元格值更改时播放声音
如果您希望在特定列中单元格值更改时播放声音,可以应用以下 VBA 代码。
1. 右键单击您希望在列中值更改时播放声音的工作表标签,然后从上下文菜单中选择 查看代码,在打开的 Microsoft Visual Basic for applications 窗口中,复制并将以下代码粘贴到空白模块中:
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
注意:在上述代码中,脚本 Columns(3) 中的数字 3 是您希望在该列中值更改时播放声音的列号。
2. 然后保存并关闭此代码窗口,现在,如果第三列中的单元格值发生更改,将播放默认系统提示音。
最佳办公效率工具
🤖 | Kutools AI 助手:基于智能执行、生成代码、创建自定义公式、分析数据并生成图表、调用 Kutools 函数等功能,彻底改变数据分析方式… |
热门功能:查找、高亮或标记重复项 | 删除空行 | 合并不丢失数据的列或单元格 | 四舍五入 ... | |
高级 LOOKUP:多条件 VLookup | 多值 VLookup | 多表查找 | 模糊查找 .... | |
高级下拉列表:快速创建下拉列表 | 从属下拉列表 | 多选下拉列表 .... | |
列管理器: 添加指定数量的列 | 移动列 | 切换隐藏列的可见状态 | 比较区域和列 ... | |
精选功能:网格聚焦 | 设计视图 | 增强编辑栏 | 工作簿与工作表管理器 | 资源库(自动文本) | 日期提取 | 合并数据 | 加密/解密单元格 | 按列表发送电子邮件 | 超级筛选 | 特殊筛选(筛选粗体/斜体/删除线...)... | |
排名前 15 的工具集: 12 种文本 工具(添加文本、删除特定字符等) | 50 多 种图表 类型(甘特图等) | 40 多种实用 公式(基于生日计算年龄等) | 19 种插入 工具(插入二维码、根据路径插入图片等) | 12 种转换 工具(小写金额转大写、汇率转换等) | 7 种合并与分割 工具(高级合并行、分割单元格等) | 还有更多... |
使用 Kutools for Excel 提升您的 Excel 技能,体验前所未有的高效。 Kutools for Excel 提供超过 300 种高级功能来提高生产力并节省时间。 单击此处获取您最需要的功能...
Office Tab 将标签式界面引入 Office,让您的工作更加轻松
- 在 Word、Excel、PowerPoint 中启用标签式编辑和阅读。
- 在同一窗口的新标签页中打开和创建多个文档,而不是在新窗口中进行操作。
- 将您的生产力提升 50%,每天为您减少数百次鼠标点击!