エクセル2012でセル内の背景色をカウントしたい。 削除
| Message#2 2015年2月5日(木)12時10分 From: maicl |
| 色の指定の仕方もいろいろあって、1600万色もある色のうちから何色が何個あるなんて、一般的に数えるようなのは面倒。で、指定した色のインデックスを数えるようにした関数をつくったので、試してみる。 指定したセルの色のインデックスと同じ、選択範囲にある色インデックスのの数を返すようにした。インデックスだから、56色まで。 これを、標準モジュールに貼って、ユーザー関数として使えばいい。 Function cntcol(selrang As Range, testcol As Range) As Integer For Each c In selrang If c.Interior.colorindex = testcol.Interior.colorindex Then i = i + 1 End If Next cntcol = i End Function 「colorindex」を「color」に変えれば1600万色に対応するとおもう。 これを参考に、subを作ればいいでしょう。 「ＶＢＡについては無知」ということなので、これくらいのこと(ユーザー関数の使い方とか)でどうやっていいかわからないということなら、あきらめましょう。 |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。
