Excel警告系统的想法

问题描述 投票:0回答:2

我试图在Excel中创建一个警告系统,但我不知道哪个功能可以帮助。

比方说,我想要一个系统,当单元格数超过5时,系统会提醒我。即使信号低于5,信号也会保持开启状态。

单元格A1是RTD,它是一个经常变化的数字。

早上9点,这个数字是5。

上午10点,它变为10。

上午11点,它又回到了5点。

我怎么能有一个警告系统,即使在上午11点仍然保持通知我这个号码已经超过5个。“警告”将保持打开,直到我关闭它。

甚至理想情况下,Excel可以弹出或某种类型来提醒我这个警告。

感谢致敬

GYX

excel vba excel-vba warnings
2个回答
1
投票

尝试数据验证列表。

例如,如果您的购买日期在单元格A1中,并且您的返回日期在单元格B1中,则对单元格B1执行以下操作:

(步骤假设您使用Excel 2007)

  1. 选择Cell B1
  2. 转到数据工具栏
  3. 选择数据验证
  4. 对于“设置”标签,选择“自定义”
  5. 在公式栏中,键入公式“= B1> A1”
  6. 在“错误警报”选项卡上,选择警告(允许输入但在不满足条件时显示消息框)
  7. 对于标题,键入“错误”
  8. 对于错误消息,键入“返回日期不能在购买日期之前”

应该做你想要的......没有代码!!!!可以应用相同类型的逻辑来执行高级消息传递,只需要使用一些AND或OR函数更新步骤5中的公式,您就可以了。


0
投票

首先,为值为大于5的系统警报设置指定单元格编号的名称:

  1. 单击要选择的单元格。
  2. Name Box中(在Excel窗口的左上角,公式栏的左侧)键入所需的名称,例如Alert

在“工作簿”窗口中按Alt + F11

将打开Microsoft Visual Basic For Application窗口。

在左侧,在项目资源管理器框中,选择您指定的工作表。 (例如:Sheet1)

在下面输入代码(这里也用状态栏警告你)

Private Sub Worksheet_Change(ByVal Target As Range)
    If ActiveSheet.Name = Me.Name Then
        If IsNumeric(Range("Alert").Value) Then
            If Range("Alert").Value > 5 Then
                MsgBox "The value is larger than 5", vbCritical + vbOKOnly, "Alert"
                Application.StatusBar = "Warning: the sensitive cells value is larger than 5"
            Else
                Application.StatusBar = "The sensitive cell is approved"
            End If
        Else
            Application.StatusBar = ""
        End If
    End If
End Sub
© www.soinside.com 2019 - 2024. All rights reserved.