こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

EXCEL2003のマクロで

本日の日付をあるセルに入れるロジックを教えていただけますか。

できれば記述方は(yyyy.mm.dd)を希望します。

よろしくお願いします。

投稿日時 - 2004-10-14 13:54:13

QNo.1041701

すぐに回答ほしいです

質問者が選んだベストアンサー

日付型で入力の場合
Sub Macro1()
Selection.NumberFormatLocal = "yyyy.mm.dd"
ActiveCell.FormulaR1C1 = Date
End Sub

文字型で入力の場合
Sub Macro1()
ActiveCell.FormulaR1C1 = Format(Date, "yyyy.mm.dd")
End Sub

特定のセルの場合は、書式設定しておけば
Sub Macro1()
Worksheets("Sheet1").Range("A1").Formula = Date
End Sub

投稿日時 - 2004-10-14 14:05:49

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

0人が「このQ&Aが役に立った」と投票しています

回答(4)

ANo.4

(1)下記でも可能です。
Sub test01()
Cells(1, 1) = Now()
Cells(1, 1).NumberFormat = "yyyy.mm.dd"
End Sub
(2)#3のご回答の
=Date
(3)Sub test02()
Cells(1, 2) = Application.WorksheetFunction.today
Cells(1, 2).NumberFormat = "yyyy.mm.dd"
End Sub
はエラー。
Sub test02()
Cells(1, 2).formula = "=today()"
Cells(1, 2).NumberFormat = "yyyy.mm.dd"
End Sub

#3のご回答のように
Sub test03()
Cells(1, 2).Formula = Date
Cells(1, 2).NumberFormat = "yyyy.mm.dd"
End Sub
もOK。

投稿日時 - 2004-10-14 14:33:13

ANo.2

#1で訂正です。

×マクロを自動記録し、少し手摺りパイプを加えたら

○マクロを自動記録し、少し手を加えたら

辞書登録したあったのをそのままアップして
しまいました・・・。

投稿日時 - 2004-10-14 14:01:23

ANo.1

マクロを自動記録し、少し手摺りパイプを加えたら
↓のようになりました。

*********
Sub KYOU()
Sheets("SHEET1").Range("A5").FormulaR1C1 = "=TODAY()"
End Sub
*********

※当方エクセル2002

投稿日時 - 2004-10-14 13:59:16

あなたにオススメの質問