우리는 올해의 발생 수를 계산 엑셀 VBA에서 프로그램을보고 아래.

상황 :

Year Occurrences in Excel VBA

참고 : 날짜는 미국의 형식에 있습니다. 제 달, 일 초. 형식의이 유형은 당신의 창 지역 설정에 따라 달라집니다.

  1. 먼저, 우리는 형 정수의 세 가지 변수를 선언합니다. 우리가 yearCount를 호출 한 변수는 하나 개의 변수 우리는 yearAsk를 호출하고 하나 개의 변수 우리는 내가 전화.

Dim yearCount As Integer, yearAsk As Integer, i As Integer
  1. 우리는 셀 C4의 값이 값 0으로 yearAsk yearCount 초기화.

yearCount = 0

yearAsk = Range("C4").Value
  1. 우리는 다음의 루프를 시작합니다.

For i = 1 To 16
  1. 우리는 지금 각 날짜를 확인하고 날짜의 연도 셀 C4에 입력 해와 동일한 경우에만 1로 우리 증가 yearCount 우리는 날짜의 연도를 얻기 위해 올해 함수를 사용합니다.

If year(Cells(i, 1).Value) = yearAsk Then

yearCount = yearCount + 1

End If

루프를 종료하는 것을 잊지 마세요 5..

Next i
  1. 마지막으로, 우리는 전체 년의 발생을 표시합니다. 우리는 CONCATENATE (조인) 두 문자열에 & 연산자를 사용합니다.

MsgBox yearCount & " occurrences in year " & yearAsk
  1. 당신의 명령 단추에 매크로를 테스트합니다.

결과 :

Year Occurrences Result

참고 : 우리가 yearAsk 변수를 만들었 기 때문에, 당신은 단순히 세포 C4의 다른 년을 입력하고 명령 단추를 클릭하여 다른 년의 년간 발생 횟수를 셀 수 있습니다.