我得到错误 – 对象需要

我正在尝试写一个基于单元格input的macros代码移动到两个表单（服务或事件）之一。 我得到错误为'所需的对象'

任何帮助解决这个将不胜感激。

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 ，它只会 强制你在启动代码之前声明所有的variables 。 所以它会在这里检测到你的问题，因为它不会识别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