木曜日の日付のみを抜き出して表示させたい

質問

毎週木曜日に行われる掃除当番の年間表のようなものを作成しようとしています。
毎週木曜日の日付のみ表に表示させたいのですが、Excelマクロで方法はありますか？
(上記以外にもやりたい操作があり、マクロ1回で簡単にしたいので、セル入力の関数ではなくマクロで考えています。)

回答No.1

kkkkkm · ベストアンサー

単純に

Sub Test()
Dim mDate As Date
Dim i As Long, j As Long

mDate = "2020/1/1"
j = 1
For i = 1 To 365
If Format(mDate, "aaa") = "木" Then
Cells(j, "A").Value = mDate
j = j + 1
End If
mDate = mDate + 1
Next
End Sub

お礼

ありがとうございます。参考にさせていただきます！

回答No.2

nowane4649

マクロはすでに出ているので、簡易的な入力方法の紹介をします。

まず、目的のセルの先頭に木曜日となる日付を手入力します。
次のセルには先頭のセルを相対参照したうえで7を足します。
エクセルのオートフィル機能で必要範囲まで広げます。

具体例だと
A列の表示形式を「ユーザー定義」で”mm/dd(AAA)"にします。(月/日(曜日)表示)
A1セルに"2020/07/09"を入力します。表示は07/09(木)となります。
A2セルに数式"=A1+7"を入力します。表示は07/16(木)となるはずです。
A2セルを選択し、セル枠右下の黒点にカーソルを合わせます。カーソルが十字に変化したら下向きに必要な範囲までドラッグします。A3以降のセルには07/23(木)、07/30(木)…と木曜日の日付が表示されるはずです。

Excelでは、日付のデータは1900/01/01 00:00:00をゼロとし、1日の経過で1増える小数型のデータとして扱われています。
なので、1週間後の値を計算するのは、7を足すだけで済むわけです。
(その他の例として、12時間足したいときは0.5を足せばよいとなります。)

なお、コマンドとしてのオートフィルでもできます。
https://getnavi.jp/business/54309/

お礼

ありがとうございます！