「Object required」error 424

Question

我有2張List和Comments。 List被自動從進口和格式數據

我想跟蹤多久，我們通過雙擊該ID細胞(Range("List!$B$6:$B$22"))使用的每個對象在表List另一片更新，但因爲數據總是在不斷變化的ID的舉動周圍。 Comments這是一個所有可能的ID和它的評論，但沒有導入值的列表將是一個很好的地方來存儲計數數據和上次使用日期。

Private Sub WorkSheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 


If InRange(Target, Range("List!$B$6:$B$22")) Then 
    Set c = Worksheets("Comments").Range("$A$2:$A$500").Find(Target.Value) 
    If Not c Is Nothing Then 
      Set c.Offset(0, 1) = c.Offset(0, 1) + 1 
      Set c.Offset(0, 2) = Date 
    End If 
End If 
Cancel = True 
End Sub 

Answer 1

無需設置

Private Sub WorkSheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 
If Not Intersect(Target, Range("$B$6:$B$22")) Is Nothing Then 
    Set c = Worksheets("Comments").Range("$A$2:$A$500").Find(Target.Value) 
    If Not c Is Nothing Then 
      c.Offset(0, 1) = c.Offset(0, 1) + 1 
      c.Offset(0, 2) = Date 
    End If 
End If 
Cancel = True 
End Sub