Excel VBA - 如果返回 false 的语句返回 #value

Question

我正在开发一个更大的 Excel 宏，但我稍微简化了我的代码并发现了我的问题所在。在下面的 if 语句中，我可以将 rng 更改为使语句为真的单元格，并且它工作正常。但是，如果我将其更改为将返回 false 的单元格（或范围内的单元格），它将返回 #value 错误。我对 VBA 很陌生，所以我做错了什么？

Function count_same(column As Range, row As Range)

Dim rng As Range
Dim cell As Range
Dim result As Long
result = 0

Set rng = Worksheets("Install together 2").Range("f10")

For Each cell In rng.Cells

If WorksheetFunction.IsNumber(WorksheetFunction.Search(row.Value, cell.Value)) Then
    result = result + 1
End If

Next cell

count_same = result

End Function

Answer 1

尝试这样的事情，而不是我以前的答案。如果我正确理解您的需求，这应该可以解决问题。它需要一个输入范围（您要搜索的范围）和一个带有搜索值的输入范围。然后它返回输入范围内该子字符串的实例。

在代码的顶部，我包含了 Application.Volatile，它会在工作表更改时强制它重新计算。您可以将其注释掉。

Function count_same(InputRange As Range, RowValue As Range, ColValue as Range)
    Application.Volatile

    Dim result As Long
    result = 0

    Dim cell As Range
    For Each cell In InputRange.Cells
        If InStr(1, RowValue.Value, cell.Value, vbTextCompare) > 0 And InStr(1, ColValue.Value, cell.Value, vbTextCompare) > 0 Then
            result = result + 1
        End If
    Next cell

    count_same = result
End Function

Answer 2

试试这样的：

Function count_same(column As Range, row As Range)

Dim rng As Range
Dim cell As Range
Dim result As Long
result = 0

Set rng = Worksheets("Install together 2").Range("f10")

For Each cell In rng.Cells
    If Not IsError(WorksheetFunction.Search(Row.Value, cell.Value)) Then
        If WorksheetFunction.IsNumber(WorksheetFunction.Search(row.Value, cell.Value)) Then
            result = result + 1
        End If
    End If

Next cell

count_same = result

End Function

从中学习的做法是，我们可以预测潜在的错误。然后我们要做的是检查 IsError 函数的逆函数。如果是错误，IsError 将返回 TRUE。如果它不是错误，我们只想运行 Worksheet 函数。通过If Not IsError，我们实际上是在说“如果这不是错误，那么”。

在您学习 VBA 时，尽量避免出现错误，而不是使用 On Error Resume Next 或 GoTo，因为这些在您刚开始时工作得很好，但在您深入了解时就无法使用（而且您将每次看到 GoTo 或 On Error 语句时都会诅咒自己）。

Answer 3

您可以在下一个错误恢复中使用并进行一些错误检查。您也有列作为范围，但不要在方法中使用它，因此您可以将其删除。

Public Function count_same(row As Range)
On Error Resume Next
Dim rng As Range
Dim cell As Range
Dim result As Long
result = 0

Set rng = ThisWorkbook.Sheets("Install together 2").Range("F10")

For Each cell In rng.Cells

    If WorksheetFunction.IsNumber(WorksheetFunction.Search(row.Value, cell.Value)) Then
        If Err.Number <> 0 Then
            Err.Clear
        Else
            result = result + 1
        End If
    End If

Next cell

count_same = result

End Function