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

[µo°Ý] ½Ð°Ý ­n·j´M ¤T±ø¥ó µM«á¦b¤u§@ªí2 ¥þ³¡¦C¥X

[µo°Ý] ½Ð°Ý ­n·j´M ¤T±ø¥ó µM«á¦b¤u§@ªí2 ¥þ³¡¦C¥X

½Ð°Ý ­n·j´M CÄæ 2210 AND EÄæ¬O  ¤­ª÷ AND  FÄæ¤j©ó500  
µM«á¦b¤u§@ªí2 ¥þ³¡¦C¥X  ¦C¦p  3¦C ²Å¦X «h¦C¥X 2345¦C¥X¥þ³¡ ABCDEFGH ©ó¤u§@ªí2
¨Ã©¹¤U·j´M¦Ü¨S¸ê®Æ
ÁÂÁ§A­Ì
¤é»x.rar (7.13 KB)
HI

¦^´_ 1# mycmyc


¤é»x.rar (7.39 KB)

¥Î¶i¶¥¿z¿ïªº¤è¦¡....
boyao

TOP

¥Î¶i¶¥¿z¿ïªº¤è¦¡....
¦n¹³¤£¦æ
¥i¥H»¡©ú¥Õ¤@ÂI¶Ü
ÁÂÁÂ
HI

TOP

¦^´_ 3# mycmyc


©ósheet1.Range("L1:S1")«Ø¥ß¿z¿ï¼ÐÃD
sheet1.Range("L2:S2")«Ø¥ß¿z¿ïªº±ø¥ó(´X¶µ³£ok)
¦A°õ¦æ"¶i¶¥¿z¿ï°õ¦æ"
¦pªþ¥ó..
¤é»x.rar (14.15 KB)
boyao

TOP

¸G¥Ñ¼g²M·¡¤@ÂIµ¹±z¬Ý
1.­n¿zªº¸ê®Æ¿ï°_¨Ó
2.¿z¿ï/¥HÀx¦s®æ­È¿z¿ï
3.ÂI±z­n¿z¿ïªºÄæ ~ÂICÄæ¤å¦r¿z¿ï=2210 ÂIEÄæ¤å¦r¿z¿ï-¤­ª÷ ÂI FÄd ¤å¦r¿z¿ï>500
´N¥þ³¡µ¹±z¦C¥X¨Ó¤F~~¯»Â²³æ§a~~~
¦æ°Ê¬O³Ì½ñ¹êªº©¯ºÖ

TOP

¦^´_ 1# mycmyc
§A­nªºµ²ªG¬O³o¼Ë§a

°õ¦æ¥H¤U¥N½X
  1.     Sub ex()
  2. Dim Rng As Range, MyRng As Range, A As Range
  3. With ¤u§@ªí1
  4. Set MyRng = .[C1]
  5. .Range("C:C").Replace 2120, "=1/0", xlWhole
  6. Set Rng = .Range("C:C").SpecialCells(xlCellTypeFormulas, 16)
  7. Rng.Value = 2120
  8. For Each ar In Rng.Areas
  9.     For Each A In ar
  10.       If A.Offset(, 2) = "¤­ª÷" And A.Offset(, 4) > 500 Then
  11.       ad = .Range(.[A1], A.Offset(, -2)).Address
  12.       k = Evaluate("Lookup(2,1/(" & ad & "),row(" & ad & "))")
  13.          Set MyRng = Union(MyRng, .Range(.Cells(k, 3), A.End(xlDown)))
  14.          Exit For
  15.       End If
  16.     Next
  17. Next
  18. If Not MyRng Is Nothing Then MyRng.EntireRow.Copy ¤u§@ªí2.[A1]
  19. End With
  20. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

ÁÂÁ¤j®a
§Ú§l¦¬¬Ý¬Ý
¤£¦n·N«ä
HI

TOP

        ÀR«ä¦Û¦b : ·R¤£¬O­n¨D¹ï¤è¡A¦Ó¬O­n¥Ñ¦Û¨­ªº¥I¥X¡C
ªð¦^¦Cªí ¤W¤@¥DÃD