返回列表 上一主題 發帖

請教excel先進.

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

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
1# 跳轉到 »
發表於 2013-4-16 09:54 | 顯示全部帖子
我的工作簿有5個worksheet,其中一個接收股市DDE的資料,
另有一個作為K線分時的高低點紀錄,這個計算我使用W ...
seer_et 發表於 2013-4-15 10:33



    Application.ScreenUpdate= False

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

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

  少看=只看不做也枉然

TOP

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

高中生Rank: 3Rank: 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 23:07 | 顯示全部帖子
mark大:[物件不支援此屬性或方法]呢!
seer_et 發表於 2013-4-16 11:18



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

     你那段程式碼放哪邊....
     
     不會放在最前面吧~?

      貼個圖上來瞧瞧唄

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

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

  少看=只看不做也枉然

TOP

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

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
3#
發表於 2013-4-17 10:18 | 顯示全部帖子
本帖最後由 mark15jill 於 2013-4-17 10:21 編輯
mark大2007的版是"Application.ScreenUpdate= False"嗎?
我2003版不行
這裏程式執行順暢,沒有問題
我在另 ...
seer_et 發表於 2013-4-17 01:02
  1. Private Sub Worksheet_Calculate()

  3. Application.ScreenUpdating = False          '< ====  要放這邊~~~  關閉螢幕更新~~ K1

  5. If Time < TimeValue("8:45:00") Or Time > TimeValue("13:45:00") Then Exit Sub



  9. On Error Resume Next

  11. If Application.WorksheetFunction.IsNumber(Cells(201, 5)) Then    '期貨資料更新

  13. If Cells(201, 2) = 0 Then Cells(201, 2) = Cells(2, 38)

  15. If Cells(201, 3) = 0 Then Cells(201, 3) = Cells(201, 5)

  17. '

  19. '

  21. '

  23. End If

  25. Application.ScreenUpdating = True          '< ====  要放這邊~~~  開啟螢幕更新~~K2

  27. End Sub
複製代碼
放K1和K2 的作用 是等到程式跑完最新結果才會顯示
而不會中途一直更新

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

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

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

  少看=只看不做也枉然

TOP

        靜思自在 : 真正的愛心，是照顧好自己的這顆心。
返回列表 上一主題