『已解決』陣列比較，找出差異的儲存格

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

18^#

發表於 2011-5-17 18:59 | 只看該作者

回復 17# ko310kmo
[B2] = [B2](1, 1) = [B2].Cells(1, 1) = Rrange("B2").cells(1,1) => [B2].Offset( 0 , 0 ) => Rrange("B2")
[B2](2, 3) = [B2].Cells(2, 3) = Rrange("B2").cells(2,3) => Rrange("B2").Offset( 1, 2 )=>Rrange("D3")

帖子: 32
主題: 6
精華: 0
積分: 55
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 女
註冊時間: 2011-4-25
最後登錄: 2011-12-18

17^#

發表於 2011-5-17 16:46 | 只看該作者

回復 10# GBKEE
大大對於程式碼的寫法，還有幾點想請教

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, 2) = Time       '記錄成交時間
         End With
      Next
E(1, 2)這寫法是什麼意思?
Else
      For i = 1 To UBound(A, 2)
         If A(1, i) <> B(1, i) Or A(2, i) <> B(2, i) Or A(3, i) <> B(3, i) Then ' 履約價的(成交價或成單量)有變動
            With Sheets([B2].Cells(i, 1).Text).Cells(Rows.Count, "j").End(xlUp)
                  .Offset(1) = [B2].Cells(i, 2)       '記錄下即時成交價
                  .Offset(1, 1) = [B2].Cells(i, 3) '記錄下單量
                  .Offset(1, 2) = Time
            End With
         End If
      Next
End If
[B2].Cells(i, 3)
雖然看了大大貼的網址的教學
所以是  range("B2").cells(i,3) 的意思嗎?
看了好久，還是不太了解
請大大解釋一下，謝謝!!!

50 字節以內
不支持自定義 Discuz! 代碼

帖子: 32
主題: 6
精華: 0
積分: 55
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 女
註冊時間: 2011-4-25
最後登錄: 2011-12-18

16^#

發表於 2011-5-12 22:28 | 只看該作者

本帖最後由 ko310kmo 於 2011-5-13 10:10 編輯

回復 15# GBKEE

請問大大
If Minute(Time) = Minute(t) Then
Do While Minute(Time) = Minute(t)
這二行的意思是
一直做到這一分鐘過完對吧!
而我們後面又寫Application.OnTime Now + TimeValue("00:01:00"), "test2"
所以會不會是因為這樣，才會造成二分鐘記錄一次呢?

我在想是不是，不用加Application.OnTime
而把大大原本的程式最後寫的
Loop Until Time <= #1:30:00 PM#
改成
Loop Until Time >= #1:30:00 PM#

loop until time<=1:30
做到時間小於1點30就跳出，測試的時間一定都是小於1:30的，所以才跳跑一遍而已，就跳出

大大，今日測試結果，只要把<改成>就沒有問題了，謝謝大大的幫忙與耐心講解！！！:)

50 字節以內
不支持自定義 Discuz! 代碼

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

15^#

發表於 2011-5-12 20:02 | 只看該作者

回復 14# ko310kmo
如果我是先執行test1再執行test2，沒有設定test3,這樣分鐘資料只會更新第一遍。
不要用test3了
test2 最後加上
If Time <= #1:30:00 PM# Then Application.OnTime Now + TimeValue("00:01:00"), "test2"
End Sub

帖子: 32
主題: 6
精華: 0
積分: 55
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 女
註冊時間: 2011-4-25
最後登錄: 2011-12-18

14^#

發表於 2011-5-12 11:59 | 只看該作者

本帖最後由 ko310kmo 於 2011-5-14 17:12 編輯

回復 13# GBKEE

大大我了解了
我本來是用即時成交價、單量
我想再用一個成交量來看變動

我自行依你提供的幾個程式，修改後
Calculate已經可以正確寫入了

現在會出現的問題是
分鐘資料是２分鐘更新一次

我是先執行 test1，等它跑完再執行test3
這樣是可以每分更新的

如果我是先執行test1再執行test2，沒有設定test3
這樣分鐘資料只會更新第一遍。

請問這到底是該如何修改才好呢？
懇請大大賜教！！！

50 字節以內
不支持自定義 Discuz! 代碼

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

13^#

發表於 2011-5-12 11:40 | 只看該作者

回復 11# ko310kmo
Worksheet_Calculate 事件是當工作表的任一個公式所傳回的數值有改變時即執行的程式
所以你附檔 ok.5.10 的程式碼會使用迴圈將Range("B2:B" & M)範圍內的工作表一一的寫入資料
請在參考 10樓的程式碼試試看但用Worksheet_Calculate來記錄還是會有誤差的
如成交價不變 00:10:01時的成交量是 10 下一次的成交在 00:10:11 時的成交量還是 10
如此Worksheet_Calculate 是不會執行的誤差就產生 , 所以建議有成交價及成交量的時間欄來參考.

帖子: 32
主題: 6
精華: 0
積分: 55
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 女
註冊時間: 2011-4-25
最後登錄: 2011-12-18

12^#

發表於 2011-5-12 10:43 | 只看該作者

回復 2# Hsieh

大大
我原本的檔有稍做修改，但應該不致於造成太大的問題
但大大的Calculate會在『 If arr(I, 2) & arr(I, 3) <> rng(I, 2) & rng(I, 3) Then』發生黃底『型態不符合』的錯誤？
研究了一下還是發不出原因，希望大大賜教

5.102.2.rar (22.2 KB)
因為一般模組中已有寫了一個陣列ar，所以有將大大的ar 改為arr

50 字節以內
不支持自定義 Discuz! 代碼

帖子: 32
主題: 6
精華: 0
積分: 55
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 女
註冊時間: 2011-4-25
最後登錄: 2011-12-18

11^#

發表於 2011-5-12 09:49 | 只看該作者

回復 5# ko310kmo

大大
Calculate已經會一觸發，就寫入相對的工作表，不會讓其他工作表重複寫入了
但比較尾部的工作表會出現第一個歷史成交價、單量為０的狀況，會造成後面四個價的判斷問題
而且分鐘資料會重複跳出
每一分鐘只會有一筆，但卻會同一分鐘出現二、三筆的問題

我資料顯示的方式是希望像附檔

ok.5.10.rar (74.4 KB) ，也就是只前發問的這樣
每秒紀錄所以接受的值，再每分鐘結算它這一分內的開、高、低、收、成交量
但這檔會出現的問題是，它的Calculate無法得知是哪個儲存格跳動
會所以工作表都寫入一次，會造成資料錯誤的問題

謝謝大大的幫忙！！！！！

1版.over.rar (27.56 KB)

50 字節以內
不支持自定義 Discuz! 代碼

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

10^#

發表於 2011-5-12 09:34 | 只看該作者

本帖最後由 GBKEE 於 2011-5-12 10:52 編輯

回復 9# ko310kmo
If TheTime <> TimeSerial(Hour(Time), Minute(Time), 0) Then
檔案一執行時 TheTime <> TimeSerial(Hour(Time), Minute(Time), 0)
執行之後有設定 TheTime = TimeSerial(Hour(Time), Minute(Time), 0)
經時間到下一分鐘後 TheTime <> TimeSerial(Hour(Time), Minute(Time), 0)
ReDim AR(2 To Range("b2").End(xlDown).Row, 1 To 6)
將 AR陣列重新初始化 (歸零)
.Offset(1, 3).Resize(1, 6) = Application.Index(AR, E.Row - 1) '讀取一分鐘內的資料
AR陣列是紀錄一分鐘內各履約價的時間, 開, 高, 低, 收, 量
請問[B2]是什麼意思
http://forum.twbts.com/viewthread.php?tid=2811&from=favorites
*******************************************************
重新修改試試看但與你的期望尚有距離

Private Sub Worksheet_Calculate()
Dim E, i%
On Error GoTo t '處理即時成交價與成單量範圍沒有錯誤值
If Not Range("C2", Range("D2").End(xlDown)).SpecialCells(xlCellTypeFormulas, xlErrors) Is Nothing Then
Exit Sub '此檔案初開始連結時即啟動重算 ->但是尚有未連結到的儲存格會傳回錯誤值
End If
t:
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) '陣列重新初始化 (歸零)
開盤價 = Empty '變數初始化 (歸零)
Ex
If Not IsEmpty(B) Then
For Each E In Range("b2", Range("b2").End(xlDown))
Sheets(E.Text).Cells(Rows.Count, "j").End(xlUp).Offset(, 6) = B(1, E.Row - 1) '一分鐘結束時的價格
Next
End If
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, 2).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)
.Offset(1) = [B2].Cells(i, 2) '記錄下即時成交價
.Offset(1, 1) = [B2].Cells(i, 3) '記錄下單量
.Offset(1, 2).Resize(1, 6) = Application.Index(AR, i) '讀取一分鐘內的資料
End With
End If
Next
End If
B = A
End Sub
Sub Ex() 'Sheet1的程式碼你發問的那篇 [dde tick資料轉換分鐘資料]
Dim i%
If IsEmpty(開盤價) Then
ReDim 開盤價(2 To UBound(AR))
For i = 2 To [B1].End(xlDown).Row
開盤價(i) = Cells(i, "C")
Next
End If
For i = 2 To [B1].End(xlDown).Row
If TheTime <> TimeSerial(Hour(Time), Minute(Time), 0) Then
AR(i, 1) = Time 'TimeSerial(Hour(Time), Minute(Time), 0) '時間
AR(i, 2) = 開盤價(i) '每分鐘開盤價
AR(i, 3) = Cells(i, "C") '每分鐘的最高價
AR(i, 4) = Cells(i, "C") '每分鐘的最低價
AR(i, 6) = Cells(i, "D") '每分鐘的成交量
Else
AR(i, 1) = Time
AR(i, 3) = IIf(Cells(i, "C") > AR(i, 3), Cells(i, "C"), AR(i, 3)) '每分鐘的最高價
AR(i, 4) = IIf(Cells(i, "C") < AR(i, 4), Cells(i, "C"), AR(i, 4)) '每分鐘的最低價
'AR(i, 5) = Cells(i, "C") '每分鐘的收盤價
AR(i, 6) = AR(i, 6) + Cells(i, "D") '每分鐘的成交量
End If
Next
End Sub

複製代碼