엑셀 오늘 날짜 자동 입력, IF 함수로 쉽게 해결하기

Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim Rng As Range: Dim TimeRng As Range: Dim DateRng As Range: Dim dtRng As Range
Dim tC As Long: Dim dC As Long: Dim R As Long
 
On Error Resume Next
 
Application.EnableEvents = False
 
Set Rng = Me.Range("D:D") '<-- 오늘 날짜/시간이 입력되도록 감지할 범위를 입력합니다.
Set DateRng = Me.Range("E:E") '<-- 오늘 날짜가 입력될 범위입니다. (또는 날짜가 입력될 범위가 없을 경우 문장을 삭제)
Set TimeRng = Me.Range("F:F") '<-- 오늘 시간이 입력될 범위입니다. (또는 시간이 입력될 범위가 없을 경우 문장을 삭제)
Set dtRng = Me.Range("G:G") '<-- 오늘 시간/날짜가 모두 입력될 범위입니다. (또는 범위가 없을 경우 문장을 삭제)
 
If Not Intersect(Target, Rng) Is Nothing Then
'행 삭제 시 데이터가 초기화 되는 문제를 해결하려면, 아래 코드를 추가합니다.
'If IsNull(Target.Text) Then Exit Sub
If Target.Text <> "" Then
R = Target.Row
If Not IsEmpty(DateRng) Then dC = DateRng.Column: Me.Cells(R, dC).Value = Date
If Not IsEmpty(TimeRng) Then tC = TimeRng.Column: Me.Cells(R, tC).Value = Time
If Not IsEmpty(dtRng) Then tC = dtRng.Column: Me.Cells(R, tC).Value = Now
Else
R = Target.Row
If Not IsEmpty(DateRng) Then dC = DateRng.Column: Me.Cells(R, dC).Value = ""
If Not IsEmpty(TimeRng) Then tC = TimeRng.Column: Me.Cells(R, tC).Value = ""
If Not IsEmpty(dtRng) Then tC = dtRng.Column: Me.Cells(R, tC).Value = ""
End If
End If
 
Application.EnableEvents = True
 
End Sub