列内の複数のセルを検索し、隣接する列からセルを選択し、各セルのモジュールを個別に呼び出します。

Question

私はかなり扱いにくい状況に陥っています： 2015年から2017年までの連続した列D.

まず、月の最初の日を含むその列のすべてのセルを検索したいと思います。

第2回私が見つけた各セル（列F）に対して同じ行と2列離れたセルを選択したいと思います。

第3回これらのセルのそれぞれを別々に呼び出すことをお勧めします（私が開発したモジュールはActiveCellの選択に依存しているため）。

最後に、月の最初の日に対応するすべての単一のセル（モジュールが呼び出されたセル）を取り、月の最終日を含む行まで完全に自動入力できますか？

Date   Week Total Companytotal 
23-03-15 29-mar 224 45 
24-03-15 29-mar 251 37 
25-03-15 29-mar 365 77 
26-03-15 29-mar 404 147 
27-03-15 29-mar 394 132 
28-03-15 29-mar 514 123 
29-03-15 29-mar 538 132 
30-03-15 5-apr 472 122 
31-03-15 5-apr 551 152 
01-04-15 5-apr 730 163 
02-04-15 5-apr 604 112 
03-04-15 5-apr 511 129 
04-04-15 5-apr 336 84 
05-04-15 5-apr 298 98 
06-04-15 12-apr 517 144 
07-04-15 12-apr 507 121 
08-04-15 12-apr 647 165 
09-04-15 12-apr 646 181 
10-04-15 12-apr 745 189 
11-04-15 12-apr 643 168 
12-04-15 12-apr 699 174 
13-04-15 19-apr 698 174 
14-04-15 19-apr 759 160 
15-04-15 19-apr 937 221 
16-04-15 19-apr 1013 204 
17-04-15 19-apr 1263 274 
18-04-15 19-apr 1055 306 
19-04-15 19-apr 1173 287 
20-04-15 26-apr 909 209 

これは、上記の表のスニペットです（2017年まで続きます）。私がモジュールを呼びたいと思っているセルは、Totalと、可能であれば、Companytotalです。

ありがとうございます。

Answer 1

すべての行をループします。ループで、日付が月の最初の日かどうかを確認します。そうであれば、それを選択してマクロをアクティブにします（アクティブなセルになります）。マクロが実行されると、ループが実行され、残りのセルに対しても同じ処理が実行されます。また

、それはあなたの人生が容易になりますなどを選択し、ActiveCellのを使用してマクロを書くことがないようにしよう:) 3つの最初のステップのための

Answer 2

ザッツの答え：あなたの最後の質問について

Sub tets() 

i = 2 
Do While Sheets("Sheet1").Range("D" & i).Value <> "" 
    If Day(Sheets("Sheet1").Range("D" & i).Value) = 1 Then 
     Range("F" & i).Select 
     SomeMacro 

    End If 

    i = i + 1 
Loop 

End Sub 

：それはOFCをどの列を塗りつぶしたいのか、範囲は何か（月の最初の日から最後まで、私は正しいのですか？）