excel - 检查整行是否具有值 0

Question

我有一个 Excel 工作表“Sheet1”，其中 A1 中的周数。
我在 A 列中有另一张带有周数的工作表“Sheet2”。B 到 Z 列包含与周数对应的数字。

现在我想用 VBA 检查“Sheet2”上 B 到 Z 列的整行是否包含值 0(零)

我怎样才能做到这一点？

我有这个代码来选择对应于工作表 1 上的周数的特定行:

Dim WeekNr As Long
WeekNr = Sheets("Sheet1").Range("A1")
Sheets("Sheet2").Cells(WeekNr + 2, 2)

但我不知道如何检查每个单元格是否包含从 B 到 Z 的零。

Answer 1

你有两个不同的查询，所以我很困惑。同时解决...

i want to check with VBA if the entire row, column B to Z on "Sheet2" contains the value 0 (zero)

非VBA解决方案

=COUNTIF(B1:Z1,0)>0

VBA解决方案

Dim ws As Worksheet
Set ws = Sheets("Sheet2")

If Application.WorksheetFunction.CountIf(ws.Range("B1:Z1"), 0) > 0 Then
    MsgBox "Found"
Else
    MsgBox "not Found"
End If

But i don't know how to check if every cell contains a zero from B to Z.

非VBA解决方案

=IF(SUM(B1:Z1)>0,"Not Every Cell has 0","Cell has 0 or blank values")

VBA解决方案

Dim ws As Worksheet
Set ws = Sheets("Sheet2")

If Application.WorksheetFunction.Sum(ws.Range("B1:Z1")) > 0 Then
    MsgBox "Not Found"
Else
    MsgBox "Found"
End If

注意 : 如果你只想检查 0而不是空白单元格，那么您也可以使用它

非VBA解决方案

=COUNTIF(B1:Z1,0)=25

VBA解决方案

Dim ws As Worksheet
Set ws = Sheets("Sheet2")

If Application.WorksheetFunction.CountIf(ws.Range("B1:Z1"), 0) = 25 Then
    MsgBox "All cells have 0"
Else
    MsgBox "All cells do not have 0"
End If