带有 VBA 的 Excel MsgBox 用于多个链接范围

Question

我需要一些关于 excel 问题的帮助。

它是以下两个问题的组合：

1) Excel - Popup message with sound alert when cell value meets certain criteria

2) VBA code to show Message Box popup if the formula in the target cell exceeds a certain value

在 Sheet1 中，我有一系列产品和销售数据。 示例：Sheet1

在 Sheet2 中，我有多列 sumif() 函数。示例：Sheet2。 它包含 (A:A) 中的一列名称和 (B:B) 和 (C:C) 中的数据，这些数据链接到其他工作表中的单元格。当 B 列中任何单元格的值超过 20 或 C 列超过 40 时，我想要一个弹出通知说（“A 列中的文本”已售出 > 20）。

例如：如果“B”列中的一个单元格值更新为 33（>20）并且“A”列中相应的单元格值包含文本为“Charlie” , excel 表应该弹出消息说“查理出售是> 20”。

下面的 VBA 代码完成了这个如果它是原始数据。但是，当单元格链接到其他工作表中的数据时，它就不起作用了，就像这个工作簿一样。

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.column = 2 and target.value > 1 Then
       MsgBox target.offset(0,-1).text & " sold is > 20"
   End If
End Sub

此替代代码适用于从其他工作表链接的数据，但它仅适用于特定单元格，而不适用于整个列。

Private Sub Worksheet_Calculate()

If Sheets("Sheet2").Range("B2").Value > 20 Then
    MsgBox "B2 is >20", vbOKOnly
End If

End Sub

我想要实现的是这个：当我在 Sheet1 中输入我的原始数据时，Sheet2 列 (B:B) 和列 (C:C) 中的数字会得到更新。一旦 Sheet2 列 (B:B) 中的任何单元格超过 20 或列 (C:C) 超过 40，就会弹出通知链接回 A 列文本，例如 MsgBox target.offset(0,-1).text & " sold is > 20"。有没有办法结合上述两个代码来实现这一点？ 也欢迎任何替代解决方案，谢谢！

Answer 1

比较汇总表中的所有总和

Private Sub Worksheet_Calculate()

    Dim RangeToCheck As Range
    Dim Cell As Range
    Set RangeToCheck = Sheets("Sheet2").Range("B2:B5") 'See comment #1

    For Each Cell In RangeToCheck.Cells
        With Cell
            If .Value2 > 20 Then
                MsgBox "Product: " & .Offset(columnoffset:=-1).Value2 & _
                " in cell: " & .Address & " is " & .Value2 & ">20", vbOKOnly
            End If
        End With
    Next

End Sub

评论

1. 我建议将 Sheet2 上的范围转换为 Excel 表格，并改用 ListObject 和 Listcolumns。
2. 题外话提示：您也可以使用一些计数器，将范围放入VBA数组并循环遍历数组，这将比一个接一个地引用工作表单元格更快。见Writing efficient VBA UDFs (Part 1)。