[[20071005143029]]　『フィルターをかけた後の合計についてＳ』（みきたん）　ページの最後に飛ぶ

『フィルターをかけた後の合計についてＳ』（みきたん）

データには「くろ●」と「赤●」が混ざっておりまして（縦一列のみです）、「赤●」だけの数を数えたいのですが、COUNT IFでの論理式などでしょうか。フィルターでは赤丸の抽出ができますが、その後の計算方法がわかりません。よろしくお願い申し上げます。

 ＞データには「くろ●」と「赤●」が混ざっておりまして
 1.この“くろ”“赤”と言うのは文字ですか？
 2.それとも“●”の文字色ですか？
 3.あるいはこの“●”と言うのは任意の文字をあらわしますか？

 1の場合は COUNTIF(範囲,"赤●")
 3の場合は COUNTIF(範囲,"赤*")
 で数えられると思いますよ。

 なお、3の場合でセル参照をするなら
 参照先のセル番地に「赤」と入力し
 　COUNTIF(範囲,セル番地&"*")　とするか
 参照先のセル番地に「赤*」と入力し
 　COUNTIF(範囲,セル番地)　として下さい。

 フィルタをかけたいのではなく
 目的のものの数を数えたいのですよね？

 (HANA)

 ありがとうございます。説明不足ですみません。
 正確には２番で、フォントの色がくろ、赤で、●を表示してます
 （ここでは●を赤で示せないので）

 　　A列
 　　●　←これ黒のフォント
 　　●　　←これ赤のフォント
 　　●　←これ黒のフォント
 　　●　　←これ赤のフォント
 　　●　←これ黒のフォント
 合計２
 　
 としたいです。

 バージョンが2007ですね。

 2007の関数は分からないのですが
 見たところ文字色でCOUNTは出来ないみたいなので・・・。
[[20060309180850]]『セル色をカウントする方法』（よよ）
[[20060502142632]]『指定色文字以外の合計』（HH）  
[[20070502135246]]『COUNTIFについて』（kurop）
 この辺りが参考になりそうですか？

 「色での分類」と言う考え方は使わない方が
 集計等は簡単に出来るようになると思いますよ。

 (HANA)

 こんな関数はいかがでせうか？条件式書式で付けた色ならこれから下は読まないで^^
 赤丸のカウントは=kimitan(範囲,"赤") と黒丸のカウントは=kimitan(範囲)だけで
 OKです。色を変更したばやいはF9キーを叩いて再計算させなければなりまへん。
 標準モジュールに下のコードをコピペ
 　　　　（弥太郎）
 Function kimitan(adrs As Range, Optional colr As String)
    Dim c As Range
    Application.Volatile
    If colr = "" Then colr = xlAutomatic
    If colr = "赤" Then colr = 3
    For Each c In adrs
        If c.Value = "●" And c.Font.ColorIndex = colr Then
            kimitan = kimitan + 1
        End If
    Next c
 End Function

みなさまありがとうございました！モジュール系はまだ勉強中ですので
置き換えてカウントしました。色系は難しいのです・・・。

コメント返信：

[ 一覧(最新更新順) ]

[[20071005143029]] 『フィルターをかけた後の合計についてＳ』（みきたん） ページの最後に飛ぶ

[[20071005143029]]　『フィルターをかけた後の合計についてＳ』（みきたん）　ページの最後に飛ぶ