½Ð°Ý¦p¦óÅܧó( )¤ºªº¼Æ­È¡A°µ«ü©wªº¿z¿ï¡CÁÂÁÂ

jonn0510

½Ð±Ð¦Ñ®v:
³o¬O¥ÎVBA¦Û°Ê¿z¿ïK3~K21¤p©ó0ªº­È,¿z¿ï«á±N¿z¿ïµ²ªG«þ¨©¨ìR3ªºµ{§Ç¡C

Sub nn()
With Range("I2:O21")
.AutoFilter 3, "<0"
Range("I3:O21").SpecialCells(xlCellTypeVisible).Copy [R3]
.AutoFilter
End With
End Sub

­Y·Q§ï¦¨§Æ±æ¥ÎVBA¦Û°Ê¿z¿ïK3~K21µ¥©ó (2) ªº­È,¿z¿ï«á±N¿z¿ïµ²ªG«þ¨©¨ìR3¡A¸Ó¦p¦ó­×§ï?¥t(2)ªº¼Æ­È¤D«ü©w­È¡A¥i¯à§ï¬°(-3)¤]¥i§ï¦¨(4)µ¥µ¥¡A§Æ±æ¯àÅܧó()¤ºªº¼Æ­È¡A°µ«ü©wªº¿z¿ï¡CÁÂÁÂ

jonn0510

¦^´_ 1# jonn0510

Sub nn()
With Range("I2:O21")
.AutoFilter Field:=3, Criteria1:="02"
Range("I3:O21").SpecialCells(xlCellTypeVisible).Copy [R3]
.AutoFilter
End With
End Sub

Hsieh

¦^´_ 2# jonn0510
¬Ý§AªºÅܼƭn¦p¦ó³]¸m?
¥Î¿é¤J¹ï¸Ü¤è¶ô¶Ç¦^ÅܼÆ

1. Sub ex()
   
2. Dim k%, f$
   
3. k = InputBox("¿é¤J¿z¿ïÄæ¦ì", , 3)
   
4. f = InputBox("¿é¤J¿z¿ï·Ç«h", , "02")
   
5. With Range("I2:O21")
   
6.   .AutoFilter k, f
   
7.   .Offset(1).SpecialCells(xlCellTypeVisible).Copy [R3]
   
8.   .AutoFilter
   
9. End With
   
10. End Sub

½Æ»s¥N½X

jonn0510

¦^´_ 3# Hsieh
·PÁª©¥D¦Ñ®v:
­ì¨ÓÁÙ¦³³oºØ¥Îªk¡A¯uªº¬Oªøª¾ÃѤF¡AÁÂÁ±z¡C