¬°¦óApplication.ScreenUpdating = False µe­±ÁÙ·|°Ê

PKKO

§Úªºµ{¦¡½X²Ä¤@¦æ´N¿é¤J
Application.ScreenUpdating = False

«á­±±µµÛ·|¶}±Ò¥t¥~¤@­ÓexcelÀÉ
µM«á±qSHEET(1) ~SHEET(12)
¤À§O¤Á´«µÛ°õ¦æ
¦ý§Úµo²{µe­±ÁÙ¬O·|°Ê...(µ{¦¡½X¦³ÂI¶Ã,¤£¦n·N«ä)
¦³¥i¯à¬O¬Æ»ò­ì¦]¾É­Pªº¶Ü?¿n¤À & ¦¨¥æªºªí¬ÒµLApplication.ScreenUpdating =TRUEªº«ü¥O

Sub autoRun()
'If Sheets(1).Cells(1, 1) = "xxx" Then Exit Sub

Application.ScreenUpdating = False
nowName = Application.ActiveWorkbook.Name
'§PÂ_¥Ø«e¬O§_¶}±Ò
On Error Resume Next
    Windows("²ø·q©±¶}µo.·~ÁZ.¥X¶Ô¤@Äýªí.xlsm").Activate
    If Err.Number = 9 Then GoTo F1
    AA = 1
    GoTo f2
F1: Workbooks.Open (Mid(ThisWorkbook.Path, 1, 31) & "2-·|­p\²ø·q©±¶}µo.·~ÁZ.¥X¶Ô¤@Äýªí.xlsm")
    AA = 2
f2: Windows(nowName).Activate
    For i = 1 To Month(Date)

    Sheets(i).Activate
   
   Call ¿n¤À
   Windows(nowName).Activate
   Sheets(i).Activate
   Call ¦¨¥æ
   Next i
   '§PÂ_¬O§_»Ý­nÃö³¬ÀÉ®×
    'Call autoLock
f3: If AA = 1 Then
    Windows(nowName).Activate
    ElseIf AA = 2 Then
    Windows("²ø·q©±¶}µo.·~ÁZ.¥X¶Ô¤@Äýªí.xlsm").Close saveChanges:=False
    End If
   
Sheets(Month(Date)).Activate
Application.ScreenUpdating = True
End Sub

PKKO

¦^´_ 4# luhpro


  ·PÁÂ,§Ú¤F¸Ñ±zªº·N«ä¤F,§ÚÁÙ¤£¤Ó·|¨Ï¥ÎWITH ªº¤è¦¡,¥ýª¦­Ó¤å,­Y¦³°ÝÃD¦A´£¥X,ÁÂÁÂ^_^

luhpro

¦^´_ 3# PKKO

·Pı¤W¬O Sheets(i).Activate ªºÃö«Y,
§A¸Õ¸Õ¥ý¤£°õ¦æ¬Ý¬Ý. (¸Ó¦æ³Ì«e­±¥[­Ó ; )

­Y§A Call ªº°Æµ{¦¡¤¤¦³ Selection ¤§Ãþ»Ý­n¼Ðªº Sheet ¬°§@°Ê¤¤(Active)ªº«ü¥O,
«Øij§A§ï¥Î with ¨Ó¯Á¤Þ¬ÛÃöª«¥ó´N¤£»Ý­n¥ý°õ¦æ Activate ¤F.

§Úªº¸gÅç¬O : °õ¦æ¹L Application.ScreenUpdating = False «á¨Ã«Dµe­±´N¤@©w·|¤£·|ÅܰʤF,
¬Y¨Ç®É­Ô¥¦ÁÙ¬O·|°Êµ¹§A¬Ý.

PKKO

§Ú¬O¥¨¶°ª½±µ¾ã­Ó°õ¦æ,·|µo²{¥L±qSheets(1)¸õ¨ì¥Ø«e¤ë¥÷ªºsheet
©Ò¥H·Pı³t«×¦³ÂIºC

GBKEE

¦^´_ 1# PKKO
§A¬O¦p¦ó°õ¦æªºµ{¦¡
¦p¬Ovba ¤¤«öF8³v¦æ°õ¦æµ{¦¡¬Ýµe­±¬O·|§ïÅÜ
Application.ScreenUpdating = False ¨S¦³§@¥Îªº