j1221

回復 10# GBKEE


感謝您的解答

第二個問題請您查閱附檔，我加上了均買、均賣兩個簡單的計算在sheet1，然後跟之前一樣，希望在sheet2按照每分鐘記錄下來

今天開盤的時候試，發現新增的欄位沒辦法記錄下來（也就是附檔中的J2、K2）只有舊的欄位可以按每分鐘紀錄

今天的紀錄被我腦殘洗掉了....Orz

再次謝謝您這麼熱心的幫忙，真的太感動了

j1221

回復 10# GBKEE


GBKEE大，我的問題解決了

是我自己腦殘 Rng.Value = R.Offset(, 1).Resize(, 6).Value沒做相對應的更動，難怪不會記錄.....

這樣就不用勞煩您了

真的謝謝你的熱心幫助，感謝您

7777

GBKEE大
本人  也有類似的問題  借此一問
本人的資訊源 是來至永豐金的易利得軟體 ( 接收 大台指 資料 )
內容如下：

Dim i As Single
Private Sub Workbook_Open()

  Application.OnTime Now + TimeValue("00:00:05"), "ThisWorkBook.ExeSelf"
End Sub
Private Sub ExeSelf()
  On Error Resume Next
  i = i + 1
  If i = 1 Then
  Sheets(1).Cells(1, 1) = Date
  i = i + 1
  End If
  Sheets(1).Cells(i, 2) = Time
  Sheets(1).Cells(i, 3) = Sheets(2).Cells(2, 1)
  Sheets(1).Cells(i, 4) = Sheets(2).Cells(2, 2)
  Sheets(1).Cells(i, 5) = Sheets(2).Cells(2, 3)

  Application.OnTime Now + TimeValue("00:00:05"), "ThisWorkBook.ExeSelf"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
  On Error Resume Next
  Application.OnTime Now + TimeValue("00:00:05"), "ThisWorkBook.ExeSelf", , False
End Sub

問題是：
一啟動檔案，資料就開始接收
非開盤時間沒有資料下，仍然在跑

可否能   我8:30開起檔案
8:45 後才開始  接收資料
13:45 後 就 結束  接收資料

謝謝!!

Hsieh

回復 13# 7777
這樣試試看

1. Dim i As Single
   
2. Private Sub Workbook_Open()
   
3.   Application.OnTime TimeValue("08:45:00"), "ThisWorkBook.ExeSelf"
   
4. End Sub
   
5. Private Sub ExeSelf()
   
6.   On Error Resume Next
   
7.   If TimeValue(Now) > TimeValue("13:45:00") Then Exit Sub
   
8.   i = i + 1
   
9.   If i = 1 Then
   
10.   Sheets(1).Cells(1, 1) = Date
    
11.   i = i + 1
    
12.   End If
    
13.   Sheets(1).Cells(i, 2) = Time
    
14.   Sheets(1).Cells(i, 3) = Sheets(2).Cells(2, 1)
    
15.   Sheets(1).Cells(i, 4) = Sheets(2).Cells(2, 2)
    
16.   Sheets(1).Cells(i, 5) = Sheets(2).Cells(2, 3)
    
17.   Sheets(1).Cells(i, 6) = Sheets(2).Cells(2, 4)
    
18.   Application.OnTime Now + TimeValue("00:00:05"), "ThisWorkBook.ExeSelf"
    
19. End Sub

複製代碼

7777

Hsieh 大

太棒了!!

由於 昨天太趕  來不及測試

今天 測試起來 正確無誤

在此 真的~ 超級萬分感謝!!



二.
但是 存檔後 再次進入

預計 想修改 秒數

但在 程式碼編輯器內 的資料

卻變不見了 是 空的ㄝ

再次請教

Hsieh

已經農曆8月，怎麼還會有靈異事件?

7777

嘿嘿!!  今天 又正常  

不明原因  有如  "消失的密室"  

還是 感謝!!  Hsieh大

humanbondage

小弟初來乍到,也因為想開始透過dde,利用vba的程式將想記錄的固定時間資料存取下來做一些運算
很高興有這麼多高手在此熱心分享
希望能多多學習,謝謉

wearnks

回復 16# Hsieh
請問版主：1.若使用EXCEL DDE+VBA 紀錄期貨資料應該要有哪些條件?  
               2.若使用 (KGI全球通I3_Beta版)+excel2007的DDE數據每5分鐘自動記錄一筆資料應該如何寫?(我沒有VBA的基礎)不好意思。  謝謝。

swapjj

真是厲害的GBKEE 哥哥，雖然我完全看不懂，不過看得出邏輯架構相當完整
看來小弟還有好多牆要去撞，才能將EXECL到達運用自如的火侯
佩服~佩服~~