12
返回列表 上一主題 發帖

計數器的問題

GBKEE

帖子
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
都有啊
  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
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

lucky12345

帖子
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
請知道的大大  不吝指導   非常感謝大家
晚安
目前小學生期待他日進國中

TOP

GBKEE

帖子
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元的贊助,人人有能力.

TOP

lucky12345

帖子
107 
主題
27 
精華
0 
積分
138 
點名
0  
作業系統
vista 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
台北縣 
註冊時間
2010-5-2 
最後登錄
2024-9-16 
14#
發表於 2014-10-30 05:13 | 只看該作者
回復 13# GBKEE
G大早安!......
果真如此.............謝謝您
目前小學生期待他日進國中

TOP

        靜思自在 : 是非當教育，讚美作警惕。
12
返回列表 上一主題