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

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

Brandy

中學生 Rank: 2

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

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

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

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

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

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

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

儲存格變動.rar (14.11 KB)

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

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

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

5^#

發表於 2015-7-7 05:45 | 只看該作者

回復 1# Brandy

可參考 : 詢問一個紀錄開高低收價的VBA問題

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

bobomi

中學生 Rank: 2

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

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

vic