指定した合計数と奇数＆偶数の数字を抽出する。

質問

どなたかご存じでしたら回答をお願いします。
数字選択式宝くじの「ミニロト」の組合せをフリーソフトで作成＆ＣＳＶデータに出力しています。
これをエクセルに取りこむと下記のようになります。
【作成されてエクセルに取りこんだＣＳＶデータ】
01 03 05 07 12
01 03 05 07 15
01 03 05 12 15
01 03 07 12 15
01 05 07 12 15
03 05 07 12 15

ここから、「５つの数字の横合計の合計数が○○以上～○○未満で、奇数が○個、偶数が○個のデータを抽出する。」というのをエクセルでやりたいですがどうやればよいでしょうか？
できれば１回の操作で結果が出るのがよいです。
上記例でいうと、「５つの数字の横合計の合計数が30以上～40未満で、奇数が４個、偶数が１個」と指定すれば下記抽出結果が得られる。
【抽出結果】
01 03 05 12 15
01 03 07 12 15
01 05 07 12 15

ＣＳＶデータは１個～１６９９１１個まであります。
ＣＳＶデータの中には奇数が0個で偶数が５個というのもあります。（その逆ももちろんあります。）
エクセルの操作およびＶＢＡでのソースを教えて下さい。
よろしくお願いします。

回答No.1

MackyNo1 · ベストアンサー

ご希望のデータを抽出するには、数式を使ったフィルタオプションの設定を利用するのが簡単です。

添付画像のように、1行目に項目名が入力されているリストで、H1～H3セルに抽出条件が入力されているならG5セルに以下の数式を入力しておきます。

=AND(AND(SUM(A2:E2)>=$H$1,SUM(A2:E2)<$H$2),SUMPRODUCT((A2:E2=ODD(A2:E2))*1)=$H$3)

このようなシートで、「データ」「フィルタ」「フィルタオプションの設定」(2007以降なら「詳細設定」をクリック）を選択し、リスト範囲をAからE列のデータ範囲、検索条件範囲を「G4:G5」（空白セルと数式セル）、抽出先を指定した範囲にしてJ1セルを選択してOKしてみてください。

お礼

早速のご回答ありがとうございました。
私のエクセルは2007なので早速試した結果、
同じ結果になりました。
質問ですが、
＞検索条件範囲を「G4:G5」（空白セルと数式セル）、

なぜ、空白セルと数式セルを範囲にするのですか？
数式セルだけ（G5)にすると何も絞られずに全てのデータ（6件）がでてきました。

回答No.2

MackyNo1

＞なぜ、空白セルと数式セルを範囲にするのですか？

フィルタオプションの設定の検索条件範囲は、基本的に抽出条件とする項目名の下に条件を入力する（範囲指定する）ことになっています。
しかし、数式を純粋な数式を検索条件とする場合は、一番上のデータセットに対する数式を入力することになりますが、この場合は特定の項目名がないので、実際にある項目名ではなく空白セルを便宜上の項目名として指定することになるわけです。
したがって実際にはない適当な項目名であれば空白でなくとも構いません。

数式を使ったフィルタオプションの設定については以下のページを参考にしてください。
http://www.excel-jiten.net/database/extract_filter_option_formula_2.html

お礼

エクセルの勉強になりました。
ありがとうございました。