【Excel VBA】Select~Caseステートメントで1つの対象に対して複数条件で処理を分岐させる方法