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

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

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

No.1 ベストアンサー 回答者： KenKen_SP 回答日時： 2004/12/14 13:48

こんにちは。

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

ですか？

この回答へのお礼

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

お礼日時：2004/12/15 00:31

No.6 回答者： WWolf 回答日時： 2004/12/14 20:42

Sub test()

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

No.5 回答者： WWolf 回答日時： 2004/12/14 20:40

Sub test()

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

この回答へのお礼

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

お礼日時：2004/12/15 00:34

No.4 回答者： maruru01 回答日時： 2004/12/14 15:34

No.2です。

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

No.3 回答者： imogasi 回答日時： 2004/12/14 14:21

エクセルの関数とエクセルＶＢＡの比較で、誤解があるのではないですか。

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

この回答へのお礼

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

お礼日時：2004/12/15 00:33

No.2 回答者： maruru01 回答日時： 2004/12/14 14:04

こんにちは。

maruru01です。

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

Range("A1").Value = Time

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

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

この回答へのお礼

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

お礼日時：2004/12/15 00:31