麻辣家族討論版版 » Excel程式區 » 計數器的問題

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

計數器的問題

中學生 Rank: 2

帖子: 107
主題: 27
精華: 0
積分: 138
點名: 0
作業系統: vista
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台北縣
註冊時間: 2010-5-2
最後登錄: 2024-9-16

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2014-10-26 13:49 | 只看該作者

計數器的問題

Sub count_time()
Sheet1.[G14] = Sheet1.[G14] + 1
Application.OnTime Now + TimeValue("00:00:02"), "count_time"
End Sub
以上程式是一個計數器  當我按下"按鈕 1"
G14就開始計數  一切OK
如今我有個新的需求就是當我按下"按鈕 1" 時 G14能夠自動
歸零然後重 1 開始計數  請各位大大指點  謝謝

樓主熱帖

收藏

目前小學生期待他日進國中

中學生 Rank: 2

帖子: 107
主題: 27
精華: 0
積分: 138
點名: 0
作業系統: vista
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台北縣
註冊時間: 2010-5-2
最後登錄: 2024-9-16

14^#

發表於 2014-10-30 05:13 | 只看該作者

回復 13# GBKEE
G大早安!......
果真如此.............謝謝您

目前小學生期待他日進國中

超級版主 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兔年全勤獎章

13^#

發表於 2014-10-30 04:54 | 只看該作者

本帖最後由 GBKEE 於 2014-10-30 05:02 編輯

回復 12# lucky12345
無法自動觸發(怎麼試都不行)??
是有執行到 Stop時後,所以只能用手動 ->到檢視程式碼 ->按執行才會做動一次
你可以刪掉 Stop 了
Stop 是讓你觀察程式有執行到 If UCase([B1000]) = "K" Then

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

中學生 Rank: 2

帖子: 107
主題: 27
精華: 0
積分: 138
點名: 0
作業系統: vista
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台北縣
註冊時間: 2010-5-2
最後登錄: 2024-9-16

12^#

發表於 2014-10-29 21:51 | 只看該作者

本帖最後由 lucky12345 於 2014-10-29 21:56 編輯

回復 11# GBKEE
非常感謝版大如此快的回應
可以?.........心一想莫非我PC的問題
哈.........在筆電竟然OK正常  (另一台也OK)
其實之前我 PC 也有正常使用過.......... 後來被我亂改 (不知哪個地方跑掉  或是不當的設定)
現在我PC  只能用手動 ->到檢視程式碼 ->按執行  才會做動一次無法自動觸發(怎麼試都不行)
不知有解否?  還是要重灌Excel
請知道的大大  不吝指導非常感謝大家
晚安

目前小學生期待他日進國中

超級版主 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兔年全勤獎章

11^#

發表於 2014-10-29 19:40 | 只看該作者

回復 10# lucky12345
都有啊

Private Sub Worksheet_Calculate()
Application.EnableEvents = False
If UCase([B1000]) = "K" Then
Stop
[q1000:s993] = [q1001:s1008].Value
End If
If [F1000] <= 5 Then
Stop
Debug.Print [F1000]
[q993:S1000] = ""
End If
Application.EnableEvents = True
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

中學生 Rank: 2

帖子: 107
主題: 27
精華: 0
積分: 138
點名: 0
作業系統: vista
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台北縣
註冊時間: 2010-5-2
最後登錄: 2024-9-16

10^#

發表於 2014-10-29 17:49 | 只看該作者

回復 8# GBKEE
真差勁還是沒弄懂煩請G大幫我撿視一下多謝了

計數器123.rar (9.36 KB)

計數器123

目前小學生期待他日進國中

中學生 Rank: 2

帖子: 107
主題: 27
精華: 0
積分: 138
點名: 0
作業系統: vista
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台北縣
註冊時間: 2010-5-2
最後登錄: 2024-9-16

9^#

發表於 2014-10-28 07:49 | 只看該作者

回復 8# 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兔年全勤獎章

8^#

發表於 2014-10-28 06:22 | 只看該作者

回復 7# lucky12345
附檔的Worksheet_Calculate() 是sheet3工作表模組(Sheets("sheet2")的重算事件程序
要改放在Sheet1工作表模組(Sheets("Sheet4")的重算事件程序

Private Sub Worksheet_Calculate()
'Sub count_time()程式碼 Sheet1.[G14] = IIf(The_Time = 0, 0, Sheet1.[G14] + 1)
'Sheet1是 Sheets("sheet4")在VBA中的CodeName (物件的代碼名稱)
'程式碼可改成 [Sheet4!G14] = IIf(The_Time = 0, 0, [Sheet4!G14] + 1)
'[Sheet4!G14]-> [活業簿的(如工作表上)公式,名稱,函數]
Application.EnableEvents = False
With Sheet3
If UCase(.[B1000]) = "K" Then
.[q1000:s993] = .[q1001:s1008].Value
End If
'If [Sheet4!G14] <= 9 Then .[Q992:S1000] = ""
'***************************************
If [G14] <= 9 Then .[Q992:S1000] = ""
'沒有 . [G14]為這工作表模組上的[G14]
'不是 Sheet3的 [G14]
'****************************************
If .[P993] >= 1 Then .[R993:S993] = ""
If .[P994] >= 1 Then .[R994:S994] = ""
If .[P995] >= 1 Then .[R995:S995] = ""
If .[P996] >= 1 Then .[R996:S996] = ""
If .[P997] >= 1 Then .[R997:S997] = ""
If .[P998] >= 1 Then .[R998:S998] = ""
If .[P999] >= 1 Then .[R999:S999] = ""
End With
Application.EnableEvents = True
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

中學生 Rank: 2

帖子: 107
主題: 27
精華: 0
積分: 138
點名: 0
作業系統: vista
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台北縣
註冊時間: 2010-5-2
最後登錄: 2024-9-16

7^#

發表於 2014-10-27 21:48 | 只看該作者

至於製程式碼是我東抓西抓撮成的 XD

目前小學生期待他日進國中

中學生 Rank: 2

帖子: 107
主題: 27
精華: 0
積分: 138
點名: 0
作業系統: vista
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台北縣
註冊時間: 2010-5-2
最後登錄: 2024-9-16

6^#

發表於 2014-10-27 21:37 | 只看該作者

本帖最後由 lucky12345 於 2014-10-27 21:44 編輯

我的發財夢我又失敗了.............................一再麻煩大家非常感謝

計數器-1.rar (120.11 KB)

目前小學生期待他日進國中

靜思自在 : 好事要提得起，是非要放得下，成就別人即是成就自己。

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