VBAか関数 「 ２と３の組合せ 」 の行が、いくつあるか？

質問

VBAか関数 「 ２と３の組合せ 」 の行が、いくつあるか？

Windows XP　Home Edition
SP3
Office XP Personal 2002
Excel 2002

画像の 「 C列　D列　E列 」 の 「 3列 」 だけを使った質問でございます。
数値は　2桁の整数　までしかありません。
6行目の「 C列　D列　E列 」以外で、オートフィルタをかけた後ですが、空白行もたまにございます。
オートフィルタをかけた後ですので、データのある最後行以下は全部空白です。　　
実際には、セルには色分けはされておりません。

---質問のまとめ--------------------------------------
● 「 ２ と ３ の組合せ 」（画像の黄色セル） の行が、いくつあるか？
を算出できる、関数　か　マクロは、ありますでしょうか？

質問の例では、答えは　「 ３行 」　となります。

存在しない場合には、「 ０行 」　となります。
-----------------------------------------------------

また、
「 １ と ３ の組合せ 」 の行が、いくつあるか？
「 * と * の組合せ 」 の行が、いくつあるか？
などのように、いろいろと算出できればと思っております。

非常にややこしい質問で、恐れ入ります。
今までは、手作業で、6行目にオートフィルタをかけて行っておりました。

何卒、ご教示のほどをお願い致します。

回答No.6

某HN クロメート(Chromate)（@CoalTar） · ベストアンサー

#4です。もう一案
f2セルはないも入力しない
f3セルに =AND(ISNUMBER(MATCH({2;3},C7:E7,0)))
答えは =DCOUNT(C6:E28,,F2:F3)

わかりやすい方
=DCOUNT(C6:E28,,G2:I8)
Criteriaは添付図参照

お礼

早速のご回答、ご丁寧に、誠に有難うございました。
先のご回答は、1回で算出できるのですね！

回答No.7

layy

質問の意図は、いくつあるか、じゃなくて、フィルタしても８行目や１１行目が出るから何とか該当のみの表示にしたい、のでは？。
同じ数値が重なる事はありえますか？、３と２と２とか。

030201や030111にして考えると１セルで判定になりまだまだ策はありそうですが。

お礼

ご回答、誠に有難うございました。

補足

ご回答、有難うございます。
＞質問の意図は、いくつあるか、じゃなくて、
＞フィルタしても８行目や１１行目が出るから何とか該当のみの表示にしたい、のでは？。
いいえ、そうではございません。
前進的な考えを有難うございます。。

＞同じ数値が重なる事はありえますか？、３と２と２とか。
ありえます。が、ほんの、たまにです。
この場合は、「 ２ と ３ の組合せ 」は1個とさせて頂きますが、
やむおえなければ、2個でも結構でございます。

回答No.5

jcctaira

VBAでユーザ関数を作成して見ました。

【基本的使用例】
=組み合わせ件数(C7:E13,2,3)

【VBA】
Function 組み合わせ件数(範囲 As Range, ParamArray 検索値())
　Dim マッチセル As Range
　Dim マッチ集合行 As Range
　Dim セル As Range

　組み合わせ件数 = 0
　If UBound(検索値) < 0 Then Exit Function
　For I = 0 To UBound(検索値)
　　　For Each セル In 範囲
　　　　　If セル = 検索値(I) Then
　　　　　　　If マッチセル Is Nothing Then Set マッチセル = セル
　　　　　　　Set マッチセル = Union(マッチセル, セル)
　　　　　End If
　　　Next
　　　If マッチセル Is Nothing Then Exit Function
　　　If I = 0 Then Set マッチ集合行 = マッチセル.EntireRow
　　　Set マッチ集合行 = Intersect(マッチ集合行.EntireRow, マッチセル.EntireRow)
　　　Set マッチセル = Nothing
　Next I
　組み合わせ件数 = Intersect(マッチ集合行, Columns(1)).Count
End Function

【蛇足】
関数は汎用的に作成していますので…
・検索値を任意の個数で指定できます。
　=組み合わせ件数(C7:E13,1)
　=組み合わせ件数(C7:E13,1,2,3)
・検索範囲を任意な範囲で指定できます。
　=組み合わせ件数(C7:Z13,1,2,3,4)
　=組み合わせ件数((C7:C14,D7:D14),1)

良ければ試してみて下さい。

お礼

早速のご回答、ご詳細、誠に有難うございました。
1,2,3,4　にも対応できるのですね！
自分には高レベルなコードかもしれませんが、
がんばって、使用させて頂きます。

回答No.4

某HN クロメート(Chromate)（@CoalTar）

もうちょっと何とかなんないかななんて思ったけど。。。
=SUM((MMULT((C7:E26=2)*1,{1;1;1})>=1)*(MMULT((C7:E26=3)*1,{1;1;1})>=1))
2 2 2
2 3 2
3 3 3
3 2 3
上記で当てはまるのは 2 3 2、3 2 3で2つですよね

お礼

早速のご回答、誠に有難うございました。

補足

ご回答、有難うございます。
ご返事遅くなり、すみません。

＞上記で当てはまるのは 2 3 2、3 2 3で2つですよね
はいそうです。

回答No.3

shinkami

セルＧ７の式
=IF(COUNTIF($C7:$E7,G$4+10*G$5)+COUNTIF($C7:$E7,10*G$4+G$5)>0,1,0)

このセルを下へ、右へコピーします

答えセルＧ６の式
=SUM(G7:G12)…Ｇ１２は仮です
この式を右へコピーします

任意の１桁の数値をセルＧ４とセルＧ５の以右へ入力します

お礼

早速のご回答、誠に有難うございました。

回答No.2

edomin7777

＃１です。
前の回答で、別の組合せの時にZ1とZ2を使用しましたが、それだとSUMの結果が変になります。
SUM(Z:Z)からZ1とZ2を引く
=SUM(Z:Z)-Z1-Z2
か、Z1とZ2を別の列に設定すればそのまま使用できます。

お礼

早速のご回答、誠に有難うございました。
ご丁寧に、有難うございました。

回答No.1

edomin7777

作業列を設けて、（例えばZ列を作業列としたとき、）Z7セルに
=COUNTIF(INDIRECT("C"&ROW()&":E"&ROW()),3)*COUNTIF(INDIRECT("C"&ROW()&":E"&ROW()),2)
と入力し、下にコピーしていきます。
合計行数を求めたいセルに、
=SUM(Z:Z)
と入力すると、行数が出ます。

別の組合せでも出したいときは、
１と３出はなく、
Z1セルとZ2セルに1、3を入力し、
=COUNTIF(INDIRECT("C"&ROW()&":E"&ROW()),Z1)*COUNTIF(INDIRECT("C"&ROW()&":E"&ROW()),Z2)
などとすると、別の組合せにも対応できます。

お礼

早速のご回答、誠に有難うございました。