使用偏移量（需要运行时错误 424 对象）

Question

我希望程序在“U34:U99”列中查找“1”。并在“1”的订单号上检查某些工作表中的值。例如：第一个“1”（Лист1），第二个“1”（Лист2）…… 但是错误跳出（需要运行时错误 424 对象）：如果 С.Offset(0, -5).Value = 1 And C.Value = 1 Then

    Sub обща()
    'для ситуации

    Dim k As Long, n As Long
    Dim C As Range
    Dim Diapozon As Range
    Set Diapozon = Range("U34:U99")
    k = 0
    n = 0
    For Each C In Diapozon.Rows

    If С.Offset(0, -5).Value = 1 And C.Value = 1 Then
    k = k + 1
    If ThisWorkbook.Sheets("Лист" & k & "").Range("R100").Value = 1 Then
    n = n + 1
    End If
    End If

    Next C
    MsgBox n

    End Sub

Answer 1

这是有效的：

Option Explicit

Sub TestMe()

    Dim k           As Long
    Dim n           As Long
    Dim C           As Range
    Dim Diapozon    As Range

    Set Diapozon = Range("A1:A10")

    k = 0
    n = 0

    For Each C In Diapozon.Rows

        If C.Offset(0, 5).Value = 1 And C.Value = 1 Then
            k = k + 1
            If ThisWorkbook.Worksheets("Test" & k).Range("B10").Value = 1 Then
                n = n + 1
            End If
        End If

    Next C
    Debug.Print n

End Sub

我已将范围、工作表名称和 MsgBox 更改为 debug.print。可能的错误是您没有 ListN 或其他东西...

使用偏移量（需要运行时错误 424 对象）

Using Offset (Runtime error 424 object required)

excel

vba

runtime-error

offset