EXCEL实现音频预警，在线等

玉当自琢 · 发表于 2016-6-28 20:18

本帖最后由玉当自琢于 2016-6-28 20:54 编辑

想实现，当单元格满足条件时，指定音频文件发生警报。之前找到一个，但不是很理想，要手动在单元格内录入才能实现，函数变化，就不行。
希望，各位能帮忙弄一下。小弟在这里先谢了。

玉当自琢 · 发表于 2016-6-28 20:45

等待中=========

百度不到去谷歌 · 发表于 2016-6-28 22:02

excel的函数运行机制不是实时的所以只能通过ontime方法来代码实现
但是那样会有些副作用比如失去撤销功能表格会有些卡==

玉当自琢 · 发表于 2016-6-28 22:20

百度不到去谷歌发表于 2016-6-28 22:02
excel的函数运行机制不是实时的所以只能通过ontime方法来代码实现
但是那样会有些副作用比如失去撤销 ...

自然要用代码，我见他们是用，重算来实现的。可惜我VBA太差

百度不到去谷歌 · 发表于 2016-6-28 22:58

自动重算事件里写代码即可

玉当自琢 · 发表于 2016-6-28 23:00

百度不到去谷歌发表于 2016-6-28 22:58
自动重算事件里写代码即可

见笑了，就是弄了关天，没弄好，才来麻烦大家的。

有吾无痕 · 发表于 2016-6-28 23:03

这个有难度？？

玉当自琢 · 发表于 2016-6-28 23:04

百度不到去谷歌发表于 2016-6-28 22:58
自动重算事件里写代码即可

这是现在的代码，麻烦你能给改一下不？谢谢了。

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address <> "$U$7" Then Exit Sub
Dim i&, soundName As String
soundName = "F:\特效声音\警铃音效.wav" '指定声音文件
If Target.Value = "A" Then
PlayWaveSound soundName, 0
End If
End Sub

玉当自琢 · 发表于 2016-6-29 17:12

现以终于搞好了。还算理想。

筷子一双半 · 发表于 2018-7-28 18:22

玉当自琢发表于 2016-6-29 17:12
现以终于搞好了。还算理想。

可以分享下代码吗？我现在也需要类似代码

		自动登录	找回密码
密码			免费注册

[求助] EXCEL实现音频预警，在线等