投稿/コメントを表示します。

エクセルマクロ・VBA発展編１
発展１講座第４章 - Select Case 比較する条件の順番

田中 宏明さんの投稿

(投稿ID: 3928)

Select Case True いつの間にか
使っていました。
Sub SelectCaseTrue()
    Dim strEv As String
    Select Case True
        Case Range("I2").Value >= 105
            strEv = "超優良店舗"
        Case Range("I2").Value >= 100
            strEv = "優良店舗"
        Case Range("I2").Value >= 95
            strEv = "やや問題"
        Case Else
            strEv = "一層努力"
    End Select
    Range("J2").Value = strEv
End Sub

2018/05/30 05:43