excel - 设置范围不适用于内部的 Cells()

Question

我正在编写一个代码，在其中设置这两个范围:

Set ColorSAP = SAP_Comparison.Range("C3:AG19")
Set ColorPlan = Production_Plan.Worksheets("Schedule").Range(Cells(4, 
MonthS), Cells(20, (MonthE - 1)))

MonthS和 MonthE是整数。
Production_plan是一本工作簿。
SAP_Comparison是一本工作簿。

我不知道为什么第二个错误，但第一个错误，因为它们非常相似。
我什至测试过更简单的案例，这种用法确实有效。

Error: Run-Time '1004'
Application-defined or object-defined error.

我该如何解决这个问题？

Answer 1

Unqualified Cells 是指 ActiveSheet，如果不是“Schedule”，它将引发错误

你需要类似的东西

With Production_Plan.Worksheets("Schedule")
    Set ColorPlan = .Range(.Cells(4, MonthS), .Cells(20, (MonthE - 1)))
End With

或者

Dim sht As Worksheet

Set sht = Production_Plan.Worksheets("Schedule")
Set ColorPlan = sht.Range(sht.Cells(4, MonthS), sht.Cells(20, (MonthE - 1)))

What is the default scope of worksheets and cells and range?