麻辣家族討論版版 » Excel程式區 » 關於資料比對的寫法

12 3 4 5 6 下一頁

返回列表下一主題上一主題發帖

關於資料比對的寫法

中學生 Rank: 2

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2016-7-17 21:12 | 只看該作者

關於資料比對的寫法

資料暫存.rar (54.84 KB)
如果要寫兩個功能1.總量變動就將股價寫入E列
2.下次總量再變動時再將E列的資料寫入F列，作這一秒(E列)跟前一秒(F列)的股價作比對
例如：台積電 9:00:00 成交價是100元，先將100寫入E2，之後9:00:10 成交價是101，同時執行將前一秒的100元寫入F2，這一秒的101寫入E2，一直持續下去要如何寫成VBA呢??
還請版上大大幫幫忙，謝謝

樓主熱帖

收藏

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

2^#

發表於 2016-7-18 11:47 | 只看該作者

回復 1# 藍天麗池
你是以"總量變動" 抑或是 "成交價" 做為比對標準？
請再仔細描述說明，謝謝！

中學生 Rank: 2

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

3^#

發表於 2016-7-18 13:02 | 只看該作者

回復 2# c_c_lai

總量變動就寫入股價，以總量變動為條件來對比股價
c大感謝

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

4^#

發表於 2016-7-18 20:24 | 只看該作者

回復 3# 藍天麗池
ThisWorkbook:

Private Sub Workbook_Open()
Dim rng As Variant
With Sheets(1)
For Each rng In Range(.[D2], .[D2].End(xlDown))
rng.Offset(, 26) = IIf(IsNumeric(rng), rng, 0)
rng.Offset(, 1) = IIf(IsNumeric(rng.Offset(, -1)), rng.Offset(, -1), 0)
Next
End With
End Sub

複製代碼

Sheet1:

Private Sub Worksheet_Change(ByVal Target As Range)
If Left(Target.Address, 2) = "$D" And IsNumeric(Target) Then
If Target.Offset(, 26).Value <> Target.Value Then
Target.Offset(, 26) = Target
Target.Offset(, 2) = Target.Offset(, 1)
Target.Offset(, 1) = IIf(IsNumeric(Target.Offset(, -1)), Target.Offset(, -1), 0)
End If
End If
End Sub

複製代碼

資料暫存.rar (61.05 KB)

中學生 Rank: 2

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

5^#

發表於 2016-7-18 20:42 | 只看該作者

回復 4# c_c_lai
C大，目前手動測試OK，明天開盤試試看
跟C大請教一下，程式碼裡面的26是甚麼阿，簡易的我還看得懂，但是無法理解裡面為什麼會有26?

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

6^#

發表於 2016-7-18 21:11 | 只看該作者

回復 5# 藍天麗池

中學生 Rank: 2

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

7^#

發表於 2016-7-18 21:50 | 只看該作者

回復 6# c_c_lai

哈哈，這樣我了解了，謝謝c大耐心解釋

中學生 Rank: 2

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

8^#

發表於 2016-7-19 11:01 | 只看該作者

回復 6# c_c_lai

c大，跟你報告一下測試結果，測試後無法執行，但我用手動輸入數字卻可行，
我在想會不會是程式對於dde的數值判定有問題呢？

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

9^#

發表於 2016-7-19 11:08 | 只看該作者

這跟我預期的一樣，因為 DDE 的匯入資料之變動
確定是不會觸發 Worksheet_Change() 的。

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

10^#

發表於 2016-7-19 11:52 | 只看該作者

回復 8# 藍天麗池
用這個程式再試試看行不行

資料暫存.rar (61.16 KB)

靜思自在 : 生氣，就是拿別人的過錯來懲罰自己。

12 3 4 5 6 下一頁

返回列表下一主題上一主題