Sub Macro1()
res = InputBox("2を入力してください")
If res = "2" Then
MsgBox ("Macro1で2が入力")
ElseIf res = "" Then
MsgBox ("Macro1でキャンセル")
Else
MsgBox ("Macro1で2以外が入力")
End If
End Sub
Sub Macro2()
res = InputBox("2を入力してください")
Select Case res
Case "2"
MsgBox ("Macro2で2が入力")
Case ""
MsgBox ("Macro2でキャンセル")
Case Else
MsgBox ("Macro2で2以外が入力")
End Select
End Sub







