[[20040727011533]]　『塗りつぶしのセルの個数を数える』（あずき）　ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

　

『塗りつぶしのセルの個数を数える』（あずき）

Ａ列に塗りつぶしてあるセルがある場合のセルの個数を数える関数を教えてください。

---

 Alt+F11、挿入、標準モジュールとして、以下のものをコピーして貼り付けます。

 Function CountIro(hanni As Range)
 Dim r As Range
 For Each r In hanni
     If r.Interior.ColorIndex <> xlNone Then CountIro = CountIro + 1
 Next
 End Function

 セルに=COUNTIRO(対象範囲)としますと、範囲内でセル地に着色したセルの数が戻ります。(LOOKUP)

---

コメント返信：

---

[ 一覧(最新更新順) ]

---

YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.