質問: 1 Then 1日だったら他に追加したい作業があるので ifメソッドを使用しています。 1日を探すように修正したいのですが、 誰かご教示いただけませんか。
回答: Sub マクロ1() MsgBox Day(Range("A1").Value) End Sub あなたの書き方に合わすと Sub マクロ2() If Day(Selection.Value) = 1 Then MsgBox "月初めです。" End Sub