在EXCEL里通过VBA制作自动声音报警提示~~

发布网友发布时间：2022-06-02 03:56

共3个回答

热心网友时间：2023-10-27 23:57

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事件中。如有问题请联系

热心网友时间：2023-10-27 23:58

使用宏。Worksheet_Change事件在输入值时引发，Worksheet_Calculate事件在公式重算时引发。再设置Beep条件和格式条件可出现提示框

热心网友时间：2023-10-27 23:58

做个条件格式就行了。追问不好意思，能够麻烦老师帮忙写一个例子吗？？本人实在是相当菜鸟！！非常感谢~~

追答不需要写任何代码.
excel自带的功能,条件格式.具体很难说啊....你查下条件格式吧.