엑셀에서 특정 셀의 내용이 변경될때, 그 옆 셀에 수정된 날짜와 시간을 자동입력 > information

본문 바로가기
사이트 내 전체검색

information

엑셀에서 특정 셀의 내용이 변경될때, 그 옆 셀에 수정된 날짜와 시간을 자동입력

페이지 정보

작성자 서방님 댓글 0건 조회 272회 작성일 15-01-28 14:02

본문

다음과 같은 시트가 있다고 할때...

 

1518EF124BAA0D2E2D8C28

 

 

 

각 업체별 매출액 과 매입액 및 최종 수정한 날짜가 등록되어 있습니다.

 

예를 들어 오늘 BBB 업체에 추가 매출이 발생하여 매출액이 다음과 같이 변경될 때

 

2025F5134BAA0D3CBA41A6

 

 

 

빨갛게 표시된 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

 

댓글목록

등록된 댓글이 없습니다.

회원로그인

접속자집계

오늘
73
어제
302
최대
1,347
전체
155,134
Latest Crypto Fear & Greed Index

그누보드5
Copyright © 서방님.kr All rights reserved.