[µo°Ý] EXCEL¨âµ§¸ê®Æªº¤ñ¹ï»PÂà¸m

cosplay123

¦pªG§Ú¦³¨âµ§¸ê®Æ :"¤Þ¥Î" ¸ò "³Q¤Þ¥Î"

§Ú­n¹ï¤ñ¨âµ§ªº¸ê®Æ ¥ÎÂà¸m¯x°}ªº§Î¦¡ªí¥Ü

¨â­Ó¦³Ãöªº´NÅã¥Ü"1"  µLÃöÅã¥Ü"0"

EX:
                                86 S.Ct. 684        138 F.3d 1448        106 S.Ct. 2505        52 F.3d 967        116 S.Ct. 1384        70 S.Ct. 854        90 F.3d 1576        117 S.Ct. 1040        71 S.Ct. 127        775 F.2d 1107
1 F.3d 1253(1)                     0                                      0                                  0                          0                                       0                              0                             0                                      0                              0                              1
1 F.3d 1253(2)                0                              0                                  0                          0                                       0                              0                             0                              0                               0                               1


¦]¬°§Ú¤§«e³£¥Î¤â°ÊºCºCKEY  ¤£¹L¸ê®Æ¦³®É­Ô¶W¹L¤@¸Uµ§§Ú´N·w¤FQQ

«ô°U¦U¦ì¤j¤jÀ°À°§Ú><

hugh0620

¼Ó¥D~ §AÁ|¨Òªº¨Ò¤l¦³¨Ç¤£²M·¡~
1 F.3d 1253(1)
1 F.3d 1253(2)
¬O¦³¬ÛÃöªº~
¦ý~ ¨S¦³»¡©ú~
¦pªG¦³¬ÛÃö­n±N¬ÛÃöªº
1. ©ñ¦b­þ¤@­ÓÄæ¦ì (¨S¦³´£¨Ñ¤@­Ókey~ «ç»ò©ñ©O?? ÁÙ¬O¥þ³¡©ñ¦b¦P¤@­ÓÄæ¦ì¤º)
2. «ç»òªí¥Ü¬ÛÃöªº (´NÅã¥Ü1¹À??)

hugh0620

¦^´_ 1# cosplay123


    ´£¨Ñ¤@­Ó²Âªº¤è¦¡
    §Æ±æ§A¬ÝªºÀ´~
   

¤U¸ü (73.04 KB)

2012-3-12 12:08

cosplay123

EX:

¤Þ¥Î     ³Q¤Þ¥Î                                     e       f       a        g  
a                e                                   a      1      0      0        0
b                f                                    b     0      1      0        0
c                a                                    c     0      0      1        0
d               e                                    d     1      0      0        0

¤£ª¾¹D³o¼Ë¤j¤j¬Ý±oÀ´¶Ü><

cosplay123

EX:

¤Þ¥Î     ³Q¤Þ¥Î                                     e       f       a        g  
a                e                                   a      1      0      0        0
b                f                                    b     0      1      0        0
c                a                                    c     0      0      1        0
d               e                                    d     1      0      0        0

¤£ª¾¹D³o¼Ë¤j¤j¬Ý±oÀ´¶Ü><

Hsieh

¦^´_ 5# cosplay123

­«ÂI¬O¸ê®ÆªºÃöÁp¦p¦ó§PÂ_?
½Ð¤W¶Ç²³æ½d¨Ò»¡©ú

XDshining

¡@AÄæ¦ì¡@ ¢ÐÄæ¦ì
¡@¤Þ¥Î¡@¡@³Q¤Þ¥Î¡@¡@¡@¡U¡@¡@¡@¡@¡@£C¡@£B¡@£A¡@£@
¢°¡@¢é¡@¡@¡@£C¡@¡@¡@¡@¡U¡@¡@¡@¢é¡@¢°¡@¢¯¡@¢°¡@¢¯
¢±¡@¢ê¡@¡@¡@£C¡@¡@¡@¡@¡U¡@¡@¡@¢ê¡@¢°¡@¢¯¡@¢¯¡@¢°
¢²¡@¢ë¡@¡@¡@£B¡@¡@¡@¡@¡U¡@¡@¡@¢ë¡@¢¯¡@¢°¡@¢¯¡@¢¯
¢³¡@¢ì¡@¡@¡@£B¡@¡@¡@¡@¡U¡@¡@¡@¢ì¡@¢¯¡@¢°¡@¢¯¡@¢¯
¢´¡@¢é¡@¡@¡@£A¡@¡@¡@¡@¡U¡@¡@¡@¢î¡@¢¯¡@¢¯¡@¢°¡@¢¯
¢µ¡@¢î¡@¡@¡@£A¡@¡@¡@¡@¡U¡@¡@¡@£A¡@¢¯¡@¢¯¡@¢¯¡@¢°
¢¶¡@£A¡@¡@¡@£@¡@¡@¡@¡@¡U¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@
¢·¡@¢ê¡@¡@¡@£@¡@¡@¡@¡@¡U

