“需要对象”错误 424答案

【问题标题】："Object required" error 424“需要对象”错误 424
【发布时间】：2014-04-15 12:22:52
【问题描述】：

我有 2 张纸 List 和 Comments。 List 是从另一个导入和格式化数据的工作表自动更新的

我想通过双击 ID 单元格(Range("List!$B$6:$B$22")) 来跟踪我们在工作表 List 中使用每个对象的频率，但因为数据总是在改变 ID 的移动。 Comments 是所有可能的 ID 及其 cmets 的列表，但不是导入的值，这将是存储计数数据和上次使用日期的好地方。

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

【问题讨论】：

标签： excel find offset vba

【解决方案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

【讨论】：