Application.OnTime 無法終止 ? - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » Application.OnTime 無法終止 ?

返回列表下一主題上一主題發帖

[發問] Application.OnTime 無法終止 ?

中學生 Rank: 2

帖子: 48
主題: 1
精華: 0
積分: 53
點名: 0
作業系統: XP
軟體版本: 2010 & 2003
閱讀權限: 20
性別: 男
來自: China
註冊時間: 2013-1-12
最後登錄: 2013-11-23

17^# 跳轉到 »

發表於 2013-2-19 12:05 | 只看該作者

没有权限下载附件，主要是自己水平太菜啊

向高手学习

小學生 Rank: 1

帖子: 2
主題: 0
精華: 0
積分: 8
點名: 0
作業系統: Mac
軟體版本: OS
閱讀權限: 10
性別: 男
註冊時間: 2013-2-16
最後登錄: 2013-2-17

16^#

發表於 2013-2-16 21:52 | 只看該作者

第1+a 的row 放入時間

Timothy

自我感覺良好

中學生 Rank: 2

帖子: 116
主題: 41
精華: 0
積分: 162
點名: 0
作業系統: XP
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-7-22
最後登錄: 2024-2-9

15^#

發表於 2013-1-26 19:12 | 只看該作者

原來是這樣子
http://office.microsoft.com/zh-tw/excel-help/HP005203075.aspx

停止巨集
全部顯示全部顯示

請執行下列其中一項動作：

如果您要停止一個目前使用中的巨集，請按 ESC，然後按一下 [Microsoft Visual Basic] 對話方塊上的 [結束]。
如果您想要避免在啟動 Microsoft Excel 時自動執行巨集，請在啟動時按住 SHIFT。

50 字節以內
不支持自定義 Discuz! 代碼

自我感覺良好

中學生 Rank: 2

帖子: 116
主題: 41
精華: 0
積分: 162
點名: 0
作業系統: XP
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-7-22
最後登錄: 2024-2-9

14^#

發表於 2013-1-26 09:40 | 只看該作者

stop.rar (8.16 KB)
Sub Macro1()
'
' Macro1 Macro
'
' 快速鍵: Ctrl+p
'
[a1] = [a1] + 1
Application.OnTime Now + TimeValue("00:00:05"), "Sheet1.a123"
End Sub

呀﹗請問要怎樣停止？

50 字節以內
不支持自定義 Discuz! 代碼

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

13^#

發表於 2013-1-23 09:04 | 只看該作者

回復 8# t8899
有以下之模式可供你選用：
(一)

置於模組 Module1 內：
Private Sub Auto_Open()
Ex
End Sub
Sub Ex()
Static cts
cts = cts + 1
Cells(cts, 1).Value = "Here I Am!"
Application.OnTime (Now + TimeValue("00:03:00")), "Module1.Ex"
End Sub

複製代碼

(二)

置於 ThisWorkbook 內：
Private Sub Workbook_Open()
Ex
End Sub
Sub Ex()
Static cts
cts = cts + 1
Cells(cts, 1).Value = "Here I Am!"
Application.OnTime (Now + TimeValue("00:03:00")), "ThisWorkbook.Ex"
End Sub

複製代碼

(三)

置於模組 Module1 內：
Private Sub Auto_Open()
工作表1.Ex
End Sub
置於工作表1 內：
Sub Ex()
Static cts
cts = cts + 1
Cells(cts, 1).Value = "Here I Am!"
Application.OnTime (Now + TimeValue("00:03:00")), "工作表1.Ex"
End Sub

複製代碼

中學生 Rank: 2

帖子: 75
主題: 1
精華: 0
積分: 371
點名: 1
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2010-5-4
最後登錄: 2024-5-8

12^#

發表於 2013-1-23 07:49 | 只看該作者

回復 10# t8899

text版已寄到信箱

大學生 Rank: 4

帖子: 746
主題: 243
精華: 0
積分: 1002
點名: 0
作業系統: WINXP
軟體版本: OFFICE2003
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-5-7

11^#

發表於 2013-1-22 23:56 | 只看該作者

回復 t8899
例(放置在sheet1)
Sub a123()
Cells(1 + a, 1) = Time '您要做的動作
Application.OnTime ...
f3202 發表於 2013-1-22 22:08

還是動不了
Cells(1 + a, 1) = Time ===>是什意思

中學生 Rank: 2

帖子: 75
主題: 1
精華: 0
積分: 371
點名: 1
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2010-5-4
最後登錄: 2024-5-8

10^#

發表於 2013-1-22 22:08 | 只看該作者

回復 8# t8899
例(放置在sheet1)
Sub a123()
Cells(1 + a, 1) = Time '您要做的動作
Application.OnTime Now + TimeValue("00:03:00"), "Sheet1.a123"
End Sub

大學生 Rank: 4

帖子: 746
主題: 243
精華: 0
積分: 1002
點名: 0
作業系統: WINXP
軟體版本: OFFICE2003
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-5-7

9^#

發表於 2013-1-22 22:00 | 只看該作者

回復 7# t8899
可以麻煩寄到我的信箱嗎??
[email protected]

大學生 Rank: 4

帖子: 746
主題: 243
精華: 0
積分: 1002
點名: 0
作業系統: WINXP
軟體版本: OFFICE2003
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-5-7

8^#

發表於 2013-1-22 21:44 | 只看該作者

给你個例子
oobird 發表於 2013-1-22 21:37

抱歉，小弟等級太低，無權下載附件

靜思自在 : 【行善要及時】行善要及時，功德要持續。如燒開水一般，未燒開之前千萬不要停熄火候，否則重來就太費事了。

返回列表下一主題上一主題