ID非公開

2022/7/6 14:32

22回答

エクセルVBAについてです。例えばF1セルに7月6日とあります。この日付の6をA3セルに入力し、A4セルにその次の数の7,A5セルにその次の数の8…のようになるマクロを作成したいです。

エクセルVBAについてです。例えばF1セルに7月6日とあります。この日付の6をA3セルに入力し、A4セルにその次の数の7,A5セルにその次の数の8…のようになるマクロを作成したいです。

Visual Basic | Excel・56閲覧

ベストアンサー

0
関数は苦手

カテゴリマスター

2022/7/6 14:59

月末日付に自動対応してます。 Sub Sample() Dim a As Long, z As Long a = Day(Range("F1").Value) z = Day(WorksheetFunction.EoMonth(Range("F1").Value, 0)) With Range("A3") .Value = a .DataSeries Rowcol:=xlColumns, Type:=xlLinear, step:=1, Stop:=z End With End Sub

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

ありがとうございます。 参考にします。

お礼日時：7/6 16:44

その他の回答（1件）

0
aka********

カテゴリマスター

2022/7/6 14:48

なぜ マクロ？ 目的は 何でしょうか 関数で A3セルに =F1 表示型式 dで 6になります そして A4セルに =A3＋１ 表示型式 dとして 以下オートフィルとしておけば 6，7，8，・、・、30，31、1、2 となります。 これは 各セルに 月日のデーターがはいり その日付のみを 表示させています。 A3セルに =DAY(F1) とすれば 月日ではなく 日にちの 6のみが 表示され ＝A3+１ で 6，7，8 と 表示されますが そのまま 31，31，32，33 と 増えてしまいます。 やられたいことは なんでしょうか 目的によって すべてが 変わります。 マクロは いずれにしても 不要かと

ID非公開

質問者2022/7/6 14:56

返信ありがとうございます。一週間の予定表を作成するためです。 週予定だけでなくいろんなものが繋がっております。 これを使うのは私ではなく、 他の人が使うため関数等では消される可能性があり使えなくなってしまいます。 なのでユーザーフォームを使って入力してもらうだけで完成できるように作成しております。