[땡큐엑셀vba & 엑셀매크로] Worksheet_Change이벤트를 사용하여 완료시간 구하기

D열(처리시간)이 변경되면 완료시간도 자동으로 계산됨

 

C열(접수시간)이 변경되면 완료시간도 자동으로 계산됨

 

'http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=284326395

'매일 매일 문서를 작성해야합니다.
'이런식의 문서내용이 있습니다.
'접수시간 + 처리시간 이 완료시간으로 TIME 함수를 써서 만들었는데
'다음날 문서를 새로 만들때. 시트내용을 다 지워야하거든요.
'그러면 완료시간에 적은 함수도 지워지는데
'함수 수식은 안지워지게 고정할수 없나요???
'함수 수식은 Del 키를 눌러도 안지워지게 할수 없나요.
'DEL 키를 누르면 다 지워지잖아요.
'근데 함수 수식은 안지워지게 하고 싶은데 방법 없나요???

'
' Source by 땡큐엑셀vba & 엑셀매크로
'
Private Sub Worksheet_Change(ByVal Target As Range)

    '에러 무시
    On Error Resume Next

    'D열에 변화가 있을때
    If Not Intersect(Target, Range("D:D")) Is Nothing Then
        
        If Target.Offset(0, -1) <> "" Then
            'DateAdd를 사용하여 분(n)을 더한다
            Target.Offset(0, 1) = DateAdd("n", Target, Target.Offset(0, -1))
        End If
            
    End If
    
    
    'C열에 변화가 있을때
    If Not Intersect(Target, Range("C:C")) Is Nothing Then
        
        If Target.Offset(0, 1) <> "" Then
            'DateAdd를 사용하여 분(n)을 더한다
            Target.Offset(0, 2) = DateAdd("n", Target.Offset(0, 1), Target)
        End If
            
    End If

End Sub

완료시간구하기-Worksheet_Change-땡큐엑셀vba.xlsm

0.20MB