单元格满足一定的条件后弹窗语音提示？

蛊惑丶人生

求助，怎么让T25-B2<=30分钟时S25的值改变背景色并播放自定义的语音提示？？？？

爱疯

Private Sub Worksheet_Change(ByVal Target As Range)
    If [t25] - [b2] <= 1 / 24 / 24 * 30 Then
        Application.Speech.Speak "支付宝到账500万元"
        Range("s25").Interior.ColorIndex = 6 '黄颜色
    Else
        Range("s25").Interior.ColorIndex = xlNone
    End If
End Sub
测试2.rar (35.81 KB, 下载次数: 22)

2019-10-15 08:38 上传

点击文件名下载附件

蛊惑丶人生

爱疯 发表于 2019-10-15 08:38
Private Sub Worksheet_Change(ByVal Target As Range)
    If [t25] -

你好朋友，还有好多要咨询的~如何判断工作表活动区域内是否有红色的单元格？有则弹窗并播放提示音

爱疯

建议用小题的方式，一个贴发一个小题，懂了后，再求助别的问题。
通过1个小问题的方式，好让会的和有时间的朋友来回复，应该会更快被解决。