- 帖子
- 28
- 主題
- 4
- 精華
- 0
- 積分
- 32
- 點名
- 0
- 作業系統
- WIN 7
- 軟體版本
- office 2003
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2012-1-1
- 最後登錄
- 2012-6-29
|
回復 17# register313
不好意思，又出現在了兩個問題想請教一下， 我想要同時讓A2跟著C2以及G2做一樣的動作!!
但每次用好後 ，我的excel就當掉了!!!是程式碼我打錯了嗎?
以及如果想讓 G2可以是自動判別月份 !!! 也就是說 2月份是在G2 當 3月份會自動跳到 H2 這是要怎麼設定????- 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
- Set RngA = Range("A2:A4")
- Set RngCA = Intersect(target, RngA)
- If Not RngCA Is Nothing Then
- RngCA.Offset(0, 6) = RngCA.Offset(0, 6) + RngCA.Value
- RngCA.Value = ""
- End If
- End Sub
|
|
發表於 2012-2-27 01:03
| 
