我々は、年間の発生回数をカウントエクセルVBAでプログラムを見て下記。

状況：

Year Occurrences in Excel VBA

注：日付は米国のフォーマットです。数ヶ月、第一、第二日。フォーマットのこのタイプは、あなたの窓地域の設定に依存します。

1.まず、我々はInteger型の三つの変数を宣言します。一つの変数は、我々はyearAskを呼び出して、私たちは私を呼び出す一つの変数一つの変数、yearCountを呼び出します。

Dim yearCount As Integer, yearAsk As Integer, i As Integer

2.当社は、セルC4の値が値0とyearAskでyearCountを初期化します。

yearCount = 0

yearAsk = Range("C4").Value

3.私たちは、次のループの開始します。

For i = 1 To 16

4.私たちは今、それぞれの日付を確認し、日付の年は、セルC4に入力された年と等しい場合にのみ、1だけインクリメント我々yearCount私たちは、日付の年を取得するために、Year関数を使用します。

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

yearCount = yearCount + 1

End If

5.ループを閉じることを忘れないでください。

Next i

6.最後に、我々は合計年間の発生を表示します。我々は2つの文字列（参加）CONCATENATEに＆演算子を使用します。

MsgBox yearCount & " occurrences in year " & yearAsk

7.あなたのコマンドボタンでのマクロと、それをテストします。

結果：

Year Occurrences Result

注：我々はyearAsk変数を作ったので、あなたは、単にセルC4内の別の年を入力し、再度コマンドボタンをクリックして別の年の年間の発生回数をカウントすることができます。