- ©«¤l
- 12
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 20
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- OFFICE 2010
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-6-10
- ³Ì«áµn¿ý
- 2025-1-16
|
¤j¤j§Aªºµ{¦¡§Ú¬Ý±oÀ´¦ý¬O§Ú¤£ª¾¹D¸Ó«ç»òµ²¦X¦Û¤vªºµ{¦¡½X
³o¬O§Úªºµ{¦¡½X:
Sub §ó·s¥~³¡¸ê®Æ()
'
' §ó·s¥~³¡¸ê®Æ Macro
' Queen ¦b 2010/10/7 ¿ý»sªº¥¨¶°
'
'
Application.ScreenUpdating = False
On Error Resume Next
Sheets("·l¯qªí").Select
Range("A1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Sheets("¸ê²£t¶Åªí").Select
Range("A1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Sheets("°ò¥»¸ê®Æ").Select
Range("A1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Sheets("ªÑ»ù").Select
Range("A1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Sheets("¸ê®Æ").Select
Application.ScreenUpdating = True
End Sub |
|