Sunday, January 28, 2007

Excel/엑셀 VBA] 1, 2, 3, 4분기 구하기 (사분기); Quarter of the Year

1년을, 3개월씩, 4부분으로 나눈 것이 "분기(사분기;Quarter)"입니다.

영문 약자로는

Q1 = 1분기 ( 1, 2, 3월달) = 일사분기
Q2 = 2분기 ( 4, 5, 6월달) = 이사분기
Q3 = 3분기 ( 7, 8, 9월달) = 삼사분기
Q4 = 4분기 (10, 11, 12월달) = 사사분기

로 표현합니다.

(엑셀 비베가 아닌, 엑셀 내장 함수들을 이용하여 분기를 구하는 법은 여기에 있습니다: ▶▶ Excel 엑셀] 이번 달은 몇 분기, 몇 사분기 구하기 함수/수식; Quarter of the Year)

이번 달이, 몇 분기(몇 사분기)인지 구하기 예제

(엑셀에서 Alt+F11키를 눌러, 비베 에디터를 실행하고, 비베 에디터 메뉴의, "삽입 > 모듈"을 선택한 후, 다음 코드를 붙여 넣습니다.)
비베 에디터에서 F5 키를 누르거나, 엑셀에서 Alt+F8 키를 누르면 VBA 매크로가 실행됩니다.

Sub Get_Quarter_Year_Example()

Dim s

s = Format(Date, "q")
MsgBox s & "분기"

' 이번 달이 1월달일 경우
' 출력 결과: 1분기

' 이번 달이 2월달일 경우
' 출력 결과: 1분기

' 이번 달이 3월달일 경우
' 출력 결과: 1분기

' 이번 달이 4월달일 경우
' 출력 결과: 2분기

' 이번 달이 5월달일 경우
' 출력 결과: 2분기

' 이번 달이 6월달일 경우
' 출력 결과: 2분기

' 이번 달이 7월달일 경우
' 출력 결과: 3분기

' 이번 달이 8월달일 경우
' 출력 결과: 3분기

' 이번 달이 9월달일 경우
' 출력 결과: 3분기

' 이번 달이 10월달일 경우
' 출력 결과: 4분기

' 이번 달이 11월달일 경우
' 출력 결과: 4분기

' 이번 달이 12월달일 경우
' 출력 결과: 4분기

End Sub

▶▶ Excel/엑셀 VBA] 날짜/시간 (년월일 시분초) 구하기; Date Time Leading Zero

tag: office

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

0 Comments: