方法单元格对象 - 工作表失败

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) 时选择图表 sheet，则属性 .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

方法单元格对象 - 工作表失败

Method Cells object -Worksheet failed

excel

vba

cell