Excell : 日付を設定するマクロの書き方

質問

マクロの中で、今日の日付を設定する書き方を教えてください。例えば、セル A1に今日の日付を設定する。
A1に =today() を書くのではなくて、today()の返す値を設定するということになります。よろしくお願いします。

Sub test1()
　　　............
End Sub

回答No.1

KenKen_SP · ベストアンサー

こんにちは。

Range("A1").Value = Now()

ですか？

お礼

回答ありがとうございます。この方法で解決しました。

回答No.6

WWolf

Sub test()
a = Date
MsgBox a
End Sub
これでよろしいでしょうか？

回答No.5

WWolf

Sub test()
a = Month(Now) & "月" & Day(Now) & "日"
MsgBox a
End Sub
これでよろしいでしょうか？

お礼

回答ありがとうございます。

回答No.4

maruru01

No.2です。

間違えました。
×Time
↓
○Date

回答No.3

imogasi

エクセルの関数とエクセルＶＢＡの比較で、誤解があるのではないですか。
関数式は＝ＴＯＤＡＹ（）と入れると、ブックをオープン
するごとに（ストップしておかない限り）再計算されて、当日の日付に変わります。
ＶＢＡでもWorkbookOpenなどのイベント・プロセジュアに入れておくとそうなる場合がありますが、そうでなければ、自動実行されることはありません。
実行しても
Cells(i, j) = Date
の左辺のセルを指定するｉ，ｊをその日にふさわしいセルに移動（指定）する（例えば前日書き込みの最終行の次行）ように考えてますので、前の回の日付には上書きしないようにします（出来ます）。
上書きしても良いケースも勿論あり得ます。
使う場合によります。
質問の題意の取り方が狂っている場合はご容赦を。

お礼

回答ありがとうございます。意図は、「セルにtoday()関数を設定する」のではなくて、「セルのtoday()関数の戻り値を設定する」ということでした。

回答No.2

maruru01

こんにちは。maruru01です。

TODAY関数の代わりなら、Time関数の方かな。

Range("A1").Value = Time

Now関数は、時刻付きなので、ワークシート関数のNOW関数と同じになります。
ま、Nowでも小数点以下を切り捨てれば同じですが。

Range("A1").Value = Int(Now)

お礼

回答ありがとうございます。