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

[µo°Ý] ½Ð°Ý«ç»ò¤ñ¸û¤é´Á?

¦^´_ 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

TOP

        ÀR«ä¦Û¦b : ¡i¦æµ½­n¤Î®É¡j¦æµ½­n¤Î®É¡A¥\¼w­n«ùÄò¡C¦p¿N¶}¤ô¤@¯ë¡A¥¼¿N¶}¤§«e¤d¸U¤£­n°±º¶¤õ­Ô¡A§_«h­«¨Ó´N¤Ó¶O¨Æ¤F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD