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

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

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

關於資料比對的寫法

博士班 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)

博士班 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: 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: 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: 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

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

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

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

2^#

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

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

靜思自在 : 【行善要及時】行善要及時，功德要持續。如燒開水一般，未燒開之前千萬不要停熄火候，否則重來就太費事了。

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