jackyq

¦^´_ 2# papaya

°²³] A=1 , B=2, C=3
³Ì«áªº¿é¥Xµ²ªG

§A¨ì©³¬O­n
(1)
A1= A>B,A>C,B>C
A2= A>B,A>C,B=C
A3= A>B,A>C,B<C

ÁÙ¬O
(2)
A1= A<B,A<C,B<C

ÁÙ¬O

(3)
A1= 1<2,1<3,2<3

jackyq

¦^´_ 6# papaya


    ²×©ó¬ÝÀ´§A­n·F³Â

jackyq

Public Sub ³Ì²³æªk___________¸Õ»~()

          ABC = Split("A>B,A>C,B>C", ">")
       ¹Bºâ¤l = Split(">,=,<", ",")
    ABC_Count = UBound(ABC) - LBound(ABC) + 1
¹Bºâ¤l_Count = UBound(¹Bºâ¤l) - LBound(¹Bºâ¤l) + 1

Set VBScript = CreateObject("MSScriptControl.ScriptControl")
    VBScript.Language = "VBScript"
     
Cells.Clear
For k1 = LBound(¹Bºâ¤l) To UBound(¹Bºâ¤l)
For k2 = LBound(¹Bºâ¤l) To UBound(¹Bºâ¤l)
For k3 = LBound(¹Bºâ¤l) To UBound(¹Bºâ¤l)

     For value_try1 = 1 To ABC_Count
     For value_try2 = 1 To ABC_Count
     For value_try3 = 1 To ABC_Count
         s = value_try1 & ¹Bºâ¤l(k1) & value_try2 & " AND " & _
             value_try1 & ¹Bºâ¤l(k2) & value_try3 & " AND " & _
             value_try2 & ¹Bºâ¤l(k3) & value_try3 _

         If VBScript.Eval(s) Then
            rr = rr + 1
            Cells(rr, 1) = ABC(0) + ¹Bºâ¤l(k1) + _
                           ABC(1) + ¹Bºâ¤l(k2) + _
                           ABC(2) + ¹Bºâ¤l(k3) + _
                           ABC(3)
            
            value_try1 = ABC_Count
            value_try2 = ABC_Count
            value_try3 = ABC_Count
         End If
     Next
     Next
     Next

Next
Next
Next

End Sub