n8975067

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

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

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

我該做哪些動作?

GBKEE

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

lbt

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

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

lbt

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

希望對你有幫助

n8975067

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

barrykuo

回復 5# n8975067


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

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

複製代碼

GBKEE

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

下載 (43.82 KB)

2013-4-13 16:53

n8975067

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

n8975067

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

n8975067

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