Color関数(関数、アドイン)

作者： kazu＋通りすがりの者

色の付いたセルの合計や色の付いたセル数を求めることができる関数です

(1) ダウンロード

[2017/11/07 最新版]：UFClr20171107.zip (41KB)

セルにデータが入力されているものだけ計数するように改訂
いきさつなど → [[20171027183207]]『こちらで公開されているcolor関数をもっと...』（カレンダー）
2つのファイルをまとめる圧縮方法を .lzh から .zip に変更
アドイン・ファイルの拡張子を .xla から .xlam に変更 (Excel2007以前の方ごめんなさい)
ツールバー UFClr[再計算]の追加をExcel起動時からアドイン組み込み時に変更

ダウンロードした UFClr20171107.zip を解凍すると下↓の2つのファイルが入っています

UFClr20171107.xls ← Color関数を組み込んだ普通のブック
このブックの中にマクロ組み込まれています。
このブックのワークシート上で =UFClrSumfc(A1:A5,3) などと入力して使用します。
UFClr20171107.xlam ← アドイン
アドインは一度そのコンピュータにセットアップすると新規ブックでも =UFClrSumfc(A1:A5,3) のような式を使用できるようになります。設置する場所はOSのバージョンやExcelのバージョンによって違います。

アドイン UFClr20171107.xlam を設置します、
自分の OS (Windows) のバージョンや Excel のバージョンで設置する場所は変わります

Windows10 で Office2016 の場合：
C:¥Users¥ユーザー名¥AppData¥Roaming¥Microsoft¥AddIns または
C:¥Program Files¥Microsoft Office¥root¥Office16¥Library
Windows8.2 で Office2013 の場合：
C:¥Users¥ユーザー名¥AppData¥Roaming¥Microsoft¥AddIns または
C:¥Program Files¥Microsoft Office¥root¥Office15¥Library
Windows7 で Office2010 の場合：
C:¥Users¥ユーザー名¥AppData¥Roaming¥Microsoft¥AddIns または
C:¥Program Files¥Microsoft Office¥root¥Office14¥Library
Windows Vista の場合：
C:¥ユーザー¥ユーザー名¥AppData¥Roaming¥Microsoft¥AddIns
Windows 2000または Windows XP：
C:¥Documents and Settings¥ユーザー名¥Application Data¥Microsoft¥AddIns
Windows 98：
C:¥Program Files¥Microsoft Office¥Office¥Library または
C:¥Windows¥Application Data¥Microsoft¥Addins

[注意1] ユーザー名はPCにログインするときの名前です
[注意2] AppDataフォルダーなどは隠しファイルなので、フォルダーの [表示タブ] → [表示/非表示] で [隠しファイル] にチェックを入れないと見えません
[注意3] Windows10の場合、エクスプローラ → 左フレームにあるPC → ローカルディスク(C:) → ユーザー → ユーザー名 → AppData → Roaming → Microsoft → Addins のように順々に開いてからアドインを設置します

[ファイル] → [オプション] → [アドイン] → [管理(A)：Excel アドイン設定] で有効なアドイン：UFClr20171107 のところにチェックを入れて [有効] にし、[OK]ボタンを押します

関数名は合計を求めるものには Sum が、件数を求めるものには Cnt が付いています。
自分が使いたい機能を考えて、その関数名をワークシート上で使用します

UFClr20171107.xls ではsheet1 のA列にデータが、C列に関数式が、D列にその説明が入っています

セルの値を変更した場合はきちんと自動再計算してくれますが、セルの色や文字色を変更した場合、
Excelは自動再計算してくれません

アドインが見つからないなど、トラブルが起きた時、下のようなダイアログが表示されます

このブックには、安全ではない可能性のある外部ソースへのリンクが1つ以上含まれています。
リンクを信頼できる場合、リンクを更新して最新データを取り込みます。信頼できない場合は、
データをそのまま手元で処理してかまいません。
ブック内の一部のリンクはすぐに更新できません。
値を更新せずにそのままにするか、間違って入ると思われるリンクを編集してください。
アドインを使っているセルの関数式が下図のように、ややこしくなっています。

[対策]

Windows8.2 で Excel2013 の環境で、アドインを設置してきちんと設定しても、繰り返し上図のようなダイアログが表示される場合があります。
インターネットからダウンロードしたアドイン・ファイルに [ブロックマーク] がついているためです
アドイン UFClr20171107.xlam を設置したところで、ファイルを選択して、マウスで [右クリック] してプロパティで[ブロックマーク] を表示させ、下図を参考に解除して下さい。

最新版以前の履歴
- [2014/04/04]：UFClr20140404.lzh
  Application.Volatile でExcelが強制終了する問題の対策で、OnKey 機能を使って[F9]キーで再計算するように改訂、詳細 → Microsoft Excelは動作を停止しました
- [2013/12/28]：UFClr1228.lzh
  [F9]で再計算させるため Application.Volatile を追加

[[20171027183207]]『こちらで公開されているcolor関数をもっと...』（カレンダー）
セルにデータが入力されているものだけ計数するように改訂
[[20140810090742]]『塗りつぶしたセルのカウント』（和代）
条件付き書式対応版に根本的問題があるため公開を停止しました
[[20140404152537]]『UFClr1228の不具合』（matsudesk）
セル結合でExcelがクラッシュする問題が発生し...この問題対応で改訂
[[20131226153253]]『UFClrSumccx関数について』（とも）
ここで再計算問題を改訂
[[20030522020924]]『色のついたセルの数え方』（ミヤ）
このページのやり取りからこの Color関数が生まれました

2021/12/01：更新 2004/04/04：登録訪問者：カウンタ