Switch関数を使った条件分岐 今回はSwitch関数を使った条件分岐についてメモしておきます。 実行プログラム Sub Sample2_4_1() Dim intScore As Integer intScore = Cells(1, 2).Value MsgBox Switch(intScore >= 70, "合格", intScore < 70, "不合格") End Sub 123456789 Sub Sample2_4_1() Dim intScore As Integer intScore = Cells(1, 2).Value MsgBox Switch(intScore >= 70, "合格", intScore < 70, "不合格") End Sub 実行後 Twitter Facebook Google+ Pocket B!はてブ LINE