[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『複数条件(指定色・指定文字)セルのカウント』(仁)
ある特定の文字・特定の色づけをしたセル数を特定範囲内からカウントしたい
(例えば、A1〜G4セルで「い」という文字を含み、且つ黄色に塗られたセルを
カウント)
それぞれ、単独の条件であれば自作関数でうまくいったのですが、
両方の条件を入れようと試作したところどうも上手くいかず困っています。
(両方文字とかなら簡単なのですが。。。)
何か良い方法がないものか、ご提案お願いいたします。
黄色になる条件は?
一応、
=SUMPRODUCT((指定文字条件論理式)*(指定色条件論理式))
(GobGob)
うまくいってる単独条件の関数を書いてみて。 (春日野馨)
Function CountColor(rng As Range, c As Range) As Long
Application.Volatile
Dim r As Range, x As Integer x = c.Interior.ColorIndex For Each r In rng If r.Interior.ColorIndex = x Then If r.Text = "特定の文字列" Then CountColor = CountColor + 1 End If End If Next End Function
としてみて、特定の文字列すべてが入力されているセル数はカウント
できるのですが、「特定の文字を含む」セルのカウントが上手くいきません。
此方初心者なもので、どこを変更すれば「特定の文字を含む」条件に変更できるの
かはっきりしません。どうぞ、ご指導のほどお願いいたします。
> If r.Text = "特定の文字列" Then If r.Text Like "*特定の文字列*" Then (ROUGE)
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.