엑셀 현재 시간 출력 VBA 코드

엑셀 현재 시간 출력 VBA 코드

아래는 엑셀 VBA 코드를 사용하여 현재 시간을 출력하는 예제 코드입니다. 코드에 상세한 주석을 달아 설명하겠습니다.


Sub DisplayCurrentTime()
    ' 현재 시간을 저장할 변수를 선언합니다.
    Dim CurrentTime As String
    
    ' 현재 시간을 변수에 할당합니다.
    CurrentTime = Format(Now, "hh:mm:ss AM/PM")
    
    ' 결과를 메시지 박스로 표시합니다.
    MsgBox "현재 시간은 " & CurrentTime & " 입니다.", vbInformation, "현재 시간"
End Sub

이 코드는 "DisplayCurrentTime"이라는 서브루틴을 생성하고, 그 안에서 현재 시간을 가져와서 메시지 박스로 표시합니다. 코드의 주요 부분은 다음과 같습니다:

Dim CurrentTime As String: "CurrentTime"이라는 문자열 변수를 선언합니다. 이 변수는 현재 시간을 저장할 용도로 사용됩니다.
CurrentTime = Format(Now, "hh:mm:ss AM/PM"): Now 함수를 사용하여 현재 날짜와 시간을 가져오고, Format 함수를 사용하여 원하는 형식("hh:mm:ss AM/PM")으로 시간을 형식화하고 "CurrentTime" 변수에 할당합니다.
MsgBox "현재 시간은 " & CurrentTime & " 입니다.", vbInformation, "현재 시간": 메시지 박스를 통해 현재 시간을 표시합니다. 메시지 박스에는 "현재 시간은 [현재 시간] 입니다."라는 메시지가 표시되며, 정보 아이콘(vbInformation)과 "현재 시간"이라는 제목이 표시됩니다.

이 코드를 VBA 에디터(Alt + F11)에서 삽입한 다음, 실행하려면 엑셀 파일 내에서 "매크로" 탭에서 "매크로 보기"를 선택하고 "DisplayCurrentTime"을 실행할 수 있습니다.

댓글