例えば年齢別の範囲で判定したい場合等にすっきりと書ける。 Select Case w_年齢 Case Is <= 6 w_6 = w_6 + 1 Case 7 To 20 w_20 = w_20 + 1 Case 21 To 40 w_40 = w_40 + 1 Case Is >= 41 w_41 = w_41 + 1 End Select