VBA：获得424运行时错误，需要对象，但是

Question

我收到424运行时错误，需要对象，但我直接从给我们的作业中复制了我的代码。我只是更改了范围名称，我已经三次检查拼写错误，我知道它们存在的事实。有谁知道为什么我一直得到一个对象错误？

Private Sub Worksheet_Activate()

    wsSheet3.Range("hello").Value = 12
    wsSheet3.Range("world").Value = 30

End Sub

Answer 1

只需删除wsSheet3并替换：

wsSheet3.Range("LeadTime").Value = 6
wsSheet3.Range("NoStockoutProb").Value = 0.7

with：

Range("LeadTime").Value = 6
Range("NoStockoutProb").Value = 0.7

（推荐，因为代码已经属于代码VBA所在的当前工作表）

或宣布您的表格如下：

Dim ws as Worksheet
Set ws = ThisWorkbook.sheets("YourSheetName")
ws.Range("LeadTime").Value = 6