엑셀 - 날짜, 시각 자동 입력 VBA

바로 밑의 글에 이은 두번째 이야기다.
요즘은 구글보다 네이버가 내게 더 많은 도움을 주는군.

원하는 내용

엑셀에서 특정 열의 셀을 마우스 클릭 혹은 더블 클릭 만으로
현재 날짜와 시각을 표시하고 싶다. (난 안 그러고 싶지만 원하는 이가 있다.)


방법 (예제)

1. A열 선택 > 마우스 오른쪽 버튼 클릭 > 셀 서식 선택

2. 범주에서 '날짜' 선택 후 오른쪽에서 원하는 모양 선택

3. B열 선택 > 마우스 오른쪽 버튼 클릭 > 셀 서식 선택

4. 범주에서 '시간' 선택 후 오른쪽에서 원하는 모양 선택

5. 'Alt + F11' 입력 후 Sheet1 을 더블 클릭하고 오른쪽 창에
다음 내용을 입력한다.

 

1) 마우스 한번 클릭으로 표시하기

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Intersect(Target, Range("A1:A10")) Is Nothing Then
Else
    Target.Value = Now
End If

If Intersect(Target, Range("B1:B10")) Is Nothing Then
Else
    Target.Value = Now
End If

End Sub

2) 마우스 더블 클릭으로 표시하기

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Intersect(Target, Range("A1:A10")) Is Nothing Then
Else
    Target.Value = Now
End If

If Intersect(Target, Range("B1:B10")) Is Nothing Then
Else
    Target.Value = Now
End If

End Sub

6. 각각 입력이 끝났으면 'Alt + Q' 입력하고 파일을 저장한다.

(위의 매크로가 제대로 기능을 발휘하려면 엑셀의 매크로 보안 설정이 허용되어야 한다.)

이제 해당 파일을 열어 A1부터 A10까지 마우스 선택(혹은 마우스 더블클릭)하면 날짜가 표시되고
B1부터 B10까지 마우스 선택(혹은 마우스 더블클릭)하면 시각이 표시된다.

한 열 전체에 적용하는 방법은 모르겠다. 아니 알고 싶지 않다.

invalid-file

invalid-file

참조글: 네이버 지식인