vba - 检查范围内的所有值是否相同

Question

当电子表格上某个范围内的所有值都为零时，我需要显示一个消息框。目前我正在使用以下代码:

Dim Cell As Range
For Each Cell In Range("E17:E25")
    If Cell.Value = "0" Then
    MsgBox ("If hardware is required, please  manually populate the corresponding sections.")
    End If
Next

该消息已显示，但显示了 9 次(对于范围内的每个单元格)。我需要的是检查 E17:E25 范围内的所有值是否为零，然后仅显示一个消息框。有什么想法吗？

谢谢。

Answer 1

您想知道是否所有值都为 0？你可以这样做

If WorksheetFunction.Sum(Range("E17:E25")) = 0 then MsgBox("如果需要硬件，请手动填充相应部分。")

不需要循环。

编辑:如果您想检查任何其他数字，并且所有单元格都是该数字，您可以执行以下操作:

Sub t()
Dim rng As Range
Dim myNum as Long
myNum = 1
Set rng = Range("B3:B6")
If WorksheetFunction.CountIf(rng, myNum) = rng.Count Then MsgBox ("All the same!")
End Sub