c_c_lai

回復 110# 藍天麗池
明早再幫我測試一下這隻 "股票10C.xlsm" 的程式，
這隻是單獨只採用 Worksheet_Calculate() 方法，
並無應用 "名稱定義" 的方式。
說白點只單純直接    Worksheet_Calculate() 進行
資料寫入。 如有了測試結果再行告知我，謝謝！
股票10C.rar (21.87 KB)

下載次數: 5

2016-4-11 20:49

P.S.  我想確認它的評效，如 OK 了，則會建議你採用。

藍天麗池

回復 111# c_c_lai

好的C大，我明天再告訴你結果

藍天麗池

回復 111# c_c_lai


   

下載 (167.55 KB)

2016-4-12 09:12

上圖示測試結果，好像有錯誤的地方，再請C大看看

c_c_lai

回復 113# 藍天麗池
出現甚麼錯誤訊息？

藍天麗池

回復 114# c_c_lai
我要看看，但是我現在不在家，晚點告訴C大

GBKEE

回復 114# c_c_lai

1. Option Explicit
   
2. Private Sub Worksheet_Calculate()
   
3.     Dim Rng As Range, cts As Long
   
4.     If Time < #8:30:00 AM# Or Time > #1:31:00 PM# Then Exit Sub     '  非營業時間
   
5.     On Error GoTo ER:
   
6.     For cts = 4 To Columns.Count Step 4
   
7.         Set Rng = Cells(2, cts)
   
8.         With Cells(Rows.Count, cts).End(xlUp)
   
9.             '  總量名稱所在的最底列往上到有資料的儲存格
   
10.             If .Row = 2 Or .Row > 2 And .Value <> Rng.Value Then      '  (各股總量有變動)
    
11.                 .Offset(1, 1).NumberFormatLocal = "hh:mm:ss"          '  設定儲存格格式 (時間)
    
12.                 .Offset(1).Cells(1, -1).Resize(, 4) = Rng.Cells(, -1).Resize(, 4).Value
    
13.             End If
    
14.         End With
    
15.     Next cts
    
16. ER:
    
17.     Stop
    
18.     MsgBox "錯誤值  " & Err & VBLF &  " cts=" & cts & " - " & Rng.Address & "  最後的總量是工作表的最右欄 ->  .Resize(, 4).Value :超出工作表範圍"    Resume   
    
19. End Sub

複製代碼

c_c_lai

回復 113# 藍天麗池
今天你是甚麼時間開啟 "股票10C.xlsm" 的，看圖片猜應你是於盤前便開啟它，
因為未開盤時帶入值為 #N/A，為保險起見將判斷 "營業時間" 略為挪後

1. If Time < #8:30:00 AM# Or Time > #1:31:00 PM# Then Exit Sub     '  非營業時間

複製代碼

修改成

1. If Time < #8:35:00 AM# Or Time > #1:31:00 PM# Then Exit Sub     '  非營業時間

複製代碼

如此"公式" 欄 便能傳入 正確的"DDE 匯入值" 了。
目前你先將第三列刪除，儲存檔案後，於 "營業時間" 內
再從新啟動試試！

c_c_lai

回復 116# GBKEE
應該是如我 #117 所說的狀況，複製 #N/A 時出現型態不符的訊息。

GBKEE

回復 118# c_c_lai

打開  股票10C 不要更新 DEE=#REF
執行 116帖的 Worksheet_Calculate()

1. ER:
   
2.     Stop
   
3. MsgBox Err '可再加上看看

複製代碼

c_c_lai

回復 119# GBKEE
我用 F8 完整 (Offline Trace) 追縱過了，圖片內容 (#N/A) 如同
以前開始在玩 DDE 時，經常於開盤時會碰到它，而用語法將之避開，
所以一看圖片第三列內容便知問題出在何處。等  藍天麗池  來印證吧！
(早期在玩 TradeStation與後期的 MultiChart，需要 DDE Data )