[發問] 請問有關分時明細的製作??(麻煩幫忙修改)

以下我做出了兩個
第一個是每秒抓一次資料(我用的是元大YESWIN的dde)

每秒抓分時明細.rar (19.08 KB)
第二個是儲存格有變動就複製然後在第二頁貼上

儲存格變動.rar (14.11 KB)

我的目的是做出像券商軟體的分時明細
第一個每秒抓可以正常執行，但是每秒抓的資料太多，很多重複沒用的資料且很耗資源
第二個是只要儲存格有變動，我想應該是依據成交量有變化就記錄，手動在第一頁G7依序打入1,2,3,4,5
則在第二頁也會依序產生一列一列的剛剛打的數字，但是套上券商的dde就不能動了...

我想第二個方法應該能避免抓到重複沒用的資料，請問要如何改呢??
在盤中分時明細可以輸出到excel，但是分時明細是一直在跳，每次都要手動輸出太累了，所以我才想能不能像券商軟體一樣即時更新
謝謝

樓主熱帖

Brandy

中學生 Rank: 2

帖子: 34
主題: 7
精華: 0
積分: 71
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 20
註冊時間: 2012-11-12
最後登錄: 2022-5-2

2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章

2^#

發表於 2013-1-11 10:50 | 只看該作者

抱歉打錯，上文中的G7應該是G2才對

TOP

vic

中學生 Rank: 2

帖子: 16
主題: 5
精華: 0
積分: 50
點名: 0
作業系統: win7 64
軟體版本: excel 2013
閱讀權限: 20
性別: 男
註冊時間: 2015-7-5
最後登錄: 2017-4-18

3^#

發表於 2015-7-6 13:07 | 只看該作者

回復 1# Brandy

想請教有高手知道嗎? 因為我也想知道XD

TOP

bobomi

中學生 Rank: 2

帖子: 181
主題: 5
精華: 0
積分: 197
點名: 0
作業系統: XP
軟體版本: 2000
閱讀權限: 20
性別: 女
註冊時間: 2014-3-9
最後登錄: 2024-1-20

4^#

發表於 2015-7-6 14:24 | 只看該作者

好精簡的方法
繼續沿用你的精簡碼

' 放到 Sheet1 裡面

Private Sub Worksheet_Calculate()
  A = Sheet2.Range("A" & Rows.Count).End(xlUp).Offset(1)
  If A = "" Then A = Time - TimeValue("00:00:01")
  If Time > A Then
   Sheet2.Range("A" & Rows.Count).End(xlUp).Offset(1) = Time
   Sheet2.Range("B" & Rows.Count).End(xlUp).Offset(1) = Sheet1.[A2]
   Sheet2.Range("C" & Rows.Count).End(xlUp).Offset(1) = Sheet1.[B2]
   Sheet2.Range("D" & Rows.Count).End(xlUp).Offset(1) = Sheet1.[C2]
   Sheet2.Range("E" & Rows.Count).End(xlUp).Offset(1) = Sheet1.[D2]
   Sheet2.Range("F" & Rows.Count).End(xlUp).Offset(1) = Sheet1.[E2]
   Sheet2.Range("G" & Rows.Count).End(xlUp).Offset(1) = Sheet1.[F2]
   Sheet2.Range("H" & Rows.Count).End(xlUp).Offset(1) = Sheet1.[G2]
  End If
End Sub

TOP

GBKEE