"필요한 개체"오류 424

Question

두 장의 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