返回列表 上一主題 發帖

[發問] 關於工作表的calculate事件

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
1# 跳轉到 »
發表於 2013-6-15 07:52 | 顯示全部帖子
本帖最後由 c_c_lai 於 2013-6-15 07:54 編輯

回復 1# lin_6219
看了你數日的討論成果，還是給你個提示吧，要加油呦！
思考問題要多方的驗證及觀察，以期能切入到真正的問題核心。
觸發執行畫動態的圖表：
  1. Option Explicit

  3. Dim timerEnabled As Boolean        '   判定開啟本工作表單的時段是否為開盤前啟動。
  4. Private Sub Workbook_Open()
  5.     KChartWithVolume                        '   以你自己的 K 圖做為例證
  6.     '   每逢星期六、日 除外， 自動啟動計時器
  7.     If Weekday(Date, 2) <= 5 Then Call timerStart
  8. End Sub

  10. Private Sub Workbook_BeforeClose(Cancel As Boolean)
  11.     On Error Resume Next
  12.     Application.OnTime Now + TimeValue("00:00:01"), "ThisWorkbook.inProcess", , False
  13.     Me.Save
  14. End Sub

  16. Sub timerStart()
  17.     If timerEnabled Then
  18.         ' 第二次(含)以後均以設定之 "間隔時段" 來處理執行序的作業。 (本例以每五分鐘執行一次)
  19.         Application.OnTime (Now + TimeValue("00:05:00")), "ThisWorkbook.inProcess"
  20.     Else
  21.         timerEnabled = True
  22.         
  23.         If (TimeValue(Now) <= TimeValue("08:45:00")) Then
  24.             Application.OnTime (TimeValue("08:45:00")), "ThisWorkbook.inProcess"
  25.         Else
  26.             ' 系統剛連上 DDE 至資料匯入Excel工作表單，須有一個緩衝時段，
  27.             ' 這時如果馬上去抓取DDE資料，會有型態不符的錯誤訊息產生，並中斷執行序的作業。
  28.             Application.OnTime (Now + TimeValue("00:00:05")), "ThisWorkbook.inProcess"
  29.         End If
  30.     End If
  31. End Sub

  33. Private Sub inProcess()
  34.     On Error Resume Next
  35.     If (TimeValue(Now) < TimeValue("08:45:00") Or TimeValue(Now) > TimeValue("13:46:01")) Then Exit Sub
  36.    
  37.     ' 盤中處理，將資料匯入寫入工作表單內儲存。

  39.     With Sheets("主畫面")
  40.         ' . . . . .
  41.         ' . . . . . (寫入DDE匯入之相關資料))
  42.         ' . . . . .
  43.     End With
  44.         
  45.     Call getKLastMove()     '  觸發執行畫動態的圖表
  46.     Call timerStart
  47. End Sub

  49. Sub getKLastMove()
  50.     Dim totalRows As Long
  51.    
  52.     With Worksheets("主畫面")
  53.         .Select
  54.         totalRows = Worksheets("繪圖資料").Range("A" & .Rows.Count).End(xlUp).Row
  55.         ActiveSheet.ChartObjects.Select
  56.         With ActiveChart
  57.             .SetSourceData Source:=Range("繪圖資料!$A$2:繪圖資料!$E$" & CStr(totalRows) & ", 繪圖資料!$G$2:繪圖資料!$G$" & CStr(totalRows) &  _
  58.                                          ", 繪圖資料!$F$2:繪圖資料!$F$" & CStr(totalRows))
  59.             .SeriesCollection(1).Name = "=繪圖資料!$B$1"           ' 開盤價
  60.             .SeriesCollection(2).Name = "=繪圖資料!$C$1"           ' 最高價
  61.             .SeriesCollection(3).Name = "=繪圖資料!$D$1"           ' 最低價
  62.             .SeriesCollection(4).Name = "=繪圖資料!$E$1"           ' 收盤價 (成交價)
  63.             .SeriesCollection(5).Name = "=繪圖資料!$G$1"           ' 移動平均線
  64.             .SeriesCollection(5).Name = "成交量"                   ' 成交金額
  65.         End With
  66.     End With
  67. End Sub

  69. Sub KChartWithVolume()                         '  K線圖與成交量圖放在同一圖表
  70.     ' . . . . .
  71.     ' . . . . .  (K線圖與成交量圖)
  72.     ' . . . . .
  73. End Sub
複製代碼
多跟學校教授及同學們相互請益。

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
2#
發表於 2013-6-15 17:40 | 顯示全部帖子
回復 8# lin_6219
首先要先去瞭解及熟悉 F8 (Debug) 的應用，
透過 F8 你再去追蹤 Local Variables 值的變化，
以及利用 "監看式" 視窗 "運算式" 觀察目前之
Runtime Values， 如此你可以從中去體會程式
完整執行過程、以及問題發生錯誤的原因。

TOP

        靜思自在 : 稻穗結得越飽滿，越會往下垂，一個人越有成就，就要越有謙沖的胸襟。
返回列表 上一主題