返回列表 上一主題 發帖

為什麼我的Excel 不會動 ??

為什麼我的Excel 不會動 ??

本帖最後由 color790 於 2011-11-11 17:29 編輯

問一個很粗淺的問題.....(不過我快被搞瘋了)

主要是想用版主GBKEE 這一段程式 http://forum.twbts.com/thread-4188-1-1.html
只是都無法動,所以找了以下最簡單的程式來試試結果也不行,
Private Sub Worksheet_Calculate()
Range("b1").End(xlDown).Offset(1) = Range("a1")
End Sub
意思應該是[A1]如果變動,在B欄會記錄下來, 可是為什麼我的Excel 不會動 ??
程式寫在工作表1也不會動, ThisWorkbook也不會動
活頁簿2.rar (10.9 KB)
初學者color

剛有重試一下, 我用DDE, 數據確定會動, 但B欄卻都不會動
還是說要設定哪邊, 真奇怪
初學者color

TOP

可以了.... 結果真的很奇怪
好像要在巨集設定裡, 點選 "啟用所有巨集(......) "
以前都點選 "除了經數位簽章的巨集外,停用所有巨集" , 開檔案按啟用巨集就可使用巨集
這個居然不行.....
不過總算可用了, 晚一點再來試試GBKEE的程式
謝謝大家的幫忙, 如果有問題,再麻煩各位幫忙解答...... ^^
初學者color

TOP

HI~GBKEE版主
剛用你寫的程式, 又不會動了
可否麻煩你幫我看一下(我有修改時間及一點點其他的)
活頁簿2.rar (16.12 KB)
初學者color

TOP

版主,我不太懂
我D1現在是設 10:00:00 PM ,  B1是09:00:00 AM
由於是抓外國的DDE所以目前都會動, 也設立中斷點, 也按 F2  再按 Enter
但在VBA視窗按F8都是到尚未開盤下一行就又迴圈了, 這是為什麼?
初學者color

TOP

版主不要這麼說, 你肯幫忙已經很好了....
由於現在是假日沒有DDE來源可用, 禮拜一再來完整的使用看看,
如果用版主的方法(設中斷點,按F8測試), 會在這一行停止
  Tr = Int((Time - startTime) / Time_Step) + 30
換成另一行OK
Tr = Int((Time - startTime) * 1440) +30
初學者color

TOP

HI~版主
已經可以用了, 謝謝幫忙~
另外再請問一下(雖然原來的做法也可以)
1.如果使用DDE上的時間, 要怎麼做到每幾分鐘抓一次資料(因為有時候會跟電腦的時間不太一樣)
DDE時間格式是類似像134459 --->13:44:59
2.DDE一直在跳動,可以用使累積量記錄嗎?比如記錄累積一分鐘的買賣量
3.Private Sub Worksheet_Calculate() 有辦法在其中一兩個儲存格發生變動才觸發vb嗎?
初學者color

TOP

DDE-1.rar (16.98 KB)
hi~版主, 不好意思, 有2個想法想請你幫忙
1. 時間是想以dde上的時間為主,每5分鐘(或1分鐘) 記錄價格,時間,最高價,最低價,開始價,結束價及累積[G8] & [I8]的量

2. 另一個想法是想[G8] & [I8]發生變化, 才記錄時間,價格
初學者color

TOP

天啊.....太感謝你了,版主
回家再來試一下, 感恩:'(
初學者color

TOP

HI~版主, 再麻煩你一下~
第一個程式在剛打開程式時, 下面這一行會有錯誤產生
If S <> [G8] & [i8] And [G8] & [i8] <> "" Then
不過在偵錯後停止再按執行就OK了,再麻煩你一下, 謝謝版主~
初學者color

TOP

        靜思自在 : 好事要提得起,是非要放得下,成就別人即是成就自己。
返回列表 上一主題