- ©«¤l
- 16
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 66
- ÂI¦W
- 80
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- excel
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2016-8-24
- ³Ì«áµn¿ý
- 2024-11-5
|
§A¦n¡A¤p§Ì¤£§÷¡A¸Õ¤F¤@¤U¡A
1. ·PıÀ³¸Ó¬O§Aªº¿z¿ï¤£¬O¦b²Ä¤@¦æ¡A©Ò¥H¤£¯à¥Î³o¤è¦¡¡A»Ýn¥ý¿ï ©Ò¦b¦æªº cell¡AµM«áÁÙ¤£¯à«ü©w¬O¶}ÁÙ¬OÃö¡A¥u¯à¤@¦¸¶}¤@¦¸Ãö¡A¦p¹Ï¤@
2. ¦pªG§Aªº«ö¶sn¦@¥Î¡A¤£¯à¥Î command bottom (active X ¥u¯à§@¥Î¦b¸Ó¤À¶)¡An¥Îªí³æ±±¨î¶µ(Åܦ¨ module)¡A¦p¹Ï¤G
Dim ws As Worksheet
For Each ws In Application.Worksheets
ws1 = ws.Name
'MsgBox (ws1)
Worksheets(ws1).Activate
Cells(3, 1).Select
Selection.AutoFilter
'Selection.AutoFilterMode = False µLªk¨Ï¥Î
'AutoFilterMode = False µLªk¨Ï¥Î
Next ws |
-
-
001.png
(31.69 KB)
-
-
002.png
(62.24 KB)
|