DDE記錄資料求助 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » DDE記錄資料求助

12 3 4 下一頁

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

[發問] DDE記錄資料求助

小學生 Rank: 1

帖子: 17
主題: 1
精華: 0
積分: 19
點名: 0
作業系統: VISTA
軟體版本: OFFICE2003
閱讀權限: 10
註冊時間: 2013-4-12
最後登錄: 2013-4-30

1^# 跳轉到 »

發表於 2013-4-12 16:53 | 只看該作者

有關excel自動紀錄即時資料

各位前輩們好，小弟有excel上的問題想請教大家，自己本身沒什麼excel的基本功，所以想請大家幫幫忙

我有使用群益超級贏家"匯出EXCEL"功能，可以將盤中跳動資料匯出到EXCEL中，我匯出的項目主要有期貨的委買口數委賣口數委買筆數委賣筆數委買均口委賣均口，但這是即時資料，是會一直跳動的

請問我如何將他的資料紀錄下來，在例如0850，0855，0900，0905等，每隔五分鐘便自動將資料保存紀錄下來?

我該做哪些動作?

超級版主 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兔年全勤獎章

2^#

發表於 2013-4-12 17:25 | 只看該作者

回復 1# n8975067
本程式區已有許多相關的討論,請多多詳看

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

小學生 Rank: 1

帖子: 4
主題: 1
精華: 0
積分: 5
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 10
註冊時間: 2013-4-10
最後登錄: 2013-4-16

3^#

發表於 2013-4-12 17:48 | 只看該作者

Sub updateFollow()

   Sheet1.Range("a" & Rows.Count).End(xlUp).Offset(1) = Sheet1.[a2]
   Sheet1.Range("b" & Rows.Count).End(xlUp).Offset(1) = Sheet1.[b2]
   Sheet1.Range("c" & Rows.Count).End(xlUp).Offset(1) = Sheet1.[c2]

End Sub

剛好我也是這幾天才爬文學會的~~

小學生 Rank: 1

帖子: 4
主題: 1
精華: 0
積分: 5
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 10
註冊時間: 2013-4-10
最後登錄: 2013-4-16

4^#

發表於 2013-4-12 17:51 | 只看該作者

Sub TimePlus1()
      '每五分呼叫一次
      Application.OnTime Now + 300 / 86400#, "UpdateFollow"

End Sub

希望對你有幫助

小學生 Rank: 1

帖子: 17
主題: 1
精華: 0
積分: 19
點名: 0
作業系統: VISTA
軟體版本: OFFICE2003
閱讀權限: 10
註冊時間: 2013-4-12
最後登錄: 2013-4-30

5^#

發表於 2013-4-12 21:03 | 只看該作者

各位前輩，這些程式語言的能力，我趨近於零，今天惡補了一些相關知識，這些程式語言是要放置在"巨集"內嗎?

小學生 Rank: 1

帖子: 39
主題: 4
精華: 0
積分: 48
點名: 0
作業系統: windows 7
軟體版本: sp1
閱讀權限: 10
性別: 男
註冊時間: 2013-2-2
最後登錄: 2014-8-26

6^#

發表於 2013-4-13 12:26 | 只看該作者

回復 5# n8975067

按Ibt大大的方法可以寫成一個巨集，不需要兩個吧！我也不懂是不是這樣寫可以。

Sub updateFollow()
Sheet1.Range("a" & Rows.Count).End(xlUp).Offset(1) = Sheet1.[a2]
Sheet1.Range("b" & Rows.Count).End(xlUp).Offset(1) = Sheet1.[b2]
Sheet1.Range("c" & Rows.Count).End(xlUp).Offset(1) = Sheet1.[c2]
'每五分呼叫一次
Application.OnTime Now + 300 / 86400#, "UpdateFollow"
End Sub

複製代碼

人生只有三天，只有活在今天最踏實

超級版主 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兔年全勤獎章

7^#

發表於 2013-4-13 16:53 | 只看該作者

回復 5# n8975067
這裡先把玩一下

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

小學生 Rank: 1

帖子: 17
主題: 1
精華: 0
積分: 19
點名: 0
作業系統: VISTA
軟體版本: OFFICE2003
閱讀權限: 10
註冊時間: 2013-4-12
最後登錄: 2013-4-30

8^#

發表於 2013-4-14 11:25 | 只看該作者

本帖最後由 n8975067 於 2013-4-14 11:27 編輯

Sheet1.Range("a" & Rows.Count).End(xlUp).Offset(1) = Sheet1.[a2]
有顏色的部分是會包誇整個a的資料嗎，還是說要設程"a2"這樣，我只想要會跳動的數字部分

小學生 Rank: 1

帖子: 17
主題: 1
精華: 0
積分: 19
點名: 0
作業系統: VISTA
軟體版本: OFFICE2003
閱讀權限: 10
註冊時間: 2013-4-12
最後登錄: 2013-4-30

9^#

發表於 2013-4-15 11:33 | 只看該作者

中文也要打進去嗎?
今天試了上面的語法，結果沒辦法

小學生 Rank: 1

帖子: 17
主題: 1
精華: 0
積分: 19
點名: 0
作業系統: VISTA
軟體版本: OFFICE2003
閱讀權限: 10
註冊時間: 2013-4-12
最後登錄: 2013-4-30

10^#

發表於 2013-4-19 11:04 | 只看該作者

回復 6# barrykuo
大大你好，這個程式碼我套用進去後，在開盤時間開啟，沒有任何動作，告訴我此專案巨集已被暫止，這是什麼意思?

靜思自在 : 【蒙蔽的自由】人常在什麼都可以自由自在的時候，卻被這種隨心所欲的自由蒙蔽，虛擲時光而毫無覺知。

12 3 4 下一頁

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