画像左のシフト表(シート1)を右の個人別のシフト表(シート2)に転記するマクロを作っております。

画像

Visual Basic | Excel31閲覧

ベストアンサー

0
画像

(補足) WorksheetFunction.EoMonth(DateSerial(年, 月, 日※1~28ならなんでもいい), 0) で、たとえばうるう年だった去年の (2020,2,1) としたら 2020/2/29 が返ります。 Day(WorksheetFunction.EoMonth(DateSerial(2020,2,1), 0) で、29が取り出せます。

ThanksImg質問者からのお礼コメント

ありがとうございました。

お礼日時:2021/12/3 10:09