PCZONE 討論區

PCZONE 討論區 (https://www.pczone.com.tw/vbb3/)
-   -- OFFICE 相 關 軟 體 討 論 版 (https://www.pczone.com.tw/vbb3/forum/5/)
-   -   【求助】EXCEL可以兩個欄位的值是同步的嗎? (https://www.pczone.com.tw/vbb3/thread/5/112087/)

ps 2005-06-09 12:05 PM

【求助】EXCEL可以兩個欄位的值是同步的嗎?
 
請問各位先進:
EXCEL 可以把值複製到另一工作表的另一參照位置
但是無法修改,只能由來源處修改,不知有沒有辦法再參照出修改會將值修改回來源處。

不知大家有沒有聽懂,舉例來說
sheet1的A1 值是10的話 我要在sheet2的B2顯示sheet1 A1的值就在B2 鍵入=Sheet1!A1 ;B2就會顯示A1的值,這個沒問題

如果今天我要將值10修改成20 ,我只能從A1修改,我無法在B2修改,因為它是公式;不知有沒有辦法讓我不管是修改A1,B2 另一個對應的欄位也會跟著一起改變


謝謝

leonchou 2005-06-09 12:32 PM

公式的特性是純顯示,與"直接輸入"是不能並存的。
你的需求可以寫一個小程式解決,
如果接受這種做法再來討論細節。

ps 2005-06-10 10:24 AM

謝謝leonchou的回應
寫程式的方法可以接受,遠端放一份來共用,同步也接受
因為目標是有一個工作表示所有人共用,裡面有各單位的所有資料
各單位自己建立部門的工作表引用需要的欄位,只要使用者方便操作,什麼方式都可以接受 ^_^

leonchou 2005-06-10 01:26 PM

按 Alt+F11 叫出程式編輯器,在 [COLOR=Blue]ThisWorkbook[/COLOR] 模組 (如圖)
輸入以下程式碼 --

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
[COLOR=Green]'此事件在變更活頁簿內任一工作表之儲存格內容時會自動觸發執行[/COLOR]
If Target.Count > 1 Then Exit Sub [COLOR=Green]'若一次變更多格,結束不處理[/COLOR]
Application.EnableEvents = False [COLOR=Green]'關閉事件觸發功能[/COLOR]
[COLOR=Green]'以下依變更的工作表及儲存格位址,進行同步的動作[/COLOR]
Select Case Sh.Name & Target.Address(0, 0)
Case "Sheet1A1": Sheet2.[B2] = Target
Case "Sheet2B2": Sheet1.[A1] = Target
End Select
Application.EnableEvents = True [COLOR=Green]'恢復事件觸發功能[/COLOR]
End Sub

按 Alt+Q 返回 Excel,試試效果。

[img]http://www.pczone.com.tw/vbb3/attachment.php?attachmentid=17397&stc=1[/img]


相關學習:
[url=http://qa.pcuser.com.tw/modules/newbb/viewtopic.php?topic_id=16840&forum=24]三個以上欄位資料同步[/url]
[url=http://www.pczone.com.tw/vbb3/showthread.php?t=19151]事件(Event)認識/基本範例[/url]
[url=http://www.pczone.com.tw/vbb3/showthread.php?t=116751]活頁簿/工作表事件-基本範例2[/url]


所有時間均為 +8。現在的時間是 06:31 AM



 XML   RSS 2.0   RSS 
本站使用 vBulletin 合法版權程式
站務信箱 : [email protected]

本論壇所有文章僅代表留言者個人意見,並不代表本站之立場,討論區以「即時留言」方式運作,故無法完全監察所有即時留言,若您發現文章可能有異議,請 email :[email protected] 處理。