[發問] 如何讓巨集不要變動我正在工作的工作表視窗 ??

t8899

我大部份停在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

mhl9mhl9

回復 1# t8899

不用select sheet3,自然會停留在原處,試試以下 FFF
Sub FFF()
    With Sheets("sheet3")
       .Range("C2:C111").Copy
       .Range("AC2").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
           xlNone, SkipBlanks:=False, Transpose:=False
          Application.CutCopyMode = False
    End With
    Sheet4.Range("Q10").Value = 1
End Sub