麻辣家族討論版版 » Excel程式區 » 請教excel先進.

返回列表下一主題上一主題發帖

請教excel先進.

小學生 Rank: 1

帖子: 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先進:
可不可能做到讓程式就在背景執行,不影響畫面呢?

樓主熱帖

收藏

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

2^#

發表於 2013-4-16 09:54 | 只看該作者

我的工作簿有5個worksheet,其中一個接收股市DDE的資料,
另有一個作為K線分時的高低點紀錄,這個計算我使用W ...
seer_et 發表於 2013-4-15 10:33

Application.ScreenUpdate= False

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

小學生 Rank: 1

帖子: 18
主題: 4
精華: 0
積分: 26
點名: 0
作業系統: windows xp
軟體版本: office 2003
閱讀權限: 10
性別: 男
來自: 中國
註冊時間: 2011-6-19
最後登錄: 2021-4-15

3^#

發表於 2013-4-16 11:18 | 只看該作者

Application.ScreenUpdate= False
mark15jill 發表於 2013-4-16 09:54

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

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

4^#

發表於 2013-4-16 23:07 | 只看該作者

mark大:[物件不支援此屬性或方法]呢!
seer_et 發表於 2013-4-16 11:18

我支援此屬性和方法阿= ="(誤...

   你那段程式碼放哪邊....

   不會放在最前面吧~?

   貼個圖上來瞧瞧唄

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

小學生 Rank: 1

帖子: 18
主題: 4
精華: 0
積分: 26
點名: 0
作業系統: windows xp
軟體版本: office 2003
閱讀權限: 10
性別: 男
來自: 中國
註冊時間: 2011-6-19
最後登錄: 2021-4-15

5^#

發表於 2013-4-17 01:02 | 只看該作者

Private Sub Worksheet_Calculate()
If Time < TimeValue("8:45:00") Or Time > TimeValue("13:45:00") Then Exit Sub
Application.ScreenUpdating = False
On Error Resume Next
If Application.WorksheetFunction.IsNumber(Cells(201, 5)) Then '期貨資料更新
If Cells(201, 2) = 0 Then Cells(201, 2) = Cells(2, 38)
If Cells(201, 3) = 0 Then Cells(201, 3) = Cells(201, 5)
'
'
'
End If
End Sub

複製代碼

mark大2007的版是"Application.ScreenUpdate= False"嗎?
我2003版不行
這裏程式執行順暢,沒有問題
我在另一工作表看分析,但畫面會一直閃動,
就想求教有沒有方法使程式安靜的在背景執行,不影響畫面.

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

6^#

發表於 2013-4-17 10:18 | 只看該作者

本帖最後由 mark15jill 於 2013-4-17 10:21 編輯

mark大2007的版是"Application.ScreenUpdate= False"嗎?
我2003版不行
這裏程式執行順暢,沒有問題
我在另 ...
seer_et 發表於 2013-4-17 01:02

Private Sub Worksheet_Calculate()
Application.ScreenUpdating = False '< ==== 要放這邊~~~ 關閉螢幕更新~~ K1
If Time < TimeValue("8:45:00") Or Time > TimeValue("13:45:00") Then Exit Sub
On Error Resume Next
If Application.WorksheetFunction.IsNumber(Cells(201, 5)) Then '期貨資料更新
If Cells(201, 2) = 0 Then Cells(201, 2) = Cells(2, 38)
If Cells(201, 3) = 0 Then Cells(201, 3) = Cells(201, 5)
'
'
'
End If
Application.ScreenUpdating = True '< ==== 要放這邊~~~ 開啟螢幕更新~~K2
End Sub

複製代碼

放K1和K2 的作用是等到程式跑完最新結果才會顯示
而不會中途一直更新

K1 和 K2 為搭配的...
如果只放K1 不放K2.. 那有可能你跑完後，最新結果不會顯示
如果只放K2 不放K1.. 那還放K2做啥ˋˊ

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

小學生 Rank: 1

帖子: 18
主題: 4
精華: 0
積分: 26
點名: 0
作業系統: windows xp
軟體版本: office 2003
閱讀權限: 10
性別: 男
來自: 中國
註冊時間: 2011-6-19
最後登錄: 2021-4-15

7^#

發表於 2013-4-17 13:11 | 只看該作者

照您說的做了,沒有改善,還是會閃
我看大概只能將就著了...

感謝您費心

靜思自在 : 成功是優點的發揮，失敗是缺點的累積。

返回列表下一主題上一主題