Sunday, January 28, 2007
Excel/엑셀 VBA] 1, 2, 3, 4분기 구하기 (사분기); Quarter of the Year
1년을, 3개월씩, 4부분으로 나눈 것이 "분기(사분기;Quarter)"입니다.
영문 약자로는
로 표현합니다.
(엑셀 비베가 아닌, 엑셀 내장 함수들을 이용하여 분기를 구하는 법은 여기에 있습니다: ▶▶ Excel 엑셀] 이번 달은 몇 분기, 몇 사분기 구하기 함수/수식; Quarter of the Year)
(엑셀에서 Alt+F11키를 눌러, 비베 에디터를 실행하고, 비베 에디터 메뉴의, "삽입 > 모듈"을 선택한 후, 다음 코드를 붙여 넣습니다.)
비베 에디터에서 F5 키를 누르거나, 엑셀에서 Alt+F8 키를 누르면 VBA 매크로가 실행됩니다.
▶▶ Excel/엑셀 VBA] 날짜/시간 (년월일 시분초) 구하기; Date Time Leading Zero
영문 약자로는
Q1 = 1분기 ( 1, 2, 3월달) = 일사분기
Q2 = 2분기 ( 4, 5, 6월달) = 이사분기
Q3 = 3분기 ( 7, 8, 9월달) = 삼사분기
Q4 = 4분기 (10, 11, 12월달) = 사사분기
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
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 매크로 | 오피스
<< Home