計數器的問題

lucky12345

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 開始計數  請各位大大 指點  謝謝

lucky12345

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

GBKEE

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

lucky12345

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

GBKEE

回復 10# lucky12345
都有啊

1. Private Sub Worksheet_Calculate()
   
2.     Application.EnableEvents = False
   
3.     If UCase([B1000]) = "K" Then
   
4.         Stop
   
5.          [q1000:s993] = [q1001:s1008].Value
   
6.     End If
   
7.     If [F1000] <= 5 Then
   
8.         Stop
   
9.         Debug.Print [F1000]
   
10.         [q993:S1000] = ""
    
11.     End If
    
12.     Application.EnableEvents = True
    
13. End Sub

複製代碼

lucky12345

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

lucky12345

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

GBKEE

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

1. Private Sub Worksheet_Calculate()     
   
2.    'Sub count_time()程式碼 Sheet1.[G14] = IIf(The_Time = 0, 0, Sheet1.[G14] + 1)
   
3.     'Sheet1是 Sheets("sheet4")在VBA中的CodeName (物件的代碼名稱)
   
4.     '程式碼 可改成  [Sheet4!G14] = IIf(The_Time = 0, 0, [Sheet4!G14] + 1)
   
5.    
   
6.     '[Sheet4!G14]-> [活業簿的(如工作表上)公式,名稱,函數]
   
7. 
   
8.     Application.EnableEvents = False
   
9.     With Sheet3
   
10.         If UCase(.[B1000]) = "K" Then
    
11.             .[q1000:s993] = .[q1001:s1008].Value
    
12.         End If
    
13.         'If [Sheet4!G14] <= 9 Then .[Q992:S1000] = ""
    
14.         '***************************************
    
15.         If [G14] <= 9 Then .[Q992:S1000] = ""
    
16.         '沒有 . [G14]為這工作表模組上的[G14]
    
17.         '不是 Sheet3的 [G14]
    
18.         '****************************************
    
19.         
    
20.         If .[P993] >= 1 Then .[R993:S993] = ""
    
21.         If .[P994] >= 1 Then .[R994:S994] = ""
    
22.         If .[P995] >= 1 Then .[R995:S995] = ""
    
23.         If .[P996] >= 1 Then .[R996:S996] = ""
    
24.         If .[P997] >= 1 Then .[R997:S997] = ""
    
25.         If .[P998] >= 1 Then .[R998:S998] = ""
    
26.         If .[P999] >= 1 Then .[R999:S999] = ""
    
27.     End With
    
28.     Application.EnableEvents = True
    
29. End Sub

複製代碼

lucky12345

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

lucky12345

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