- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
        
|
¦^´_ 4# luhpro - Private Sub cbGetData_Click()
- Application.ScreenUpdating = False
- With Sheet1
- .AutoFilterMode = False
- 'AutoFilterMode ÄÝ©Ê ¦pªG¥Ø«e¦b¤u§@ªí¤WÅã¥Ü¦³ [¦Û°Ê¿z¿ï] ¤U©Ô½b¸¹¡A«h¦¹Äݩʬ° True¡C¸ÓÄÝ©Ê»P FilterMode Äݩʤ¬¬Û¿W¥ß¡CŪ/¼g Boolean¡C
- '³Æµù ¦pªG¥Ø«eÅã¥Ü [¦Û°Ê¿z¿ï] ¤U©Ô½b¸¹¡A¦¹ÄݩʶǦ^ True¡C¥i±N¸ÓÄݩʳ]©w¬° False¡A¥H²¾°£¸Ó½b¸¹¡A¦ýµLªk±N¨ä³]©w¬° True¡C¥i¥Î AutoFilter ¤èªk¹ï¸ê®Æ²M³æ¶i¦æ¿z¿ï¨ÃÅã¥Ü¸Ó¤U©Ô½b¸¹¡C
- .Range("A1").AutoFilter 5, "FLAT" 'AutoFilter(¦Û°Ê¿z¿ï): ²Ä5ÓÄæ¦ì ,·Ç«h="FLAT"
- .Cells.Copy Sheet2.[A1] '¦Û°Ê¿z¿ï«á(¤£²Å¦Xªº¸ê®ÆÁôÂÃ)
- .AutoFilterMode = False
- End With
- Application.ScreenUpdating = True
- End Sub
½Æ»s¥N½X |
|