특정열 데이터 입력 시 날짜 자동으로 입력하기..
페이지 정보
작성자 최고관리자 작성일22-10-05 22:05 조회659회 댓글0건관련링크
본문
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
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
댓글목록
등록된 댓글이 없습니다.
