엑셀/MS워드 VBA매크로] 현재 날짜, 시간 출력 함수; Excel Word Date Time

Wednesday, October 25, 2006

스폰서 링크

VBA를 이용하여, 엑셀이나 워드 문서에, 현재 날짜와 시간 즉 타임스탬프를 찍는 방법입니다. Date 와 Time 이라는 함수에 현재 날짜와 시간이 들어 있습니다.

Excel: 셀에 날짜 시간 입력

다음과 같은 VBA코드로 현재 날짜와 시간을 채워 넣을 수 있습니다.

Sub Foo()
Cells(1, 1).Value = Date
Cells(1, 2).Value = Time
End Sub

A1 셀과 B1 셀에
2006-10-25 10:12:25 AM
이렇게 나란히 날짜와 시간이 기록됩니다.

이 시간은 문서를 다시 열더라도 현재 시간으로 업데이트되지 않고, 영원히 고정됩니다. 물론 위의 VBA매크로를 다시 실행하면 현재 시각으로 갱신됩니다.

########
만약 이렇게 보인다면, 셀의 간격을 조금 넓게 하면 시간이 보입니다.

MS워드: 문서에 날짜 시간 입력

Sub Foo()
Selection.TypeText Text:=Date & " " & Time
Selection.TypeParagraph
End Sub

위의 VBA매크로를 실행하면 현재 문서에, 현재 시각이

2006-10-25 오전 10:15:19

이렇게 출력됩니다. 그런 후 다음줄로 줄바꿈이 됩니다. 줄바꿈이 필요 없을 경우에는 "Selection.TypeParagraph" 이 줄을 지우거나 주석화되면 됩니다.

엑셀의 경우와 마찬가지로, 이 시간은 문서를 다시 열더라도 현재 시간으로 업데이트되지 않습니다. 위의 VBA매크로를 다시 실행할 때에만 현재 시각으로 갱신됩니다.

▶▶ Excel/엑셀 VBA] 오늘이 올해 몇 번째 날? 구하기/출력; get DAY OF YEAR

년월일/시분초 별로 나누어서 구하기: ▶▶ Excel/엑셀 VBA] 날짜/시간 (년월일 시분초) 구하기; Date Time Leading Zero

더 읽기:

☞ 엑셀 Excel | 워드 Word | VBA 매크로 | 오피스

0 Comments: