Question

我正在尝试编写一个基于单元格输入的宏代码移动到两个工作表（服务或事件）之一。我收到“需要对象”的错误

任何有助于解决此问题的帮助将不胜感激。

Sub GoSheetNext()

        Dim abcd As Integer
        abcd = ActiveWorksheet.Cells(4, 2).Value
        If abcd > 10 Then
            Sheets("service").Select
            ElseIf abcd < 10 Then
           Sheets("event").Select

        End If

End Sub

Answer 1

只是ActiveWorksheet不存在，它是ActiveSheet：

如@John Coleman所述，您应该在模块的顶部添加Option Explicit，它只会 强制您声明所有变量在能够启动代码之前。所以它会在这里检测到你的问题，因为它不会识别ActiveWorksheet！ ;）

Sub GoSheetNext()
Dim Test_Value As Integer
Test_Value = ActiveSheet.Cells(4, 2).Value

If Test_Value > 10 Then
    Sheets("service").Select
ElseIf Test_Value < 10 Then
    Sheets("event").Select
End If

End Sub

我收到错误 - 需要对象

1 个答案: