質問: 特定条件下でのセル個数をカウントするマクロに関しての質問です。
回答: 1) >アクティブセルと同じ数字が入力され、 >しかも緑(4)で着色された直近のセルを探す。 If (.Value = myRng.Value) Then Exit For なので、探すのではなく、見つかったら検索の繰り返しを中止する、ですね。 2) >Case 33,38にしましたら、説明2のセル(Case 33, 38)が >存在するのに認識されず 1の条件(1つ目のCase文に書かれたもの)に合致するものは、2つ目以降のCase文の条件は検査されません。1つのSelect文と対になっているCase文は、上から順に検査され、検査条件を満たせば、以降のCase文の条件は検査されません。 なので、Case文に同一条件が書かれた場合は1つ目のCase文しか有効になりません。 3) >11行目をCase 33, 38にしても、 >13行目のCase 33, 38が認識される様にして頂けませんか。 以上のようにSelect~Caseを使う限り無理。 条件が2つならIF文に書き換えですが、1と2の条件が同じという状況で違う処理を行うということ自体理解しがたいのですが。。。。 なにをやりたいのか詳しい説明が必要に思いませんか?