excel - VBA Excel-如何在列的行总和超过特定值时显示警报？

Question

如上所示，我有两列。当用户输入一行并且列工资的总和大于 1000000时，如何显示警告框？

Answer 1

如果您未绑定到 VBA，则可以使用Data Validation. 在 Excel 2007 中，选择您的工资范围（假设列B），在功能区中单击Data并选择Data Validation。从那里输入以下公式：

=B:B<1000000

每当您输入一个使列的总和 > 1000000 的值时，这都会引发错误。如有必要，您还可以自定义错误：

Answer 2

这是对单个单元格执行此操作的方式，此代码需要位于该特定工作表的 vba 页面中，而不是模块中。我相信您可以对其进行调整以适应您的范围。

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Not Intersect(Range("A1"), Target) Is Nothing Then 
        If Range("A1").Value > 1000000
            MsgBox "A1 is greater than 1000000, ALERT! ALERT! ALERT!"
        End If 
    End If 
End Sub 

但非 VBA 解决方案，如条件格式或 @RocketDonkey 建议的其他数据验证是一个更好的主意。

Answer 3

假设“薪水”在 B 列。

Private Sub Worksheet_Change(ByVal Target As Range)
Total = Application.WorksheetFunction.Sum(Columns("B:B"))
If Total >= 1000000 Then
MsgBox "My message", vbCritical, "Error"
End If
End Sub