[[20200520160358]]　『月日』（あいちょ）　ページの最後に飛ぶ

『月日』（あいちょ）

1列目に日付(mmdd)があり検索を繰り返し、当日+1日目になったら2列目に"*"を記入するコードが書きたいのですが、全くわかりません。

1　0501 | 0502 | 0503 | ... | 0520 | 0521 | ...
2 | | | | | * |

条件
・月日の表示はmmddで固定

分かりやすいサイトやコード教えて頂けないでしょうか。

よろしくお願いします。

＜使用 Excel：unknown、使用 OS：unknown ＞

すいません。
ずれてました。

1　0501 | 0502 | 0503 |_..._ | 0520 | 0521 | ...
2______|_____|_____|____|_____|___*__|
（あいちょ） 2020/05/20(水) 16:15

Excel君にとって「0501」という文字列だけを見せられても、日付だとは認識できません。
なので、

 (1) 当日+1日目　を　4桁の数字に変換する
 (2) (1)の数字を、1行目の中から探す
 (3)見つけたセルの列、2行目を組み合わせて、書き込むべきセルを特定して、「*」を書き込む

というステップで考えてみるとよいとおもいます。
このうち、
(1)については、↓のようなアプローチもあります。

    Sub 実験()
        MsgBox Format(Date + 1, "mmdd")
    End Sub

(2)については、
「Findメソッド」、「（ワークシート関数の）Match関数」などを使うとよいと思います。

(3)はそのままですね。

なお、今回は関係ないとおもいますが、バージョンやOSによって使えない方法もありますから、↓はちゃんと示したほうがよいとおもいます。
＜使用 Excel：unknown、使用 OS：unknown ＞

（もこな２） 2020/05/20(水) 16:28

 これで十分だと思うけど。
 =IF(TODAY()=A1-1,"*","")
 何でわざわざマクロ？

 因みに
 >1列目
 ではなく、1行目。
 do you understand
（BJ） 2020/05/20(水) 17:02

ありがとうございました。
参考にさせて頂きます！
（あいちょ） 2020/05/20(水) 20:36

コメント返信：