如果 Range 包含任何值，VBA 返回 1 - 不工作

Question

这里我遇到问题返回 1010 逻辑测试。它应该检查范围内的每个单元格，如果单元格包含数字，则退出循环。如果范围内的任何单元格包含值，则返回 1，如果所有单元格为空白，则返回 0。我尝试了工作表函数 CountIf、CountA、Not IsEmpty、IsText 但结果不同似乎空白单元格包含不可见的字符串。 IsNumeric 适用于单个单元格，但当包含范围时它不起作用。我还注意到我第一次运行它时会产生结果，第二次运行会导致错误。请帮忙，我的范围需要是可变的。

Sub Try()
Dim path As String, myfile As String, file As String
Dim wb As Workbook
Dim i As Integer
Dim NCell As Range
Dim IsNumber As Boolean

path = "E:\SouthNorth\"
myfile = path & "1979.xls"
file = Dir(myfile)

Set wb = Workbooks.Open(Filename:=path & file)
wb.Activate 'necessary?
i = 24
'here object defined error
For Each NCell In Worksheets("Sheet1").Range(Cells(i, 2), Cells(i, 4)) 
   If IsNumeric(NCell) Then
        IsNumber = True
        If IsNumber = True Then Exit For
    End If
Next NCell
Select Case IsNumber
Case True
wb.Worksheets("Sheet2").Range("B" & i) = 1
Case False
wb.Worksheets("Sheet2").Range("B" & i) = 0
End Select
End Sub

Answer 1

我认为这属于评论，但我不允许...

你提到你的问题是当你尝试运行它 秒 time，这意味着错误可能来自vba试图打开 您的文件已经打开时。其他一切似乎都有效

忽略这一切，这是我最初的“答案”，但我不知道如何格式化罢工，我不想全部删除。

试试这个代码

Sub Try()
    Dim wb As Workbook
    Dim path As String
    Dim i As Integer, j As Integer
    Dim NCell As Range

    path = "E:\SouthNorth\1979.xls"

    Set wb = Workbooks.Open(Filename:=path)
    wb.Activate
    i = 24
    Sheets("Sheet2").Range("B" & i).Value = 0

    For j = 2 To 4
        Set NCell = Sheets("Sheet1").Cells(i, j)
        If IsNumeric(NCell.Value) Then
            Sheets("Sheet2").Range("B" & i).Value = 1
            Exit For
        End If
    Next j

End Sub

Answer 2

您可以使用 'CountBlank' - 如果列范围始终为 3 个单元格，那么您可以声明一个布尔值并从 3 中减去空白计数，如果所有单元格为空白或任何大于 0（真) 如果至少有一个单元格被占用：

Dim x As Boolean
    x = 3 - Application.WorksheetFunction.CountBlank(Worksheets("Sheet1").Range(Cells(i, 2), Cells(i, 4)))
    MsgBox x

如果它特定于数值（例如忽略文本），那么只需添加到您的 IsNumeric 行：

If IsNumeric(ncell) And Not ncell = "" Then

Answer 3

首先，让定义 Range 对象的 Cells 没有父工作表是一种非常糟糕的做法。请参阅Is the . in .Range necessary when defined by .Cells? 了解更多信息。

Worksheets("Sheet1").Range(Cells(24, 2), Cells(24, 4))

您似乎特别想要数数。引入工作表的 COUNT 函数即可。

With Worksheets("Sheet1")
    With .Range(.Cells(24, 2), .Cells(24, 4))
        Worksheets("Sheet2").Range("B" & i) = Abs(CBool(Application.Count(.Cells)))
    End With
End With

您还可以通过使用 xlCellTypeConstants 和 xlNumbers 的 SpecialCells 严格留在 VBA 中。

Dim rng As Range

With Worksheets("Sheet1")
    On Error Resume Next
    Set rng = .Range(.Cells(24, 2), .Cells(24, 4)).SpecialCells(xlCellTypeConstants, xlNumbers)
    On Error GoTo 0
    If Not rng Is Nothing Then
        Worksheets("Sheet2").Range("B" & i) = 1
    Else
        Worksheets("Sheet2").Range("B" & i) = 0
    End If
End With