[땡큐엑셀vba & 엑셀매크로] O열에 값입력시 P열에 자동으로 날짜 시간입력

 

 

'http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=291935752
'
'완료 O열에 숫자 0을 쓰면 X표시가, 숫자 1을 쓰면 V표시가 되면서 해당 행 전체의 색이 변합니다
'완료 O열에 숫자 1을 쓸 경우 해당 행의 색이 변함과 동시에
'확인시간 P열에 V표시 시간을 자동으로 입력하고 싶습니다
'
'그리고 이름 F열에 내용을 기입하면 번호, 날짜, 시간이 자동으로 입력되는데
'이 부분에는 영향이 없었으면 좋겠습니다
'
'O열 혹은 P열에 사용할 함수식 부탁드립니다


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

    'O열 인지 체크
    If Not Intersect(Target, Range("O:O")) Is Nothing Then
        If Target.Value = 1 Then
            Cells(Target.Row, "P") = Now() '현재시각
        Else
            Cells(Target.Row, "P") = "" '널
        End If
    End If
    
    
End Sub

데이터입력시 자동으로 날짜입력-worksheet_change이벤트-땡큐엑셀vba.xlsm

0.14MB