엑셀에서 특정 셀의 내용이 변경될때, 그 옆 셀에 수정된 날짜와 시간을 자동입력
페이지 정보
작성자 서방님 댓글 0건 조회 272회 작성일 15-01-28 14:02본문
다음과 같은 시트가 있다고 할때...
각 업체별 매출액 과 매입액 및 최종 수정한 날짜가 등록되어 있습니다.
예를 들어 오늘 BBB 업체에 추가 매출이 발생하여 매출액이 다음과 같이 변경될 때
빨갛게 표시된 D3 셀처럼...모니터링 하던 같은 행의 내용이 변경되었을때
자동으로 수정 당일 날짜 (시각도 있으면 더욱 좋음) 로 변경하여 기입되도록 할 수 있을까요?
그러니까 요약하자면
D3 셀은 B3~C3 셀을 모니터링 하고 있다가 변경사항이 발생하는 순간
그 순간의 날짜및 시각을 자기 셀에 입력해 주는거죠.
하루에도 수번씩 몇십개 업체의 현황을 체크하고 변동사항을 기입해야 하는데...
어쩔때는 내가 이 업체의 데이터를 업데이트 했는지 아닌지 기억이 가물가물 할때가 있습니다.
그럴때 자동으로 변경된 최종수정일 셀 기록이 있다면.... 아 언제 고쳤었구나~!
하고 바로 알 수 있을텐데.. 제가 실력이 미천하여 감히 고수분들께 가능한지 여쭙니다.
부탁좀 드리겠습니다~!!
====================================================================
좋은 답변이 될지 모르겠습니다.
매크로는 아래와 같습니다.
아래 내용을 살펴보시고 따라하시면 됩니다.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = ActiveSheet.Cells(Target.Row, 2).Address Then
Cells(Target.Row, 4).Value = "=today()"
Cells(Target.Row, 4).Value = Cells(Target.Row, 4).Value
End If
End Sub
매크로가 정상적으로 등록되면
B열 값을 수정하면 해당 행의 D열에 오늘 날짜가 입력됩니다.
Private Sub Worksheet_Change(ByVal Target As Range) |
With Target |
If .Count > 1 Then Exit Sub |
If Intersect(Target, [b2:c4]) Is Nothing Then Exit Sub |
Cells(.Row, 4) = Now |
End With |
End Sub |
댓글목록
등록된 댓글이 없습니다.