ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¤T­Ó­È¤§¶¡ªº>©Î=©Î<ªº±Æ¦C²Õ¦X

[µo°Ý] ¤T­Ó­È¤§¶¡ªº>©Î=©Î<ªº±Æ¦C²Õ¦X

¯¬ºÖ¦U¦ì¤j¤j¡J·s¬K§Ö¼Ö¡I



±Æ¦C²Õ¦X.png
2018-2-18 19:33


°²³]¦³¤T­Ó­È¡JA,B,C
±N¤T­Ó­È¤§¶¡ªº"¤j©ó"©Î"µ¥©ó"©Î"¤p©ó"ªº±Æ¦C²Õ¦X(­«½Æªº²Õ¦X¡A«h¨ú¨ä1­Ó²Õ¦X)ªí¦C©óAÄæ¡C
EX:
A1= A>B,A>C,B>C
A2= A>B,A>C,B=C
A3= A>B,A>C,B<C
¨ä¾l......¥H¦¹Ãþ±À

½Ð°Ý¡JVBAªº»yªk½s¼g¡CÁÂÁÂ!

³Æµù:
A,B,C³£¬O>0ªº¾ã¼Æ¡CÁÂÁÂ!

TOP

¦^´_ 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

TOP

ÀH·NºÛ "EXCEL°g"  blog  ©Îhttps://hcm19522.blogspot.com/ EXCEL¨ç¼Æ

TOP

¥»©«³Ì«á¥Ñ papaya ©ó 2018-2-21 20:43 ½s¿è

¦^´_ 3# jackyq
j¤j:·s¬K§Ö¼Ö!
§Æ±æ³Ì«áªº¿é¥Xµ²ªG¬O:
(1)
A1= A>B,A>C,B>C
A2= A>B,A>C,B=C
A3= A>B,A>C,B<C

­«½Æªº²Õ¦X¡A«h¨ú¨ä1­Ó²Õ¦X¡A«h¦@¦³3*3*3=27²Õ
¦ý¤£¦¨¥ßªº¤£¦C¥X
EX:
A>B,A=C,B>C
A>B,A=C,B=C

³Ò¾rÀ°¦£!ÁÂÁ±z!

TOP

¥»©«³Ì«á¥Ñ papaya ©ó 2018-2-21 20:56 ½s¿è

¦^´_ 4# hcm19522
j¤j:·s¬K§Ö¼Ö!
·PÁ±zªº¨ç¼Æ¸Ñ^^
½Ð°Ý:
1_2007ª©ªºIFERROR¨ç¼Æ­n¦p¦ó§ï¦¨2003ª©ªºISNA¨ÓÀ³¥Î

2_A,B,C"¤TªÌ¤§¶¡ªº>"©Î"="©Î"<"¦³½Ä¬ðªº(§Y¤£¯à¦¨¥ß)²Õ¦X¡A¤£¦C¥X®É~
EX:
B4ªºA>B,A=C,B>C
B5ªºA>B,A=C,B=C
B7ªºA>B,A<C,B>C
B8ªºA>B,A<C,B=C
:
:
¤½¦¡­n¦p¦ó­×¥¿?
³Ò¾r¦A½ç¥¿!
ÁÂÁ±z!

TOP

¦^´_ 6# papaya


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

TOP

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

TOP

¦^´_ 4# hcm19522
h¤j:·s¬K§Ö¼Ö!
·PÁ±zªº¨ç¼Æ¸Ñ^^
½Ð°Ý:
¤è¦¡¤GC1:C28=IF(ROW(A1)>27,"","A"&MID(">=<",INT(ROW(A9)/9),1)&"B,A"&MID(">=<",MOD(INT(ROW(A3)/3)-1,3)+1,1)&"C,B"&MID(">=<",MOD(ROW(A1)-1,3)+1,1)&"C")
A,B,C"¤TªÌ¤§¶¡ªº>"©Î"="©Î"<"¦³½Ä¬ðªº(§Y¤£¯à¦¨¥ß)²Õ¦X¡A¤£¦C¥X®É~
EX:
B4ªºA>B,A=C,B>C
B5ªºA>B,A=C,B=C
B7ªºA>B,A<C,B>C
B8ªºA>B,A<C,B=C
:
:
¤½¦¡­n¦p¦ó­×¥¿?
³Ò¾r¦A½ç¥¿!
ÁÂÁ±z!

TOP

¦^´_ 8# jackyq
j¤j:
·PÁ±zªºµ{¦¡¸Ñ^^

´ú¸Õ«á~µª®×§¹¥þ¥¿½T~·P®¦^^

TOP

        ÀR«ä¦Û¦b : ¨Ã«D¦³¿ú¾{¬O§Ö¼Ö¡A°Ý¤ßµL·\¤ß³Ì¦w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD