Do While文で太字の部分の計算の繰り返し方法が分からない

Question

下記のプログラムで太字の部分の計算の値を繰り返す毎に足していきたいのですが、
良いプログラミング方法が分からず質問させて頂きました。

お手数ですが、ご教授頂けると幸いです。

コード

入力年月日1の月 = 2
入力年月日2の月 = 10

Do While  入力年月日1の月 = 入力年月日2の月 - 1

経過日数 =( Cells(1,入力年月日1の月) - 入力年月日1の日付)
           +入力年月日1と入力年月日2の月の間のテーブル日数 + 入力年月日2の日付

入力年月日１の月 + 1

**入力年月日1と入力年月日2の月の間のテーブル日数 = Cells(1,入力年月日1の月)  **

Comments

[coco_bauer]

「入力年月日1と入力年月日2の月の間のテーブル日数 = 入力年月日1と入力年月日2の月の間のテーブル日数 + Cells(1,入力年月日1の月) 」で良いのでは？

[pazzu]

ご回答ありがとうございます。解決致しました！

Answer 1

入力年月日1と入力年月日2の月の間のテーブル日数の合計値を計算したいということでしょうか。
単純に合計用の変数を用意して足しこんでいけばよろしいかと。

入力年月日1の月 = 2
入力年月日2の月 = 10
' ↓追加
入力年月日1と入力年月日2の月の間のテーブル日数の合計 = 0
Do While  入力年月日1の月 = 入力年月日2の月 - 1

  経過日数 =( Cells(1,入力年月日1の月) - 入力年月日1の日付)
    +入力年月日1と入力年月日2の月の間のテーブル日数 + 入力年月日2の日付

  入力年月日１の月 + 1

  入力年月日1と入力年月日2の月の間のテーブル日数 = Cells(1,入力年月日1の月) 
  ' ↓追加
  入力年月日1と入力年月日2の月の間のテーブル日数の合計 = 入力年月日1と入力年月日2の月の間のテーブル日数の合計 + 入力年月日1と入力年月日2の月の間のテーブル日数
～

Comments

[pazzu]

ご回答ありがとうございます。解決致しました！

Answer 2

困っているのは、入力年月日１の月をつねに＋１してるので、
入力年月日1と入力年月日2の月の間のテーブル日数の範囲外になってしまうということでよいですか？

ある範囲内の値をとりたい場合、剰余(VBAの場合Mod演算子)をつかいます。
月数の場合、12でわった余りが、0～11の範囲になりるので、それを加工して、Cellsでアクセスすればよいです。

Comments

[pazzu]

ご回答ありがとうございます。解決致しました！