如何改變觸發方式

Private Sub Worksheet_Calculate()
Application.EnableEvents = False
If UCase([b20001]) = "K" Then
      [g19000:H20000] = [ g19001:H20001].Value
End If
If [b20005] >= 22 Then [g1:H19000] = ""
Application.EnableEvents = True
End Sub
以上程式碼目前使用中.......
現在我有個新的需求.......要改變b20001的觸發方式
當b20001>=1    [g19000:H20000] = [ g19001:H20001].Value 複製一次
當b20001>=2 只要數字改變 [g19000:H20000] = [ g19001:H20001].Value 複製一次
當b20001>=3  只要數字改變................................................................. 複製一次
ps

當b20001=文字就不能觸發)
請問各位大大以上程式瑪可否修改？謝謝您的指導

樓主熱帖

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

lucky12345

中學生 Rank: 2

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

2^#

發表於 2010-9-10 18:57 | 顯示全部帖子

可以了
謝謝版主指導

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

TOP

lucky12345

中學生 Rank: 2

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

3^#

發表於 2010-9-11 16:55 | 顯示全部帖子

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

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

TOP

lucky12345