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

[µo°Ý] ¤ñ¹ï¸ê®Æ½Æ»s¦Ü¤u§@ªí¨Ã±Æ§Ç

¦^´_ 10# b9208

Rng.AdvancedFilter xlFilterCopy, .Range(.[c3], .[c3].End(xlDown)), CopyTo, False
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 11# Hsieh
ÁÂÁÂHsiehª©¥D«ü¾É
«eHsiehª©¥D¨ó§Uµ{¦¡½X±ÄµL¼ÐÃD¦C±Æ§Ç¡A²Å¦X»Ý¨D¡A¦]¹ê»Ú¹B¥Î¼ÐÃD¦C¬O¦³¤T¦C¦X¨Öªº¡]¦p¤U¹Ï¡^¡C
¤µ·Q¼W¥[¬Û¦P¸ê®Æ¦C¡A±q¨ä²Ä¤Gµ§¸ê®Æ¶}©l¶ñº¡¶À¦â¼Ð¥Ü¡C
100 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 9# GBKEE
GBKEEª©¥D±z¦n
¨Ì·Ó¨Ò¤l°õ¦æOK
¦ý¹ê»Ú¹B¥Î¼ÐÃD¦C¬O¦³¤T¦C¦X¨Ö®æªº³]­p¡]¦p¹Ï¡^
«D±`©êºp¨S¦³»¡©ú²M·¡
100 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 12# b9208
¼ÐÃD¦C¸T¥Î¦X¨ÖÀx¦s®æ¡A³o¬O¸ê®Æ®w¨Ï¥Î¥²¶·¿í¦uªº­ì«h
§A³o¼Ë·|³y¦¨µLªk¨Ï¥Î¶i¶¥¿z¿ï
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 14# Hsieh
ÁÂÁÂHSIEHª©¥D«ü¾É
­×§ï³øªí¼ÐÃD³]­p®æ¦¡¡A²Å¦X¨S¦³¦X¨Ö®æªº®æ¦¡¡C
·PÁª©¥D¨ü¯q¨}¦h
100 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 14# Hsieh
Dear Hsieh
¤p§Ì§¹¦¨µ{¦¡¦pªþ¥ó
¤µ¦A½Ð±Ð¡G
¤@¡B¦p¦ó­×¥¿¥u¦³¸ê®Æ½d³ò¶ñº¡¶À¦â¡C
¤G¡B¬Û¦P¸ê®Æ¦C¦A¤ñ¸ûkÄæ¼Æ¶q¡A«O¯d¤@­Ó³Ì¤j­È¡A¨ä¥L¼Æ­È§ï¬°0¡A®æ¦¡¬°²ÊÊ^¬õ¦r¡C
·PÁ«ü¾É

b211.rar (14.62 KB)
100 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 16# b9208
  1. Sub ex()
  2. Dim A As Range, C As Range, Rng As Range, MyRng As Range, m$
  3. Set d = CreateObject("Scripting.Dictionary")
  4. Set d1 = CreateObject("Scripting.Dictionary")
  5. With Sheets("³æ¦ì")
  6. Set Rng = .[D3:G3]
  7.    With Sheets("¸ê®Æ")
  8.       For Each A In .Range(.[F6], .[F6].End(xlDown))
  9.       m = A.Offset(, -3) & A & A.Offset(, 2)
  10.       If d(m) <= A.Offset(, 5).Value Then d(m) = A.Offset(, 5).Value '°O¦í³Ì¤j­È
  11.       d1(m) = d1(m) + 1 '­pºâ­Ó¼Æ
  12.          Set C = Rng.Find(A, lookat:=xlWhole)
  13.          If Not C Is Nothing Then
  14.            If MyRng Is Nothing Then Set MyRng = A.Offset(, -5).Resize(, 13) Else Set MyRng = Union(MyRng, A.Offset(, -5).Resize(, 13))
  15.          End If
  16.       Next
  17.     End With
  18.     .Range("A19").CurrentRegion.Interior.ColorIndex = 0
  19.     If Not MyRng Is Nothing Then MyRng.Copy .[A20] Else MsgBox "µL²Å¦X¸ê®Æ": Exit Sub
  20.     .Range("A19").CurrentRegion.Sort key1:=.[K19], Header:=xlYes
  21.     .Range("A19").CurrentRegion.Sort key1:=.[F19], key2:=.[C19], key3:=.[H19], Header:=xlYes
  22.     For Each A In .Range(.[F20], .[F20].End(xlDown))
  23.     m = A.Offset(, -3) & A & A.Offset(, 2)
  24.        If d1(m) > 1 Then A.Offset(, -5).Resize(, 13).Interior.ColorIndex = 6 '¦³­«½Æ
  25.        If A.Offset(, 5) <> d(m) Then A.Offset(, 5) = 0 '¤£µ¥©ó³Ì¤j­È´NÂk¹s
  26.     Next
  27. End With
  28. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 17# Hsieh
ÁÂÁÂHsiehª©¥»
°õ¦æok
½Ð±ÐkÄæ³Ì¤j­È¦³¤Gµ§¥H¤W¬Û¦P¡A¥i¥H«O¯d²Ä¤@µ§¼Æ­È¡A²Ä¤Gµ§¥H«á³£¬°0¡C
¥Ø«e°õ¦æ«á¦³¬Û¦P³Ì¤j­È³£«O¯d¡C
ÁÂÁ«ü¾É
100 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 18# b9208

³Ì«á¤@¥y
       If A.Offset(, 5) <> d(m) Then A.Offset(, 5) = 0 Else d(m) = 0 '¤£µ¥©ó³Ì¤j­È´NÂk¹s
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 19# Hsieh
Dear Hsieh
«D±`·PÁ±z
°õ¦æ«á²Å¦X»Ý­n
¦hÁÂ
100 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

        ÀR«ä¦Û¦b : ¤p¨Æ¤£°µ¡B¤j¨ÆÃø¦¨¡C
ªð¦^¦Cªí ¤W¤@¥DÃD