為什麼我的Excel 不會動 ??

帖子: 117
主題: 34
精華: 0
積分: 155
點名: 0
作業系統: windows XP
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-19
最後登錄: 2024-8-29

18^#

發表於 2011-11-17 13:47 | 只看該作者

謝謝版主的幫忙

初學者color

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兔年全勤獎章

17^#

發表於 2011-11-17 06:58 | 只看該作者

回復 16# color790
你的DEE 資料為錯誤值 #REF!

Private Sub Worksheet_Calculate()
Application.EnableEvents = False
If IsError([G8]) = 0 And IsError([i8]) = 0 Then
If S <> [G8] & [i8] And [G8] & [i8] <> "" Then
Cells(Rows.Count, "k").End(xlUp).Offset(1).Resize(1, 3) = Array(Time, [G8], [i8])
S = [G8] & [i8]
End If
End If
Application.EnableEvents = True
End Sub

複製代碼

帖子: 117
主題: 34
精華: 0
積分: 155
點名: 0
作業系統: windows XP
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-19
最後登錄: 2024-8-29

16^#

發表於 2011-11-16 22:48 | 只看該作者

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

初學者color

帖子: 117
主題: 34
精華: 0
積分: 155
點名: 0
作業系統: windows XP
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-19
最後登錄: 2024-8-29

15^#

發表於 2011-11-15 14:37 | 只看該作者

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

初學者color

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兔年全勤獎章

14^#

發表於 2011-11-15 11:37 | 只看該作者

回復 13# color790

'工作表1的程式
Dim S As String '工作表1的私用變數
Private Sub Worksheet_Calculate()
Application.EnableEvents = False
If S <> [G8] & [i8] And [G8] & [i8] <> "" Then
Cells(Rows.Count, "k").End(xlUp).Offset(1).Resize(1, 3) = Array(Time, [G8], [i8])
S = [G8] & [i8]
End If
Application.EnableEvents = True
End Sub

複製代碼

'Module1的程序
Sub AUTO_OPEN()
巨集1
End Sub
Private Sub 巨集1()
Dim 開盤時間 As String, 收盤時間 As String, DEE時間, Deehh As String, Deemm As String
Dim Time_Step As Date
開盤時間 = "B5"
收盤時間 = "D5"
DEE時間 = "C2"
Dim TESTTr '此變數是測試給你看的
With 工作表1
If .Range(開盤時間) > Time Then ' 尚未開盤 '等候開盤時間到執行
Application.OnTime .Range("開盤時間"), "巨集1"
ElseIf .Range(收盤時間) < Time Then ' 已經收盤 '關閉巨集
Exit Sub
End If
Time_Step = #12:05:00 AM# '設定間隔時間: 5分鐘
'Time_Step = #12:01:00 AM# '設定間隔時間: 1分鐘
' 1 = 1分鐘 ; 一天的總分鐘數 24 * 60 =1440
'1分鐘 #12:01:00 AM# * 1400
'Time_Step* 1400 = 設定間隔 ? 分鐘
'**有錯誤 Tr = Int((Time - .Range(開盤時間) ) * 1440) + 30 '每差 300 秒就換一列***
'上式應為傳回-> 間隔的總分鐘數 + 30
Tr = Int(Int((Time - .Range(開盤時間)) * 1440) / 5) '每差 300 秒此變數是測試給你看的
TESTTr = Int((Time - .Range(開盤時間)) / Time_Step) '此變數是測試給你看的
MsgBox TESTTr = Tr '此變數是測試給你看的
If .[D2] <> "-" And .[D2] <> "###" Then '清盤的狀態, 不取其資料
Tr = Int((Time - .Range(開盤時間)) / Time_Step) + 30
' Time_Step 分鐘一列 -> 從第30列開始 **
Range("K" & Tr) = Time '加上時間
If Range("L" & Tr) = "" Then Range("L" & Tr) = Range("D2") '開始價
If Range("M" & Tr) = "" Or Range("D2") > Range("M" & Tr) _
Then Range("M" & Tr) = Range("D2") '最高價
If Range("N" & Tr) = "" Or Range("D2") < Range("N" & Tr) _
Then Range("N" & Tr) = Range("D2") '最低價
Range("O" & Tr) = Range("D2") '結束價
End If
Deehh = Mid(.Range(DEE時間), 1, 2)
Deemm = Mid(.Range(DEE時間), 3, 2)
Deemm = (Int(Deemm / (Time_Step * 1440)) + 1) * (Time_Step * 1440)
If Val(Deemm)>=60 Then
Deehh = Deehh + 1
Deemm = "00"
End If
Application.OnTime TimeSerial(Deehh, Deemm, 0) + Time_Step, "巨集1"
End With
End Sub

複製代碼

帖子: 117
主題: 34
精華: 0
積分: 155
點名: 0
作業系統: windows XP
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-19
最後登錄: 2024-8-29

13^#

發表於 2011-11-15 09:16 | 只看該作者

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

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

初學者color

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兔年全勤獎章

12^#

發表於 2011-11-15 08:13 | 只看該作者

本帖最後由 GBKEE 於 2011-11-15 08:20 編輯

回復 11# color790
請附上檔案範例看看

帖子: 117
主題: 34
精華: 0
積分: 155
點名: 0
作業系統: windows XP
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-19
最後登錄: 2024-8-29

11^#

發表於 2011-11-14 22:01 | 只看該作者

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

初學者color

帖子: 117
主題: 34
精華: 0
積分: 155
點名: 0
作業系統: windows XP
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-19
最後登錄: 2024-8-29

10^#

發表於 2011-11-12 10:35 | 只看該作者

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

初學者color