Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1") >= 10 Then Application.Speech.Speak "目前股價是" & Range("A1") & "元"
End Sub
當然也可以調用播放器來播放音頻文件,如妳曾看到的回答。