VBAで先月、先々月を求める方法

質問

Excel マクロで 先月、先々月を求め

「3月」「4月」（今月は5月）

と表示させたいのですが、どのようにして
求めたらよいのでしょうか？

回答No.2

merlionXX · ベストアンサー

Sub test01()
sg = DateSerial(Year(Date), Month(Date), 0)
ssg = DateSerial(Year(Date), Month(Date) - 1, 0)
MsgBox "先月は" & Month(sg) & "月、先々月は" & Month(ssg) & "月"
End Sub

では？

お礼

ありがとうございます

見事、自動入力させることができました。

回答No.3

BLUEPIXY

Public Sub sample()
Dim 今月 As Integer
Dim 先月 As Integer
Dim 先々月 As Integer

今月 = InputBox("今月は何月ですかぁ？", "月を入力して下さい", Month(Date))

先月 = 今月 - 1
If 先月 = 0 Then 先月 = 12
先々月 = 先月 - 1
If 先々月 = 0 Then 先々月 = 12

MsgBox "先々月=" & 先々月 & "月,先月=" & 先月 & "月(今月は" & 今月 & "月)"

End Sub

お礼

ありがとうございます。
しかし、自動入力にしたいのでinputbox は避けたいです

回答No.1

ipsum11

「=EDATE(TODAY(),1)」で一ヵ月後の日付が返されます。

「１」を「－１」にすれば一ヶ月前が返されます。

後はセルの書式を変更します。
これじゃだめですか？

お礼

ありがとうございます。

これでも、できました。
お礼もうしあげます