如何改變觸發方式

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

11^#

發表於 2010-9-13 14:41 | 只看該作者

本帖最後由 lucky12345 於 2010-9-13 21:05 編輯

不知怎麼了.......連以前的程式碼都不能用

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

oobird

　頭銜: 街友一族

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

10^#

發表於 2010-9-12 15:46 | 只看該作者

若你曾經出現錯誤而讓程式中途跳出的話，你必須單獨執行這一句：
Application.EnableEvents = True

GBKEE

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

9^#

發表於 2010-9-12 15:19 | 只看該作者

回復 8# lucky12345
附檔的B208 >=22 B205是空白的

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Range("B201", "B205")) Is Nothing Then
If [B201] > 1 Then [g190:H200] = [ g191:H201].Value
If [B205] >= 22 Then [g1:H190] = ""
End If
Application.EnableEvents = True
End Sub

複製代碼

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

8^#

發表於 2010-9-12 07:12 | 只看該作者

謝謝各位大大幫忙
寄上附檔請幫我查看謝謝

Booka.zip (6.76 KB)

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

GBKEE

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

7^#

發表於 2010-9-11 18:48 | 只看該作者

回復 6# lucky12345
上傳檔案只接受下列的副檔名 chm, pdf, zip, rar, tar, gz, bzip2, gif, jpg, jpeg, png
如不是上列的檔案需壓縮為 zip, rar 的壓縮檔上傳

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

6^#

發表於 2010-9-11 18:34 | 只看該作者

本帖最後由 lucky12345 於 2010-9-11 18:40 編輯

謝謝各位大大幫忙
不知為何只試用成功一次請幫我查看附檔謝謝
哇！不能上傳耶！

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

GBKEE

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

5^#

發表於 2010-9-11 17:21 | 只看該作者

回復 4# lucky12345

改用 Worksheet_Change 事件試試看

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address(0, 0) = "B20001" And Target > 1 Then [g19000:H20000] = [ g19001:H20001].Value
If Target.Address(0, 0) = "B20005" And Target >= 22 Then [g1:H19000] = ""
Application.EnableEvents = True
End Sub

複製代碼

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

4^#

發表於 2010-9-11 16:55 | 只看該作者

Hsieh 謝謝您不吝指導
您所提供的程式碼.......我再三的測試 ,發現與我的需求.有一點差異
是觸發位置問題.....如下
我的需求,只允許b20001>=1...條件之下.....只b20001數值改變一次,就允許觸發一次
但是您提供的程式碼只要在任一儲存格打入=1+1按enter.......也會觸發一次
不知如何解決？........再三麻煩您真是謝謝您

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