麻辣家族討論版版 » 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

帖子: 181
主題: 5
精華: 0
積分: 197
點名: 0
作業系統: XP
軟體版本: 2000
閱讀權限: 20
性別: 女
註冊時間: 2014-3-9
最後登錄: 2024-4-29

2^#

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

Private Sub CommandButton1_Click()

Sheet1.[G14] = = 0
end sub

中學生 Rank: 2

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

3^#

發表於 2014-10-27 04:33 | 只看該作者

本帖最後由 lucky12345 於 2014-10-27 04:42 編輯

謝謝大大 . 拍謝還是不會ㄋ傳上檔案請幫忙撿視謝謝
還有檔兩檔案其實是同一個

計數器.rar (6.48 KB)

計數器

計數器.rar (6.48 KB)

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

中學生 Rank: 2

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

4^#

發表於 2014-10-27 06:23 | 只看該作者

本帖最後由 lucky12345 於 2014-10-27 06:25 編輯

一時疏忽很抱歉! 程式碼在 sheet4

計數器.rar (5.29 KB)

計數器

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

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

5^#

發表於 2014-10-27 07:05 | 只看該作者

回復 4# lucky12345
試試看

Dim The_Time As Date
Sub count_time()
Sheet1.[G14] = IIf(The_Time = 0, 0, Sheet1.[G14] + 1)
If TimeValue(The_Time) > Time Then
Application.OnTime The_Time, "count_time", , False
Sheet1.[G14] = 0
End If
The_Time = Now + TimeValue("00:00:02")
Application.OnTime The_Time, "count_time"
End Sub

複製代碼

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

中學生 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)

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

中學生 Rank: 2

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

7^#

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

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

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

超級版主 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

9^#

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

回復 8# GBKEE
感謝版大詳細的說明

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

中學生 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

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

靜思自在 : 滴水成河。粒米成蘿，勿輕己靈，勿以善小而不為。

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