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

麻辣家族討論版版 » 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兔年全勤獎章

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

4^#

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

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

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

計數器.rar (5.29 KB)

計數器

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

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

帖子: 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

靜思自在 : 願要大、志要堅、氣要柔、心要細。

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