수식이 제대로 작동하지 않게하는 코드

Question

동일한 통합 문서에서 직원 이름 인 데이터와 워크 시트라는 워크 시트가 있습니다.

데이터 워크 시트에는 개별 직원 워크 시트 요약이 들어 있습니다.

데이터 워크 시트 열에서 A는 작업자 이름이고 B 열은 지난 30 일 동안 배정 된 작업이고 C 열은 지난 7 일 동안 배정 된 작업이고 D 열은 지난 1 시간 작업 배정 된 열이며 E 열은 마지막 작업이 지정된 날짜/시간.

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Not Application.Intersect(Target, Columns("B:B")) Is Nothing Then 
     Target.Offset(0, 3).Value = Format(Now, "mm dd yyyy h:mm") 
    End If 
End Sub 

: 코드 개별 직원의 워크 시트에서

는, 다음과 같은 코드가 뭔가 열 B에 입력 될 때, 날짜와 시간이 자동으로 다음

E.

컬럼에 입력 할 수있다

내 문제는 그 코드를 입력했기 때문에 B, C, D 및 E 열의 데이터 시트에있는 정보가 올바르지 않다는 것입니다.

개별 직원 시트의 정보는 계산되지 않습니다.

코드를 추가하기 전에 수식이 작동했습니다.

예를 들어 - Amy는 코드를 추가하기 전에 지난 30 일 동안 3 번의 보고서를 받았습니다.

코드를 추가 한 후, 그녀는 4 가지 더 많은 보고서를 받았습니다. 데이터 시트에

열 B 그러나 여전히이 문제에 어떤 도움을 크게 감사 3.

을 보여줍니다, 7 말해야한다.

Answer 1

날짜/시간 스탬프가 실제 날짜로 저장되지 않는다고 생각됩니다. 사용해보기 :

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Not Application.Intersect(Target, Columns("B:B")) Is Nothing Then 
     with Target.Offset(0, 3) 
      .Value = Now 
      .Numberformat = "mm dd yyyy h:mm" 
     end with 
    End If 
End Sub