對象變量或與塊變量未設置91 VBA

Question

我正在應的數據傳送到名爲「皮斯托亞」不同的片的宏並且是這樣的碼：

Sub SetCounter(ByVal counter As Double, ByVal product As String) 
Dim ws As Worksheet 
On Error Resume Next 
Sheets("pistoia").Activate 
Set ws = ActiveWorkbook.Sheets("pistoia") 
On Error GoTo 0 
    If ws Is Nothing Then 
     MsgBox "pistoia sheet not found" 
    Else 
     If ws.Name = ActiveWorkbook.ActiveSheet.Name Then 
      Dim index_destRow As Integer, index_destColumn As Integer, search_product As Range 
      Rows(2).Find(What:="Nome commerciale", LookAt:=xlWhole, LookIn:=xlValues).Offset(2).Select 
     Else 
      MsgBox "pistoia sheet found but is inactive" 
     End If 
    End If 
End Sub 

誤差在提高該行：「行（2）。找到（什麼：=」Nome commerciale「，LookAt：= xlWhole，LookIn：= xlValues）.Offset（2）。選擇」，我認爲錯誤是由於激活新的工作表，因爲在前面的宏中，「在起始頁上」我在導致錯誤的行中執行相同的操作。有什麼建議麼？

Answer 1

這表明我的價值沒有被發現，因此它試圖選擇一些不存在的東西。例如。設置範圍變量來檢查找到的值。通過查找，還可以指定一些其他參數，以防它們不符合您的預期。

Sub SetCounter(ByVal counter As Double, ByVal product As String) 

    Dim ws As Worksheet, index_destRow As Integer, index_destColumn As Integer, search_product As Range 
    Dim rFind As Range 

    On Error Resume Next 
    Sheets("pistoia").Activate 
    Set ws = ActiveWorkbook.Sheets("pistoia") 
    On Error GoTo 0 

    If ws Is Nothing Then 
     MsgBox "pistoia sheet not found" 
    Else 
     If ws.Name = ActiveWorkbook.ActiveSheet.Name Then 
      Set rFind = ws.Rows(2).Find(What:="Nome commerciale", LookAt:=xlWhole, LookIn:=xlValues, MatchCase:=False, SearchFormat:=False) 
      If Not rFind Is Nothing Then 
       rFind.Offset(2).Select 
      Else 
       msgbox "Value not found" 
      End If 
     Else 
      MsgBox "pistoia sheet found but is inactive" 
     End If 
    End If 

    End Sub