價格紀錄的語法有寫錯嗎??

藍天麗池

中學生 Rank: 2

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

11^# 跳轉到 »

發表於 2016-4-8 10:34 | 顯示全部帖子

回復 18# c_c_lai

對

TOP

藍天麗池

中學生 Rank: 2

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

12^#

發表於 2016-4-8 10:36 | 顯示全部帖子

回復 18# c_c_lai

因為我到時候可能會抓100支股票，怕資料量太大電腦跑不動，所以才要盡可能減少不必要的資料

TOP

藍天麗池

中學生 Rank: 2

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

13^#

發表於 2016-4-8 10:45 | 顯示全部帖子

回復 22# c_c_lai

Private Sub Worksheet_Change(ByVal Target As Range)

'  當 D2 欄位有異動時，則去呼叫 RecordPrice 的方法 (Method)。

If Target.Address = "$C$2" Or Target.Address = "$E$2" Or Target.Address = "$G$2" Or Target.Address = "$I$2" Or _

            Target.Address = "$K$2" Or Target.Address = "$M$2" Or Target.Address = "$O$2" Or _

            Target.Address = "$Q$2" Or Target.Address = "$S$2" Or Target.Address = "$U$2" Then

      Call RecordPrice(Target.Address)

End If

End Sub

C大以上的地方如果我有100檔股票，是要打100個嗎??:'(

TOP

藍天麗池

中學生 Rank: 2

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

14^#

發表於 2016-4-8 11:00 | 顯示全部帖子

回復 25# c_c_lai
測試後沒有任何反應

TOP

藍天麗池

中學生 Rank: 2

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

15^#

發表於 2016-4-8 11:48 | 顯示全部帖子

本帖最後由藍天麗池於 2016-4-8 11:49 編輯

回復 27# c_c_lai

有阿，但是沒有任何反應
對，你剛剛給我的股票0我把公式放進去後沒有反應

TOP

藍天麗池

中學生 Rank: 2

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

16^#

發表於 2016-4-8 12:16 | 顯示全部帖子

回復 30# c_c_lai

C大我是用你的檔案，然後把第二列公式代入，測試結果沒有反應，我現在出門了，我回家後會將檔案上傳
測試結果是總量一直有變動，但程式都沒動作

TOP

藍天麗池

中學生 Rank: 2

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

17^#

發表於 2016-4-8 12:52 | 顯示全部帖子

本帖最後由藍天麗池於 2016-4-8 12:54 編輯

回復 32# c_c_lai

C大謝謝，我回家後測試，但剛剛那個檔案為什麼會沒動作？
我全部的程式都沒有動，只把第二列的公式代入而已啊，怎麼會這樣？

上述增加的程式用意是測試有沒有增加列嗎？那跟原本的程式有關係嗎？

TOP

藍天麗池

中學生 Rank: 2

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

18^#

發表於 2016-4-8 22:25 | 顯示全部帖子

本帖最後由藍天麗池於 2016-4-8 22:26 編輯

回復 35# c_c_lai

股票0.rar (18.55 KB)
C大，全部都沒錯唷，我是用你的檔案，所以完全沒改，我上傳你看看
打開之後沒有任何動作，甚至我手動去更改量，還會出現錯誤

TOP

藍天麗池

中學生 Rank: 2

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

19^#

發表於 2016-4-8 23:46 | 顯示全部帖子

回復 35# c_c_lai

股票10.rar (26.63 KB)
C大附件是最終版本，此版本不用複製時間，只要往下寫B2-E2、F2-I2...以此類推，我不知道如果這樣的話以下要如何更改

Private Sub Worksheet_Change(ByVal Target As Range)
'  當 D2 欄位有異動時，則去呼叫 RecordPrice 的方法 (Method)。
If Target.Address = "$D$2" Or Target.Address = "$H$2" Or Target.Address = "$L$2" Or Target.Address = "$P$2" Or _
            Target.Address = "$T$2" Or Target.Address = "$X$2" Or Target.Address = "$AB$2" Or _
            Target.Address = "$AF$2" Or Target.Address = "$AJ$2" Or Target.Address = "$AN$2" Then
      Call RecordPrice(Target.Address)
End If
End Sub

真的要打100個嗎??

TOP

藍天麗池

中學生 Rank: 2

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

20^#

發表於 2016-4-9 08:32 | 顯示全部帖子

回復 38# c_c_lai

C大，這樣說好了，你一開始傳給我的股票0我用手動更改是可以執行的，所以我就把原本那份套入公式，之後就不能執行，我"完全"沒有變更，所以我在想之前那份可以執行是因為"純數字"，後來帶入公式後無法執行，會不會是因為程式對公式的判斷出現問題??

因為原本用數字可以執行，帶入公式後就不行，所以我認為問題不會出現在券商的軟體，因為如果問題出現在軟體，那一開始的股票0就也會無法執行阿，但純數字版的卻可以執行，以上是我得看法，C大認為呢??

TOP

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]