セルの日付を変更したい

質問

アクティブシートに平成21年3月31日と表示されています。
そして次のマクロを実行すると
Sub Macro1()
Range("P3").Select
ActiveCell.FormulaR1C1 = p3 + 20
Range("P3").Select
End Sub
セルＰ3には、明治33年1月20日と表示されます。
これを平成21年4月20日と表示させるにはどうしたらよろしいでしょうか。

回答No.2

piro19820122 · ベストアンサー

VBではなく、VBAの質問という認識でよろしいですか？
エクセルのVBAのことだとして回答します。違ったらスルーしてください。

まず問題点を挙げておきます。
ActiveCell.FormulaR1C1 = p3 + 20

おそらく セルP3の値 +20 としたいのでしょうが違います。
FormulaR1C1 と R1C1形式を指定しているのに、p3 というA1形式の指定になっています。またこれでは循環参照になってしまいます。

素直に適当な変数を用意して、
tmp = Range("P3").Value
Range("P3").Value = tmp + 20
のようなコードにするべきでしょう。

お礼

いまじっけんしましたら　完璧にできました　ありがとうございました。

回答No.3

hige_082

Sub Macro1()
[p3]= [p3 + 20]
End Sub

参考まで

回答No.1

hana-hana3

Range("P3").value = Range("P3").value + 20