VBAd出视窗是同时发出声音

最简单的方法就是在你红框的位置加个BEEP就行了。如果你觉得提示声音不太长。就加个循环。比如

Dim tt, dd

For i = 1 To 4

tt = Timer + 0.4

Beep

'下面这个循环是用来延长时间的，否则虽然你想发出4次声音，但是不做延长的话，你只能听到一声提示

Do While dd <= tt

dd = Timer

Loop

Next i

Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next

Dim max As Single, min As Single

Dim s As String, d As Single

If Cells(1, 256) = "" Then

s = InputBox("请输入限制最大数和最小数" &Chr(13) &"两数之间用符号“/”分隔", "提示信息")

max = Val(s)

min = Val(Mid(s, InStr(s, "/") + 1))

If max <min Then d = max: max = min: min = d

Cells(1, 256) = max

Cells(2, 256) = min

s = MsgBox("你输入的限制数保存在最后一列单元格中" &Chr(13) &"最大数为：" &max &Chr(13) &"最小数为：" &min, , "注意")

Else: max = Cells(1, 256): min = Cells(2, 256)

End If

If Val(Target.Value) >max Or Val(Target.Value) <min Then

Target.Font.ColorIndex = 3

Target.Font.Bold = True

Beep

End If

End Sub

以上程序能满足你的要求，注意程序不能粘贴到宏代码里面运行，它是在表格的Change事件中。如有问题请联系

---