GBKEE

¦^´_ 1# SinYun
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub EX()
   
3.     Dim xlMax As Date
   
4.     With ActiveSheet
   
5.         .Range("A1").AutoFilter FIELD:=1, Criteria1:="¦¨»²¥ø·~¦³­­¤½¥q"  '¤u§@ªí«ü©w½d³ò¦Û°Ê¿z¿ï,µ¹·Ç«h
   
6.         xlMax = Application.WorksheetFunction.Max(Columns(2).SpecialCells(xlCellTypeVisible))
   
7.                                                                  '¿z¿ï«á¥i¨£¸ê®Æªº³Ì¤j­È
   
8.         .Range("A1").AutoFilter                                  '¤u§@ªí«ü©w½d³ò¨ú®ø¦Û°Ê¿z¿ï
   
9.     End With
   
10.     MsgBox xlMax
    
11. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 5# SinYun

1. Option Explicit
   
2. Sub EX()
   
3.     Dim xlMax As Date, Co As String
   
4.     Co = InputBox("¦¨»²¥ø·~¦³­­¤½¥q", "¿é¤J¤½¥q¦WºÙ")
   
5.     With ActiveSheet
   
6.         .Range("A1").AutoFilter FIELD:=1, Criteria1:=Co         '¤u§@ªí«ü©w½d³ò¦Û°Ê¿z¿ï,µ¹·Ç«h
   
7.         xlMax = Application.WorksheetFunction.Max(Columns(2).SpecialCells(xlCellTypeVisible))
   
8.         '¿z¿ï«á¥i¨£¸ê®Æªº³Ì¤j­È
   
9.         .Range("A1").AutoFilter                                  '¤u§@ªí«ü©w½d³ò¨ú®ø¦Û°Ê¿z¿ï
   
10.     End With
    
11.     MsgBox IIf(xlMax > 0, xlMax, "¬dµL " & Co)
    
12. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 14# ­ã´£³¡ªL
§AªºÀɮתþÀɦW.xlsx¨S¦³¥¨¶°ªºExcelÀÉ,°õ¦æ§A­×§ïªºµ{¦¡½X,¨S¦³°ÝÃDªº.
­n¬Ý¬ÝªþÀɦW.xlsm¦³¥¨¶°ªºEXCELÀÉ,¤~ª¾§A¿ù¦b­þ¸Ì.

GBKEE

¦^´_ 20# SinYun

¤U¸ü (101.87 KB)

2015-9-8 08:37

­ã´£³¡ªL ª©¥D: ¢²¡D¡e¤é´Á¡fÄ榳«Ü¦h¿ù»~¤ÎµL®Ä­È¡A²zÀ³²M°£©Î§ó¥¿¡A³o·|³y¦¨²Î­p¤Wªº§xÂZ¡I¡]¨ä¥¦Äæ¦ì¥çµM¡^

Application.WorksheetFunction.Max µ{¦¡ªº¿ù»~,¬°¡e¤é´Á¡fÄ檺¿ù»~­È©Ò³y¦¨.
§AªºÀɮ׫ÜÃe¤j,»F¦]¨Ï¥Î¤j¶qªº¨ç¼Æ,¥ú¬O¶}±Òªº­«ºâ´N«Ü¶O®É.