Wednesday, January 24, 2007
Excel/엑셀 VBA] 오늘 요일 이름 구하기, 요일명 출력; Get-Print DAY OF THE WEEK
VBA로 오늘의 요일을 구하는 방법입니다. Format() 함수를 사용합니다. 한글로, 영문으로, 그리고 "요일 번호" 이렇게 3가지를 구합니다.
요일 번호는 요일을 숫자로 변환한 것인데, 날짜를 정교하게 다루는 루틴에서 필요합니다. 일요일은 1번에 해당입니다.
(엑셀에서 Alt+F11키를 눌러, 비베 에디터를 실행하고, 비베 에디터 메뉴의, "삽입 > 모듈"을 선택한 후, 다음 코드를 붙여 넣습니다.)
비베 에디터에서 F5 키를 누르거나, 엑셀에서 Alt+F8 키를 누르면 VBA 매크로가 실행됩니다.
요일 번호는 요일을 숫자로 변환한 것인데, 날짜를 정교하게 다루는 루틴에서 필요합니다. 일요일은 1번에 해당입니다.
현재 요일명 얻기 예제
(엑셀에서 Alt+F11키를 눌러, 비베 에디터를 실행하고, 비베 에디터 메뉴의, "삽입 > 모듈"을 선택한 후, 다음 코드를 붙여 넣습니다.)
비베 에디터에서 F5 키를 누르거나, 엑셀에서 Alt+F8 키를 누르면 VBA 매크로가 실행됩니다.
Sub DAY_OF_THE_WEEK_example()
'''''''''''''''''''''''''''''''''''''''''''
' 이 예제의 출력 결과는
' 오늘 요일이 수요일일 경우임
'''''''''''''''''''''''''''''''''''''''''''
' 한글 요일 이름 구하기
MsgBox Format(Date, "aaaa")
' 출력 결과: 수요일
' 영문 요일명 구하기
MsgBox Format(Date, "dddd")
' 출력 결과: Wednesday
' 요일 번호 구하기: 일요일 = 1
MsgBox Format(Date, "w")
' 출력 결과: 4
End Sub
'''''''''''''''''''''''''''''''''''''''''''
' 이 예제의 출력 결과는
' 오늘 요일이 수요일일 경우임
'''''''''''''''''''''''''''''''''''''''''''
' 한글 요일 이름 구하기
MsgBox Format(Date, "aaaa")
' 출력 결과: 수요일
' 영문 요일명 구하기
MsgBox Format(Date, "dddd")
' 출력 결과: Wednesday
' 요일 번호 구하기: 일요일 = 1
MsgBox Format(Date, "w")
' 출력 결과: 4
End Sub
tag: office
엑셀 Excel | 워드 Word | VBA 매크로 | 오피스
<< Home