엑셀 간단한 자료 입력 시간 자동 기록 매크로 (입력 / 수정 실시간 자동 감지 기록 Timestamp, 날짜 시간 자동 입력)

엑셀 매크로로 작성한 간단한 입력 / 수정 감지 시간 자동 기록 매크로입니다. 해당 시트에 입력 / 수정이 이루어지면 바로 옆 셀에 현재 시간을 자동으로 입력해줍니다.

​[ 매크로 저장 ]

1. 알트(Alt) + F11키를 눌러 비주얼 베이직 창을 열고, 매크로를 적용할 시트명을 클릭해서 선택해줍니다.

​2. 아래 매크로를 복사/붙여넣기 한 후 알트(Alt) + Q를 눌러 워크시트 화면으로 돌아 온 다음 자료를 입력 해줍니다.

​

[ 사용법 ]​

1. 매크로를 설정한 시트 A행에 자료를 입력하면 B행에 "yyyy/mm/dd hh:mm:ss" 형식으로 날짜 / 시간이

입력 됩니다.

​

2. 다른 시트에서도 사용하고 싶다면, 시트탭에서 우측 버튼을 누르고, 시트 > 이동/복사 클릭으로 시트를

복사해준 다음 사용하면 됩니다.

3. 적용 행을 바꾸고 싶다면, xDStr = "A" '데이터 입력 행, xFStr = "B" '날짜와 시간 행 부분을 수정하여

사용하면 됩니다.

​▼ 예제 파일 다운로드 ▼

첨부파일  timeStamp.xlsm   파일 다운로드

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim xRInt As Integer
    Dim xDStr As String
    Dim xFStr As String
    On Error Resume Next
    xDStr = "A" '데이터 입력 행
    xFStr = "B" '날짜와 시간 행
    If (Not Application.Intersect(Me.Range(xDStr & ":" & xDStr), Target) Is Nothing) Then
           xRInt = Target.Row
           Me.Range(xFStr & xRInt) = Format(Now(), "yyyy/mm/dd hh:mm:ss")
    End If
End Sub

 

아래 매크로는 A열에 입력이 있으면, B열에 날짜, C열에 시간을 자동으로 입력해줍니다.

timeStamps.xlsm

0.02MB

Private Sub Worksheet_Change(ByVal Target As Range)

Dim xRInt As Integer
Dim xDStr As String
Dim xFStr As String
Dim xTstr As String

On Error Resume Next
xDStr = "A" '데이터 입력
xFStr = "B" '날짜
xTstr = "C" '시간

If (Not Application.Intersect(Me.Range(xDStr & ":" & xDStr), Target) Is Nothing) Then
xRInt = Target.Row
Me.Range(xFStr & xRInt) = Format(Now(), "yyyy. MM. dd(aaa)")
Me.Range(xTstr & xRInt) = Format(Now(), "HH:mm:ss")
End If