­ì©l¸ê®Æªº¢ÏÄæ¦ì»P¢ÐÄæ¦ì¤Uªº¸ê®Æ¥»¨­´N¦³Ãö«Y¡A¦]¬°¬O±q¸ê®Æ®w¸Ì½Õ¥X¨Óªº¸ê®Æ¡C
¦]¦¹¤£»Ý§PÂ_¤§¶¡ªºÃö«Y¡A¤GªÌ¤§¶¡ªºÃö«Y§Y¬°¡GA¤Þ¥ÎB¡FB³QA¤Þ¥Î¡C
·Q±N­ì©lªºABÄæ¦ìÃö«YÂà´«¦¨¯x°}ªº«¬ºA¡C

¤£ª¾¹D³o­Ó¨Ò¤l°÷¤£°÷²M·¡¡H:-)

register313

¦^´_ 5# cosplay123
¦^´_ 7# XDshining

E2=SUMPRODUCT(($A$2:$A$9=$D2)*($B$2:$B$9=E$1))

¤U¸ü (69.58 KB)

2012-3-12 23:34

Hsieh

¦^´_ 7# XDshining
D2°}¦C¤½¦¡
=IF(ROW(A1)>SUM(1/COUNTIF($A$2:$A$9,$A$2:$A$9)),"",INDEX($A:$A,MIN(IF(ISERROR(MATCH($A$2:$A$9,$D$1:D1,0)),ROW($A$2:$A$9),"")),))
¦V¤U½Æ»s
E1°}¦C¤½¦¡
=IF(COLUMN(A$1)>SUM(1/COUNTIF($B$2:$B$9,$B$2:$B$9)),"",INDEX($B:$B,MIN(IF(ISERROR(MATCH($B$2:$B$9,$D$1:D$1,0)),ROW($B$2:$B$9),""))))
¦V¥k½Æ»s
E2=(SUMPRODUCT(($A$2:$A$9&$B$2:$B$9=$D2&E$1)*1)>0)*1
¦V¥k¦V¤U½Æ»s

¤U¸ü (11.21 KB)

2012-3-12 23:39

VBA

1. Sub ex()
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. Set d1 = CreateObject("Scripting.Dictionary")
   
4. Set d3 = CreateObject("Scripting.Dictionary")
   
5. 
   
6. For Each a In Range([A2], [A65536].End(3))
   
7. d(a & a.Offset(, 1)) = a & a.Offset(, 1)
   
8. d1(a & "") = ""
   
9. d3(a.Offset(, 1) & "") = ""
   
10. Next
    
11. [d2].Resize(d1.Count, 1).Value = Application.Transpose(d1.keys)
    
12. [E1].Resize(, d3.Count) = d3.keys
    
13. For i = 2 To d1.Count + 1
    
14.   For j = 5 To d3.Count + 4
    
15.     Cells(i, j) = d.exists(Cells(i, 4) & Cells(1, j)) * (-1)
    
16.   Next
    
17. Next
    
18. End Sub

½Æ»s¥N½X

XDshining

¦^´_ 8# register313


   

¤U¸ü (79 KB)

2012-3-13 01:49

¡@¥Î¤½¦¡¾ã²zªº¯x°}
¡@

¤U¸ü (100.01 KB)

2012-3-13 01:49

¡@¥H«e¥Î¤â°Ê¾ã²zªº¯x°}

¥i¥Hµo²{¤½¦¡¾ã²zªº¯x°}·|¦³­«½Æªº²{¶H¡A
¤£ª¾¹D¦³¨S¦³¤p¤u¨ã¥i¥H¦b¾ã²z¯x°}ªº¦P®É±N­«½Æªº¸ê®Æ¥h°£±¼¡H