Excel VBA > tips その他 > 年月(年度)のループ処理を分岐なしで対応する

年月(年度)のループ処理を分岐なしで対応する

「12月」時の条件分岐なしで年月をループする

以下のプログラムは開始年月から終了年月までの一年「度」分(一年分ではない)のループを行います。

Sub 年月のループ()

    Dim dt年月開始 As Date
    Dim dt年月終了 As Date

    Dim mm         As Integer

    '2015年4月1日
    dt年月開始 = #4/1/2015#

    '2016年3月31日
    dt年月終了 = #3/31/2016#

    For mm = 0 To VBA.DateDiff(“m”, dt年月開始, dt年月終了)
        Debug.Print VBA.DateAdd(“m”, mm, dt年月開始)
    Next mm

End Sub

ポイントとしては、ループ回数の指定部分で、「月の差分(DateDiff)」を求めていることと、今度はループ内で「月を加算(DateAdd)」していることくらいです。

年月(年度)のループ処理を分岐なしで対応する_01

◆お問い合わせ◆

原則3時間以内にご連絡

【お急ぎのお客様もご安心を】
お問い合わせフォーム(SSL対応)
弊社ではお急ぎのお客差にもご対応できるよう、迅速な返信を行っております。
特にお問い合わせフォームの場合は業務時間外でもスタッフが確認できればご連絡するという体制をとっております。

◆VBAツール・システム◆

Excel VBAの基本・事例

【VBAを思い通りに操ろう】
VBAはExcelだけでなく、Word、AccessなどMicrosoft Officeで共通して使えるプログラム言語です。細かい部分ではExcelで使えてWordで使えないなどもありますが、文法的には同じです。
こちらのページではExcel VBAの基本やツール、システムの紹介しております。

Excel VBAのお勉強

◆Excelレッスン◆

Excelについて勉強をしたい方

【Excelをとにかく勉強したい】
Excelについて分からないところだけを優先にしりたい、教えてほしい等。
授業のテキストの通りではなく、必要なところだけを効率的に勉強されたい方などは下記のページからご覧ください。

Excel レッスン