例えば下表のように、何色のセルが何個あるのか数えたい場合がある。そんな時の為にユーザー定義の関数を作ってみた。
![]() Function CCOUNTIF(範囲 As Range, 色 As Range) As Integer Dim myrange As Range Dim iro As Integer Dim i As Integer iro = 色.Interior.ColorIndex i = 0 For Each myrange In 範囲 If myrange.Interior.ColorIndex = iro Then i = i + 1 End If Next CCOUNTIF = i End Function セルに直接この関数を入力してもいいが、関数のダイアログを表示させてもいいと。 ![]() 今回は範囲の部分を絶対参照にしたが、場合に応じて・・・ということで。 また、引数の『色』の部分にはその色が表示されていセルをクリックすればよい。 関数名はCOUNTIFをまねてCCOUNTIFとしてみた。
by slayer0210
| 2005-12-22 12:23
| マクロ
|
カテゴリ
以前の記事
フォロー中のブログ
検索
最新のトラックバック
その他のジャンル
ファン
記事ランキング
ブログジャンル
画像一覧
|
ファン申請 |
||