サポートシェアリングソリューション
OKWAVE Plus
会員登録 （無料）
「OKWAVE Plus の利用」に関するアンケートご協力のお願い
アンケートに答えると抽選で500名様にAmazonギフト券100円分をプレゼント！
回答締切：2023年12月18日(月)まで
アンケートはこちら

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

はい
ベストアンサー
困ってます

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

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

回答を評価する0

お礼

2020/07/15 10:19

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

ginnosuke1102 質問者
通報する

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

はい（0）

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

質問する

その他の回答 （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/

回答を評価する0

お礼

2020/07/15 10:20

ありがとうございます！

ginnosuke1102 質問者
通報する

関連するQ&A

お礼をおくりました

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

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

サポートシェアリングソリューション 企業・団体・テーマ

Powered by OKWAVE

OKWAVE Plusは、OKWAVEを利用したご利用中の製品・サービスの疑問をみんなで解決するQ&Aコミュニティです。
導入も簡単でスムーズにコミュニティを始められます。

企業のみなさまへ 金融機関のみなさまへ 自治体のみなさまへ

© 2023 OKWAVE, Inc. 

okwave.co.jp