エクセルのマクロで、指定した条件を満足する組み合わせを表示する方法？

質問

エクセルで、例えば
　　　　イ　ロ　ハ
Ａ－ａ　３　６　０
Ａ－ｂ　０　５　１
Ａ－ｃ　２　０　５

　　　　イ　ロ　ハ
Ｂ－ａ　３　０　０
Ｂ－ｂ　５　３　１
Ｂ－ｃ　０　２　０

　　　　イ　ロ　ハ
Ｃ－ａ　０　５　０
Ｃ－ｂ　０　４　５
Ｃ－ｃ　０　０　２

のように幾つかのグループ(A、B、C)があって、
それぞれのグループに幾つかのサンプル(a、b、c)があって、
それぞれのサンプルに幾つかの属性(イ、ロ、ハ)があるとして、

(イ 5以上　ロ 10以上　ハ 5以上)

のように属性を任意に指定すると、それぞれのグループから一つずつサンプルを選択して、
指定した条件を満足する組み合わせを表示する方法ってありますか？

イ 5以上　ロ 10以上　ハ 5以上の指定だと、

　　　　イ　　ロ　　ハ
Ａ－ａ　３　　６　　０
Ｂ－ａ　３　　０　　０
Ｃ－ｂ　０　　４　　５
　　　　６　１０　　５

　　　　イ　　ロ　　ハ
Ａ－ａ　３　　６　　０
Ｂ－ｂ　５　　３　　１
Ｃ－ｂ　０　　４　　５
　　　　８　１３　　６

　　　　イ　　ロ　　ハ
Ａ－ｂ　０　　５　　１
Ｂ－ｂ　５　　３　　１
Ｃ－ｂ　０　　４　　５
　　　　５　１２　　７

のように表示してくれると良いのですが。
教えてください、よろしくお願いします。

回答No.3

n-jun · ベストアンサー

Ａ　　Ｂ　Ｃ　Ｄ
　１　　　　　イ　ロ　ハ
　２　Ａ－ａ　３　６　０
　３　Ａ－ｂ　０　５　１
　４　Ａ－ｃ　２　０　５
　５
　６　　　　　イ　ロ　ハ
　７　Ｂ－ａ　３　０　０
　８　Ｂ－ｂ　５　３　１
　９　Ｂ－ｃ　０　２　０
１０
１１　　　　　イ　ロ　ハ
１２　Ｃ－ａ　０　５　０
１３　Ｃ－ｂ　０　４　５
１４　Ｃ－ｃ　０　０　２
と言うデータだったとします。

結果はＨ～Ｋ列に書き出します。

Sub　test()
　Dim　i　As　Integer
　Dim　j　As　Integer
　Dim　k　As　Integer
　Dim　m　As　Integer
　Dim　a,　b,　c,　x

　ReDim　x(1　To　4,　1　To　4):　m　=　4

　a　=　Range("A2:D4").Value
　b　=　Range("A7:D9").Value
　c　=　Range("A12:D14").Value

　For　i　=　1　To　UBound(a,　1)
　　　　　For　j　=　1　To　UBound(b,　1)
　　　　　　　　　For　k　=　1　To　UBound(c,　1)

If　(a(i,　2)　+　b(j,　2)　+　c(k,　2))　>=　5　And　_
　　　(a(i,　3)　+　b(j,　3)　+　c(k,　3))　>=　10　And　_
　　　(a(i,　4)　+　b(j,　4)　+　c(k,　4))　>=　5　Then
　　　x(1,　m　-　3)　=　a(i,　1):　x(2,　m　-　3)　=　a(i,　2):　x(3,　m　-　3)　=　a(i,　3):　x(4,　m　-　3)　=　a(i,　4)
　　　x(1,　m　-　2)　=　b(j,　1):　x(2,　m　-　2)　=　b(j,　2):　x(3,　m　-　2)　=　b(j,　3):　x(4,　m　-　2)　=　b(j,　4)
　　　x(1,　m　-　1)　=　c(k,　1):　x(2,　m　-　1)　=　c(k,　2):　x(3,　m　-　1)　=　c(k,　3):　x(4,　m　-　1)　=　c(k,　4)
　　　x(2,　m)　=　a(i,　2)　+　b(j,　2)　+　c(k,　2)
　　　x(3,　m)　=　a(i,　3)　+　b(j,　3)　+　c(k,　3)
　　　x(4,　m)　=　a(i,　4)　+　b(j,　4)　+　c(k,　4)
　　　m　=　m　+　5
　　　ReDim　Preserve　x(1　To　4,　1　To　m)
End　If

　　　　　　　　　Next
　　　　　Next
　Next
　Range("I1:k1").Value　=　Array("イ",　"ロ",　"ハ")
　Range("H2").Resize(m　-　5,　4).Value　=　Application.Transpose(x)
End　Sub
ご参考まで。

お礼

おお！ありがとう御座います。
グループは別シートでした・・・、でも、後は自分でやってみます
本当にありがとうです。感謝感謝

回答No.2

n-jun

ANo.1です。

グループと書かれてますが、それがシート上にどのようになっているのかが不明です。
（同じシートにあるのか、別のシートにあるのか、どこのセルにどのようにあるのか）

回答No.1

n-jun

グループＡ・Ｂ・Ｃにおいて、条件を満たすまでループさせるしかないのでは？

お礼

ご回答ありがとう御座います。
グループが無くて（サンプルのみ）で属性が一つだけだと出来るのですが、
・各グループから一つだけ
・複数の条件を満たす結果を返す
と、云う様な方法が解らなくて・・・。
ありがとう御座いました。