返回列表 上一主題 發帖

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

t8899

帖子
752 
主題
245 
精華
0 
積分
1010 
點名
0  
作業系統
WINXP 
軟體版本
OFFICE2003 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-7-3 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-8-6 06:12 | 只看該作者

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

本帖最後由 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
收藏 分享

mhl9mhl9

帖子
214 
主題
74 
精華
0 
積分
296 
點名
0  
作業系統
win7 
軟體版本
office2007 
閱讀權限
20 
性別
男 
來自
hk 
註冊時間
2013-6-17 
最後登錄
2018-11-3 
2#
發表於 2013-8-8 04:55 | 只看該作者
回復 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
lmh

TOP

        靜思自在 : 【時日莫空過】一個人在世間做了多少事，就等於壽命有多長。因此必須與時間競爭，切莫使時日空過。
返回列表 上一主題