Re: [問題] 如何每秒紀錄Excel中的DDE資料?

[TKelevens (CA 94305)]

Sub DDE_Sec()


   If Time >= TimeValue("08:45:00") And Time <= TimeValue("13:45:00") Then

        For i = 1 to 18000

             If i = 1 or ( Sheet1.Cells( i-1 , "B" ) <> Empty _
                           And Sheet1.Cells( i , "B" ) = Empty ) then

                  Sheet1.Cells( i , "B" ) = Sheet1.Range("A1")

             End If

        Next

   End If

   Application.OnTime Now + TimeValue("00:00:01"), DDE_Sec


End Sub



※ 引述《remark7 (倒數計時)》之銘言：
: 請問如果在Excel的A1格是會隨時跳動的DDE資料
: 我想要從AM 8:45開始~PM 1:45結束 (可能AM 8:40開啟Excel 但要AM 8:45才開始記錄)
: 每隔一秒將"A1"格的數字保存記錄在"B1"."B2"."B3"..."B18000" 當中
: 然後只要B行開始有數據 就自動繪出"B1"~"B18000"的連線圖
: 原PO不懂VBA 還請大家多多指教了 感謝大家 :)

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 114.45.235.63
推 ETHZ:推一個
推 HollisterCo:簡單 乾淨 易懂
推 thunderclap:抱歉想說不要發文佔版面@@ 請問您有推薦哪本參考書入
→ thunderclap:門vba嗎? 我純財金背景，不會寫程式想自修QQ
推 ssdog:推
推 jamesLD:找一些財工模型的書自學VBA就好了  不然就買Excel-VBA的書
→ jamesLD:小弟也是研所看書自學的  VBA不難的
推 youngswallow:"財金資訊系統建構實務"一書可參考
→ youngswallow:http://eduweb.sfi.org.tw/Course.aspx?id=5684
→ youngswallow:想找人一起參加
推 remark7:感謝 :)
推 thunderclap:謝謝各位!
推 Genki626:感謝分享 推一個
→ TKelevens:看到E老跟元氣大兩位推文小弟受精了
推 ckgegg:                              ^^^^
→ jamesLD:~~~<>  ~~~<>  ~~~<>   <>~~~  <>~~~  <>~~~
推 Genki626:1TK大 別客氣 我們都是受精卵...(咦)  ^_^
推 saysorryap:推