為什麼我的Excel 不會動 ??

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

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

回復 1# color790

Worksheet_Calculate是工作表重算事件
必須是工作表內有公式存在
當公式儲存格有重算動作才會觸發

學海無涯_不恥下問

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

3^#

發表於 2011-11-11 18:27 | 只看該作者

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

初學者color

GBKEE

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2011-11-11 18:30 | 只看該作者

本帖最後由 GBKEE 於 2011-11-11 18:36 編輯

回復 1# color790
Range("b1").End(xlDown).Offset(1) = Range("a1").Address
這語法基本上沒有錯誤的但如果 B欄是完全沒有資料,或是直到最後一列才有資料
Range("b1").End(xlDown).Offset(1) ->會是工作表範圍之外 ,你的附檔就有錯誤的

例在 b1 以下任一列輸入資料就沒錯誤了

Range("b1").End(xlDown).Offset(1) = "=" & Range("a1").Address
公式才會引發 Worksheet_Calculate 這事件

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

5^#

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

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

初學者color

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

6^#

發表於 2011-11-11 20:21 | 只看該作者

HI~GBKEE版主
剛用你寫的程式, 又不會動了
可否麻煩你幫我看一下(我有修改時間及一點點其他的)

活頁簿2.rar (16.12 KB)

初學者color

GBKEE

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

7^#

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

本帖最後由 GBKEE 於 2011-11-11 21:00 編輯

回復 6# color790
有反應的
startTime = Range("b1") '開盤時間, 例如: "09:00:00 AM"
stopTime = Range("d1") '收盤時間, 例如: "01:30:00 PM"
你測試時間需在startTime - stopTime 時間內 ,可調整 B1,D1
如圖設立中斷點 , 工作表中選擇有公式的儲存格先按 F2 再按 Enter 便可見動作了
之後在VBA 視窗按 F8 逐步執行

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

8^#

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

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

初學者color

GBKEE

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

9^#

發表於 2011-11-12 06:46 | 只看該作者

回復 8# color790
慚愧是我那一篇寫錯了 ,已更正了.

Private Sub Worksheet_Calculate()
Dim startTime, stopTime
Dim Tr As String, Time_Step As Date
Time_Step = #12:05:00 AM# '設定間隔時間: 5分鐘->300秒
'Time_Step = #12:00:01 AM# '設定間隔時間: 1秒
startTime = Range("b1") '開盤時間, 例如: "09:00:00 AM"
stopTime = Range("d1") '收盤時間, 例如: "01:30:00 PM"
If startTime > Time Then '<- 修改這裡尚未開盤
Exit Sub
ElseIf stopTime < Time Then '<- 修改這裡已經收盤
Exit Sub
Else
If [C2] <> "-" And [C2] <> "###" Then '清盤的狀態, 不取其資料
'Tr = Int((nowTime - startTime) * 1440) + 30 '每差 300 秒就換一列
Tr = Int((Time - startTime) / Time_Step) + 30 ' 每5分鐘一列從第30列開始
If Range("D" & Tr) = "" Then Range("D" & Tr) = Range("C2") '開始價
If Range("E" & Tr) = "" Or Range("C2") > Range("E" & Tr) _
Then Range("E" & Tr) = Range("C2") '最高價
If Range("F" & Tr) = "" Or Range("C2") < Range("F" & Tr) _
Then Range("F" & Tr) = Range("C2") '最低價
Range("G" & Tr) = Range("C2") '結束價
End If
End If
End Sub

複製代碼

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

10^#

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

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

初學者color