두 코드를 하나로 병합해야합니다. - 매크로 타임 스탬프

Question

이것은 첫 번째 게시물입니다. 다른 게시물을 살펴 보았지만 작업 코드를 재구성 할 수 없어 여기에서 쿼리를 제출하기로했습니다. 아래는 타임 스탬프의 네이티브 코드입니다.

나는 직원 이름을 추가하고 오프셋 열 B, D, F, H에서 시간 소인을 얻으려는 4 개의 개별 열 A, C, E, G가 있습니다.

이것을 캡처하려면 하나의 결합 된 코드가 필요합니다. 도와주세요! 대신 두 개의 타임 스탬프 코드를 병합

코드

Private Sub Worksheet_Change(ByVal Target As Range) 
    'Macro #1 
    Dim WorkRng As Range  
    Dim Rng As Range  
    Dim xOffsetColumn As Integer 

    Set WorkRng = Intersect(Application.ActiveSheet.Range("A:A"), Target)  
    xOffsetColumn = 1 

    If Not WorkRng Is Nothing Then  
     Application.EnableEvents = False  

     For Each Rng In WorkRng   
      If Not VBA.IsEmpty(Rng.Value) Then  
       Rng.Offset(0, xOffsetColumn).Value = Now 
       Rng.Offset(0, xOffsetColumn).NumberFormat = "dd-mm-yyyy, hh:mm:ss" 
      Else 
       Rng.Offset(0, xOffsetColumn).ClearContents 
      End If 
     Next 

     Application.EnableEvents = True 
    End If 
End Sub 

Answer 1

, 나는이 단계를

Set WorkRng = Intersect(Application.ActiveSheet.Range("A:A, C:C, E:E, G:G"), Target) 

에 열 범위를 추가, 내 쿼리가 해결되었습니다.