藍天麗池

回復 18# c_c_lai

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

c_c_lai

回復 20# 藍天麗池
shtRTD(RTD) 工作表單內容：

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     '  當 D2 欄位有異動時， 則去呼叫 RecordPrice 的方法 (Method)。
   
3.     If Target.Address = "$C$2" Or Target.Address = "$E$2" Or Target.Address = "$G$2" Or Target.Address = "$I$2" Or _
   
4.               Target.Address = "$K$2" Or Target.Address = "$M$2" Or Target.Address = "$O$2" Or _
   
5.               Target.Address = "$Q$2" Or Target.Address = "$S$2" Or Target.Address = "$U$2" Then
   
6.         Call RecordPrice(Target.Address)
   
7.     End If
   
8. End Sub

複製代碼

Module1 模組內容：

1. Option Explicit
   
2. 
   
3. Sub RecordPrice(TG As String)
   
4.     Dim WR As Long
   
5. 
   
6.     If Range("A1") < 1 Then Exit Sub
   
7.     '  WR = Range("A1").End(xlDown).Row + 1
   
8.     WR = Range(TG).End(xlDown).Row + 1      '  修改成以觸發之欄位為判斷基點
   
9. 
   
10.     '  ActiveWindow.ScrollRow = WR - 5           '  只顯示最新幾筆資料
    
11. 
    
12.     Cells(WR, 1).NumberFormatLocal = "hh:mm:ss"
    
13.    
    
14.     If WR = 3 Then  '  總量有異動時才記錄
    
15.         Cells(WR, 1).Resize(, 21) = [A2:U2].Value
    
16.     Else
    
17.         Cells(WR, 1) = [A2]
    
18.         Range(Left(TG, 3) & WR) = Range(TG)
    
19.         Range(Left(TG, 3) & WR).Offset(, -1) = Range(TG).Offset(, -1)
    
20.     End If
    
21. End Sub

複製代碼

藍天麗池

回復 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個嗎??:'(

c_c_lai

回復 21# 藍天麗池
標頭第一、二列公式請自行補上 (因我此端無啟動券商軟體，所以無法加入公式會照成Excel檔案  "無法回應")
股票0.rar (18.82 KB)

下載次數: 3

2016-4-8 10:51

至於如何處裡日期問題，你再自行先研究看看。

c_c_lai

回復 23# 藍天麗池
如你不去特別指定欄位的觸發的話，那只要任何欄位有異動均會觸發事件的。

藍天麗池

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

c_c_lai

回復 26# 藍天麗池
你是指 "股票0.xlsm" 嗎？
麗二列的圈商商品的對應公式有加入嗎？

藍天麗池

回復 27# c_c_lai


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

c_c_lai

回復 28# 藍天麗池
第二列的任何總量有異動時，均未有寫入資料嗎？
你是用完整的 "股票0.xlsm" 來測試的嗎？
如仍一樣，上傳你目前正在測試的檔案。
否則我附上的圖示是如何產生的？

c_c_lai

回復 28# 藍天麗池

下載 (18.89 KB)

2016-4-8 11:59