Excel VBA 質問スレ Part75

[706 デフォルトの名無しさん (ﾜｯﾁｮｲ 5dce-fe9w) 2022/04/03(日) 03:01:36.86 ID:J74pUyNp0]

俺は中身が1行の時はCaseを1行にまとめる派
Sub Macro()
　　Select Case True
　　　　Case C <> 1: errmsg ("C")
　　　　Case B <> 1: errmsg ("B")
　　　　Case A <> 1: errmsg ("A")
　　　　Case Else: MsgBox "メイン処理を実行します"
　　End Select
End Sub

Sub errmsg(s$)
　　MsgBox s & "=1じゃなかったので実行しなかった"
End Sub