【Excel VBA】If~ThenステートメントとAnd演算子で複数条件(~かつ)を設定する方法