'--------------------------------------------------------------------------------- Sub IfThenElseで条件に応じて処理する() If Range("E9") = 4 Then '※2 4月なら 月別処理4 '※3 ElseIf Range("E9") = 5 Then '※2 5月なら 月別処理5 ElseIf Range("E9") = 6 Then '※2 6月なら 月別処理6 Else 'その他なら 月別処理その他 End If End Sub '--------------------------------------------------------------------------------- <コメント> ※1 この例では、If~Then~Elseを使って月を調べているが、月