vba - Range类的Excel VBA激活方法失败

Question

我有一个我在不同的宏中使用的代码，并且现在无法正常工作，并且我不断收到运行时错误 1004 与激活一致:

Sub initialize()

dim MonthName  as string
dim MainWB  as workbook
dim VisualWS as worksheet

MonthName = cells (1,1).value
Set MainWB = ThisWorkbook
Set VisualWS = MainWB.Worksheets("Visual")

With VisualWS
    .Range("L1:W1").Find(MonthName, , xlValues, xlWhole).Activate
End With

MonthCol = ActiveCell.Column

End Sub

Answer 1

根据docs on Range.Find ，“如果未找到匹配项，则方法返回 Nothing。”

很可能，您的 .Range().Find() 方法没有找到任何匹配项，因此返回 Nothing , 它没有函数 Activate .

试试这个:

Dim findResult As Range
Set findResult = .Range("L1:W1").Find(MonthName, , xlValues, xlWhole)
If findResult <> Nothing then findResult.Activate