- 帖子
- 28
- 主題
- 4
- 精華
- 0
- 積分
- 32
- 點名
- 0
- 作業系統
- WIN 7
- 軟體版本
- office 2003
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2012-1-1
- 最後登錄
- 2012-6-29
|
本帖最後由 appr 於 2012-2-24 22:07 編輯
回復 13# register313
謝謝r大的分享，我已經大概都清楚了!!!只是本於好奇的想法，想再多問幾個問題
那如果是無論是第2，3 項 或是 14，15 項 以及18，20項- Private Sub worksheet_change(ByVal target As Range)
- Set RngA = Range("A2:A4")
- Set RngB = Range("B2:B4")
- Set RngCA = Intersect(target, RngA)
- Set RngCS = Intersect(target, RngB)
- If Not RngCA Is Nothing Then
- RngCA.Offset(0, 2) = RngCA.Offset(0, 2) + RngCA.Value
- RngCA.Value = ""
- End If
- If Not RngCS Is Nothing Then
- RngCS.Offset(0, 1) = RngCS.Offset(0, 1) - RngCS.Value
- RngCS.Value = ""
- End If
- Set RngD = Range("D2:D4")
- Set RngE = Range("E2:E4")
- Set RngDE = Intersect(target, RngD)
- Set RngED = Intersect(target, RngE)
- If Not RngDE Is Nothing Then 'E2~E4=D2~D4
- RngE.Value = RngD.Value
- End If
- If Not RngED Is Nothing Then 'D2~D4=E2~E4
- RngD.Value = RngE.Value
- End If
- End Sub
第二個是這整個程式碼 是以 A2的儲存格 加上 數字 等於 C2的 數字合
以及B2的儲存格 減上 數字 等於 C2的數字合
那麼如果我要把B2的儲存格換成C2
那麼 這個程式碼 所出來的結果會在D2:D4顯示
不過A2會變成【 -】號 而我更動的 C2 也是【 -】號 所以出來的答案會都是負的
那我應該是要怎麼做會比較更動會比較好?
另外如果我是想要指定一個儲存格 ，我自己有做一個更動 ， 雖然我知道一定是錯的，但還是希望各位過目看看- Private Sub Worksheet_Change(ByVal Target As Range)
- Set RngA = Range("A2:A4")
- Set RngB = Range("B2:B4")
- Set RngC = Range("G2:G4")
- Set RngCA = Intersect(Target, RngA)
- Set RngCS = Intersect(Target, RngB)
- Set RngCD = Intersect(Target, RngC)
- If Not RngCA Is Nothing Then
- RngCD.Offset(0, 2) = RngCA.Offset(0, 2) + RngCA.Value
- RngCA.Value = ""
- End If
- If Not RngCS Is Nothing Then
- RngCD.Offset(0, 1) = RngCS.Offset(0, 1) - RngCS.Value
- RngCS.Value = ""
- End If
- End Sub
|
|
發表於 2012-1-1 18:41
| 
