方法細胞對象-Worksheet失敗

Question

我有一個功能，應經常運行：

Public Function FindNumberofhandle(stsmenthandle As String) As Long 
Dim r As Long 
Dim LastUsedRow As Long 
LastUsedRow = Worksheets(2).Cells.Find(What:="*", SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlFormulas).Row 
For i = 1 To LastUsedRow 
    If ActiveWorkbook.Sheets(2).Cells(i, 2).Value = stsmenthandle Then 'ERROR HERE 
     r = i 
    End If 
Next i 
FindNumberofhandle = r 
End Function 

我收到此錯誤：

run time error -2147417748(80010108) 
Method Cells of Object Worksheet failed 

我應該怎麼做才能解決這個問題？

Answer 1

我認爲你需要

ActiveWorkbook.Worksheets(2).Cells(i, 2).Value = stsmenthandle 

牀單更換

ActiveWorkbook.Worksheets(2).Cells(i, 2).Value = stsmenthandle 

是圖表工作表和工作表的集合，所以如果圖表工作表是越來越拿起當你引用表（2）那麼屬性.cells將不起作用。

讓我們知道這是否有效，我也很好奇。

忽略細胞誤差值：

If Not iserror(ActiveWorkbook.Worksheets(2).Cells(i, 2)) then 
    If ActiveWorkbook.Worksheets(2).Cells(i, 2).Value = stsmenthandle Then 
     r = i 
    End If 
End if