請問版上對change事件很熟的大大

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

2^#

發表於 2013-7-12 13:07 | 顯示全部帖子

回復 2# stillfish00

大大，就是不行所以才用VBA的發方式阿

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

3^#

發表於 2013-7-12 20:35 | 顯示全部帖子

回復 4# GBKEE

G大，拿掉註解就，其他儲存格變動還是會計算，能改成E到G欄變動才變動，其他欄變動則不變動嗎??

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

4^#

發表於 2013-7-12 20:40 | 顯示全部帖子

回復 5# stillfish00

那如果以我中文的意思這程式要怎麼改??

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

5^#

發表於 2013-7-13 11:25 | 顯示全部帖子

回復 8# GBKEE

G大感謝你，測試已經可以用了，感謝

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

6^#

發表於 2013-7-16 14:05 | 顯示全部帖子

回復 8# GBKEE

G大，再跟你請教一個問題
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, [E1:E50000]) Is Nothing Or Not Intersect(Target, [G1:G50000]) Is Nothing Then
Range("H" & Target.Row).Formula = "=RC[-1]+RC[-2]"
End If
Application.EnableEvents = True
End Sub

如果以上程式，在H欄部分我要他在儲存格計算完之後寫入的是值，而不是公式，請問一下G大程式要怎麼改，麻煩你了