標題: [發問] 資料更新問題 [打印本頁]

---

作者: appr    時間: 2012-3-12 13:06     標題: 資料更新問題

本帖最後由 appr 於 2012-3-12 13:18 編輯

想請問一下!!現在如果我有兩台電腦的情況下!!!   A 跟B    的電腦  的格式 公式  皆為 一樣  差在於A台電腦與 B台電腦 的距離  很遠 但 皆有網路

如果A台電腦的資料已經做更新，那 B台電腦要如何讓他與A台電腦直接連線  並   進行更新?   

是要用DDE的方式嗎?

這是我目前的VBA

1. Private Sub worksheet_change(ByVal target As Range)
   
2. Set RngA = Range("A2:A4")
   
3. Set RngB = Range("B2:B4")
   
4. Set RngCA = Intersect(target, RngA)
   
5. Set RngCS = Intersect(target, RngB)
   
6. If Not RngCA Is Nothing Then
   
7.    RngCA.Offset(0, 2) = RngCA.Offset(0, 2) + RngCA.Value
   
8.    RngCA.Offset(0, Month(Now) + 4) = RngCA.Offset(0, Month(Now) + 4) + RngCA.Value
   
9.    RngCA.Value = ""
   
10. End If
    
11. If Not RngCS Is Nothing Then
    
12.    RngCS.Offset(0, 1) = RngCS.Offset(0, 1) - RngCS.Value
    
13.    RngCS.Value = ""
    
14. End If
    
15. Set RngD = Range("D2:D4")
    
16. Set RngE = Range("E2:E4")
    
17. Set RngDE = Intersect(target, RngD)
    
18. Set RngED = Intersect(target, RngE)
    
19. If Not RngDE Is Nothing Then          'E2~E4=D2~D4
    
20.    RngE.Value = RngD.Value
    
21. End If
    
22. If Not RngED Is Nothing Then          'D2~D4=E2~E4
    
23.    RngD.Value = RngE.Value
    
24. End If
    
25. End Sub

複製代碼

---

作者: kimbal    時間: 2012-3-12 20:13

問題會取決於EXCEL會不會同時打開,
如果不是同時打開, 只要把檔案共享出來即可.
如果要同時打開, 個人建議用ACCESS來放數據,EXCEL抽出/寫入.

---

作者: appr    時間: 2012-3-12 22:18

回復 2# kimbal


    針對第一個問答

我也想過說直接用檔案分享的方式 ，甚至是直接用遠端遙控的方式 !!!!       就像回答所說的 我是不直接同步打開 所以沒有關係

第二個問答的部分

ACCESS我還必須學過........現況下我還不會.......所以可能要請你教教我了

第三個問題是：

我想問問看可能性!!!以及複雜程度!!!

---

作者: appr    時間: 2012-3-14 11:58

回復 2# kimbal


    不好意思!!!我想再請問一個問題!!!

如果現在變成我這台電腦只有輸入資料 然後傳送給其他電腦

傳送之後 ，我的電腦資料可以回歸 0   也就是 初始化  !!!  但VBA程式碼依然不變

那我該怎麼去設定?

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)