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

[µo°Ý] ¶×¤J¥~³¡¸ê®Æ°ÝÃD

[µo°Ý] ¶×¤J¥~³¡¸ê®Æ°ÝÃD

½Ð°Ý¦U¦ì¤j¤j­n¦p¦ó½T»{¥Ø«e©Ò¦³ªº¤u§@ªí¤w¸g§ó·s§¹²¦¡AÄ´¦p:¤u§@ªí1¥¿¦b°õ¦æ¥~³¡§ó·s¡A¦Ó§Ú­n«ç»ò¦bµ{¦¡½X¤¤½T»{"¤u§@ªí1ªº¥~³¡§ó·sµ{§Ç¬O§_¤w¸gµ²§ô"¡C

¤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

TOP

·PÁ¦U¦ì¤j¤jªº¤j¤OÀ°§U...3Q

TOP

        ÀR«ä¦Û¦b : ·R¤£¬O­n¨D¹ï¤è¡A¦Ó¬O­n¥Ñ¦Û¨­ªº¥I¥X¡C
ªð¦^¦Cªí ¤W¤@¥DÃD