mwultong Blog ... 프로그래밍 / 계산기

컴퓨터 엑셀 워드 포토샵 구글어스 WINDOWS JAVASCRIPT JAVA C++

 
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:

<< Home RSS 2.0 feed

구글 Google 에서 제공하는 무료 블로그 서비스인 블로거 Blogger 의 인터넷 주소는 www.blogger.com 입니다. Blogger 에 블로그를 만들면, blogspot.com 이라는 주소에 블로그가 생성됩니다.
블로그를 직접 방문하지 않고도 최신 게시물을 구독하려면 RSS 2.0 feed 주소를 리더기에 등록하시면 됩니다.
Previous Posts
Monthly Archives
Top