本帖最後由 t8899 於 2013-8-6 06:14 編輯
我大部份停在SHEET1 或 SHEET2工作表工作
下面的巨集執行完會停留在SHEET3,如何解決??
我用 Application.ScreenUpdating = False 沒有辦法解決 (執行速度變快)
Private Sub Worksheet_Calculate()
If Range("Q10").Value = 1 And flag = True Then
Range("Q10").Value = 2
Application.OnTime Now + TimeValue("00:00:15"), "FFF"
End If
END SUB
'--------------------------------------------------
Sub FFF()
Application.ScreenUpdating = False
Sheets("Sheet3").Select
Range("C2:C111").Select
Selection.Copy
Range("AC2").Select
'貼上值與數字格式
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Sheet4.Range("Q10").Value = 1
End Sub |
發表於 2013-8-6 06:12
| 
