返回列表 上一主題 發帖

請教excel先進.

seer_et

帖子
18 
主題
4 
精華
0 
積分
26 
點名
0  
作業系統
windows xp 
軟體版本
office 2003 
閱讀權限
10 
性別
男 
來自
中國 
註冊時間
2011-6-19 
最後登錄
2021-4-15 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-4-15 10:33 | 顯示全部帖子

請教excel先進.

我的工作簿有5個worksheet,其中一個接收股市DDE的資料,
另有一個作為K線分時的高低點紀錄,這個計算我使用Worksheet_Calculate()事件;然後
我在另一個工作表看分析,工作可以進行順利,但有一個困擾是畫面不停的閃爍.如果將
Calculate程式行中斷就不會閃了,我在程式前端使用Application.ScreenUpdating = False,
沒有效果,依然會閃爍跳動.
請教excel先進:
可不可能做到讓程式就在背景執行,不影響畫面呢?
收藏 分享

seer_et

帖子
18 
主題
4 
精華
0 
積分
26 
點名
0  
作業系統
windows xp 
軟體版本
office 2003 
閱讀權限
10 
性別
男 
來自
中國 
註冊時間
2011-6-19 
最後登錄
2021-4-15 
2#
發表於 2013-4-16 11:18 | 顯示全部帖子
Application.ScreenUpdate= False
mark15jill 發表於 2013-4-16 09:54


mark大:[物件不支援此屬性或方法]呢!

TOP

seer_et

帖子
18 
主題
4 
精華
0 
積分
26 
點名
0  
作業系統
windows xp 
軟體版本
office 2003 
閱讀權限
10 
性別
男 
來自
中國 
註冊時間
2011-6-19 
最後登錄
2021-4-15 
3#
發表於 2013-4-17 01:02 | 顯示全部帖子
  1. Private Sub Worksheet_Calculate()

  3. If Time < TimeValue("8:45:00") Or Time > TimeValue("13:45:00") Then Exit Sub
  4. Application.ScreenUpdating = False
  5. On Error Resume Next
  6. If Application.WorksheetFunction.IsNumber(Cells(201, 5)) Then    '期貨資料更新
  7. If Cells(201, 2) = 0 Then Cells(201, 2) = Cells(2, 38)
  8. If Cells(201, 3) = 0 Then Cells(201, 3) = Cells(201, 5)
  9. '
  10. '
  11. '
  12. End If
  13. End Sub
複製代碼
mark大2007的版是"Application.ScreenUpdate= False"嗎?
我2003版不行
這裏程式執行順暢,沒有問題
我在另一工作表看分析,但畫面會一直閃動,
就想求教有沒有方法使程式安靜的在背景執行,不影響畫面.

TOP

seer_et

帖子
18 
主題
4 
精華
0 
積分
26 
點名
0  
作業系統
windows xp 
軟體版本
office 2003 
閱讀權限
10 
性別
男 
來自
中國 
註冊時間
2011-6-19 
最後登錄
2021-4-15 
4#
發表於 2013-4-17 13:11 | 顯示全部帖子
照您說的做了,沒有改善,還是會閃
我看大概只能將就著了...

感謝您費心

TOP

        靜思自在 : 甘願做、歡喜受。
返回列表 上一主題