EXCEL２００３のマクロで

質問

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

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

よろしくお願いします。

回答No.3

mshr1962 · ベストアンサー

日付型で入力の場合
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

回答No.4

imogasi

（１）下記でも可能です。
Sub test01()
Cells(1, 1) = Now()
Cells(1, 1).NumberFormat = "yyyy.mm.dd"
End Sub
（２）＃３のご回答の
=Date
（３）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
か
＃３のご回答のように
Sub test03()
Cells(1, 2).Formula = Date
Cells(1, 2).NumberFormat = "yyyy.mm.dd"
End Sub
もOK。

回答No.2

marbin

＃1で訂正です。

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

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

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

回答No.1

marbin

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

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

※当方エクセル2002