- 帖子
- 32
- 主題
- 6
- 精華
- 0
- 積分
- 55
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- XP
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2011-4-25
- 最後登錄
- 2011-12-18
|
本帖最後由 ko310kmo 於 2011-5-12 02:09 編輯
回復 6# GBKEE
謝謝大大的熱心幫助，想先請教幾個問題
A = Application.Transpose(Range("C2", Range("D2").End(xlDown)).Value) '即時成交價與成單量範圍陣列
If TheTime <> TimeSerial(Hour(Time), Minute(Time), 0) Then '設定每分鐘整
ReDim AR(2 To Range("b2").End(xlDown).Row, 1 To 6)
Ex
TheTime = TimeSerial(Hour(Time), Minute(Time), 0)
Else
Ex
End If 不太懂的這段的意思
If IsEmpty(B) Then '比對陣列為資料
For Each E In Range("b2", Range("b2").End(xlDown))
With Sheets(E.Text).Cells(Rows.Count, "j").End(xlUp)
.Offset(1) = E(1, 2) '記錄下 成交價
.Offset(1, 1) = E(1, 3) '記錄下 單量
.Offset(1, 3).Resize(1, 6) = Application.Index(AR, E.Row - 1) '讀取一分鐘內的資料
為什麼要讀取一分鐘的資料？
End With
Next
Else
For i = 1 To UBound(A, 2)
If A(1, i) <> B(1, i) Or A(2, i) <> B(2, i) Then ' 履約價的(成交價或成單量)有變動
With Sheets([B2].Cells(i, 1).Text).Cells(Rows.Count, "j").End(xlUp)
請問[B2]是什麼意思，本來以為是Range("B2")，但感覺好像有不對．．．
.Offset(1) = [B2].Cells(i, 2) '記錄下 即時成交價
.Offset(1, 1) = [B2].Cells(i, 3) '記錄下 單量
.Offset(1, 2).Resize(1, 6) = Application.Index(AR, i) '讀取一分鐘內的資料
-------------------------------------------------------------------------------------
我照大大的檔，再依我個人需求，再做了少部分的修改
說明一下我主要的架構
sheet1接受DDE的值
某一列的成交價一變動，就馬上把它的價、量、變動的時間（第幾分幾秒發生跳動的時間）
記入到它所屬的工作表，一直往下紀錄（Ｊ∼Ｌ欄）（秒的資料）
並每到一分鐘就把算出它一分鐘內的開、高、低、收、成交量（Ｍ∼Ｒ欄）
 over 5.12.rar (24.11 KB)
|
|
發表於 2011-5-11 00:32
| 
