- ©«¤l
- 8
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 10
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- xp
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2015-8-27
- ³Ì«áµn¿ý
- 2018-9-12
|
¦^´_ 3# GBKEE
AitoFilter ¦pªG³]©w Criteria1:="abc" ®É
²zÀ³§ä¤£¨ì¥ô¦ó²Å¦Xªº¶µ¥Ø
¦ý¬O excel sheet «oÁÙ¬O¥X²{¤@µ§¶µ¥Ø
³o¸Ó¦p¦ó¸Ñ¨M©O
Sub EX()
Dim xlMax As Date
Range("A1").AutoFilter FIELD:=1, Criteria1:="abc" '¤u§@ªí«ü©w½d³ò¦Û°Ê¿z¿ï,µ¹·Ç«h
xlMax = Application.WorksheetFunction.Max(Columns(2).SpecialCells(xlCellTypeVisible))
'¿z¿ï«á¥i¨£¸ê®Æªº³Ì¤jÈ
' Range("A1").AutoFilter '¤u§@ªí«ü©w½d³ò¨ú®ø¦Û°Ê¿z¿ï
MsgBox xlMax
End Sub |
|