특정열 데이터 입력 시 날짜 자동으로 입력하기.. > 엑셀공부

• 목록
• 답변
• 글쓰기

Option EXplicit
Private Sub Worksheet_Change(ByVal Target As Range)
'B열에 데이터 입력 시 F열에 날짜가 자동으로 입력 됨
Dim 입력범위 As Range
Set 입력범위 = Range("B2") .CurrentRegion.Columns(1)

If Intersect(Target, 입력범위) Is Nothing Then Exit Sub
  Target .Offset(0, 4) = Date
End Sub
'출처 : https://cafe.naver.com/excelmaster/185467