方法單元格對象-工作表失敗

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

Sheets是Charts Sheets和Worksheets的集合，因此，如果您在引用sheets（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