このQ&Aは役に立ちましたか?
2020/07/09 13:12
毎週木曜日に行われる掃除当番の年間表のようなものを作成しようとしています。
毎週木曜日の日付のみ表に表示させたいのですが、Excelマクロで方法はありますか?
(上記以外にもやりたい操作があり、マクロ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
このQ&Aは役に立ちましたか?
この質問は投稿から一年以上経過しています。
解決しない場合、新しい質問の投稿をおすすめします。
マクロはすでに出ているので、簡易的な入力方法の紹介をします。
まず、目的のセルの先頭に木曜日となる日付を手入力します。
次のセルには先頭のセルを相対参照したうえで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
ありがとうございます!
関連するQ&A
AutoCADで書かれた部品表エクセルへの変換
お世話になります。 早速ですが、質問させていただきます。 客先よりAutocad(?拡張子DWG)で作成された部品表が届きました。 この部品表をエクセルに変...
FANUC座標表示とフィードバック値について
NCを勉強中の者です。 FANUCの画面にある座標値の表示には 「機械座標」「絶対座標」「相対座標」がありますが、 (サーボON中、) これらはサーボへの指令値...
アブソリュートエンコーダーの値をただ表示したいだけ
同期式シリアルインターフェース(SSI)の回転エンコーダーがあります。この値をただ表示するだけの装置を作りたいです。ちょっとした調整ジグ製作のため、機能拡張の可...
制御盤の表示ランプについて
自動車部品製造に係わる者です。工場内設備を見ていて気が付いたのですが、制御盤(コンプレッサーや排風機)の表示ランプで、運転ランプ→赤、緑 、停止ランプ→赤、緑 ...
幾何公差のデータム表示
幾何公差設計時のデータムの表示において、三角形記号を表示しますが、こな三角形記号の規定はないのでしょうか?いくつかの書籍をみると、二等辺三角形や正三角形で表示さ...
ベストアンサーを選ぶと質問が締切られます。
なおベストアンサーを選びなおすことはできません。
お礼
2020/07/15 10:19
ありがとうございます。参考にさせていただきます!