- 帖子
- 28
- 主題
- 4
- 精華
- 0
- 積分
- 32
- 點名
- 0
- 作業系統
- WIN 7
- 軟體版本
- office 2003
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2012-1-1
- 最後登錄
- 2012-6-29
|
本帖最後由 appr 於 2012-3-12 13:18 編輯
想請問一下!!現在如果我有兩台電腦的情況下!!! A 跟B 的電腦 的格式 公式 皆為 一樣 差在於A台電腦與 B台電腦 的距離 很遠 但 皆有網路
如果A台電腦的資料已經做更新，那 B台電腦要如何讓他與A台電腦直接連線 並 進行更新?
是要用DDE的方式嗎?
這是我目前的VBA- 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.Offset(0, Month(Now) + 4) = RngCA.Offset(0, Month(Now) + 4) + 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
|
|
發表於 2012-3-12 13:06
| 
發表於 2012-3-12 20:13
| 