本文へ移動
サポートシェアリングソリューション
OKWAVE Plus

このQ&Aは役に立ちましたか?

ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:木曜日の日付のみを抜き出して表示させたい)

木曜日の日付を抜き出して表に表示する方法

2023/10/20 13:39

このQ&Aのポイント
  • 毎週木曜日に行われる掃除当番の年間表を作成したい場合、Excelマクロを使用することで簡単に実現できます。
  • マクロを使用することで、毎週木曜日の日付のみを抜き出して表に表示することができます。
  • セル入力の関数ではなくマクロを使用することで、一回の操作で簡単に日付を表示させることが可能です。
※ 以下は、質問の原文です

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

2020/07/09 13:12

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

質問者が選んだベストアンサー

ベストアンサー
2020/07/09 14:28
回答No.1

単純に

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

お礼

2020/07/15 10:19

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

質問者

このQ&Aは役に立ちましたか?

この質問は投稿から一年以上経過しています。
解決しない場合、新しい質問の投稿をおすすめします。

質問する

その他の回答 (2件中 1~2件目)

2020/07/10 13:38
回答No.2

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

まず、目的のセルの先頭に木曜日となる日付を手入力します。
次のセルには先頭のセルを相対参照したうえで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/

お礼

2020/07/15 10:20

ありがとうございます!

質問者

お礼をおくりました

さらに、この回答をベストアンサーに選びますか?

ベストアンサーを選ぶと質問が締切られます。
なおベストアンサーを選びなおすことはできません。