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

Question

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

Answer 1

假设“工资”是在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 

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

如果您没有绑定到VBA，则可以使用Data Validation来完成此操作。在Excel 2007中，选择您的工资范围（比如列B），单击功能区中的Data，然后选择Data Validation。从那里，输入以下公式：

：

=B:B<1000000 

，这将抛出你输入一个值，使其总量列> 1000000的错误任何时候，你也可以根据需要自定义错误