為何Application.ScreenUpdating = False 畫面還會動
- 帖子
- 549
- 主題
- 152
- 精華
- 0
- 積分
- 691
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- OFFICE 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-8-10
- 最後登錄
- 2022-9-7
 
|
為何Application.ScreenUpdating = False 畫面還會動
我的程式碼第一行就輸入
Application.ScreenUpdating = False
後面接著會開啟另外一個excel檔
然後從SHEET(1) ~SHEET(12)
分別切換著執行
但我發現畫面還是會動...(程式碼有點亂,不好意思)
有可能是甚麼原因導致的嗎?積分 & 成交的表皆無Application.ScreenUpdating =TRUE的指令
Sub autoRun()
'If Sheets(1).Cells(1, 1) = "xxx" Then Exit Sub
Application.ScreenUpdating = False
nowName = Application.ActiveWorkbook.Name
'判斷目前是否開啟
On Error Resume Next
Windows("莊敬店開發.業績.出勤一覽表.xlsm").Activate
If Err.Number = 9 Then GoTo F1
AA = 1
GoTo f2
F1: Workbooks.Open (Mid(ThisWorkbook.Path, 1, 31) & "2-會計\莊敬店開發.業績.出勤一覽表.xlsm")
AA = 2
f2: Windows(nowName).Activate
For i = 1 To Month(Date)
Sheets(i).Activate
Call 積分
Windows(nowName).Activate
Sheets(i).Activate
Call 成交
Next i
'判斷是否需要關閉檔案
'Call autoLock
f3: If AA = 1 Then
Windows(nowName).Activate
ElseIf AA = 2 Then
Windows("莊敬店開發.業績.出勤一覽表.xlsm").Close saveChanges:=False
End If
Sheets(Month(Date)).Activate
Application.ScreenUpdating = True
End Sub |
|
|
PKKO
|
|
|
|
|
- 帖子
- 549
- 主題
- 152
- 精華
- 0
- 積分
- 691
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- OFFICE 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-8-10
- 最後登錄
- 2022-9-7
|
我是巨集直接整個執行,會發現他從Sheets(1)跳到目前月份的sheet
所以感覺速度有點慢 |
|
|
PKKO
|
|
|
|
|
- 帖子
- 549
- 主題
- 152
- 精華
- 0
- 積分
- 691
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- OFFICE 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-8-10
- 最後登錄
- 2022-9-7
|
回復 4# luhpro
感謝,我了解您的意思了,我還不太會使用WITH 的方式,先爬個文,若有問題再提出,謝謝^_^ |
|
|
PKKO
|
|
|
|
|
發表於 2014-8-11 16:40
| 
