两个不同的工作薄,一个是总账(工作薄A),分sheet1、sheet2、sheet3,另一个工作薄B,内容和sheet3一模一样,如何实现更改工作薄B的同时,工作薄A里的sheet3同步更改,不仅仅是内容,填充颜色这类格式的改变也能完全同步?
ABç»åï¼æä½Ctrlï¼åå«åå»AåB表ãæ¤æ¹æ³æ为ç®åã
使ç¨å®ï¼æå¼å®-å¼å§å½å¶å®-æä½ ä¹åçå ¬å¼å¨åä¸é-åæ¢å½å¶å®ã
è¿æ ·å³ä½¿ä»¥åæB表å å ¬å¼å é¤äºï¼å¨æ³è¦çæ¶åä¸ç¨éæ°è¾å ¥å ¬å¼ï¼åªè¦æ§è¡ä¸éå®å°±è½å¤å®ç°äºã
EXCEL表å¤ç软件æ¯ç¾å½å¾®è½¯å ¬å¸ç å¶çåå ¬èªå¨å软件OFFICE ä¸çéè¦æåï¼ç»è¿å¤æ¬¡æ¹è¿åå级ï¼ææ°çæ¬ä¸ºEXCEL2000ãå®è½å¤æ¹ä¾¿çå¶ä½åºåç§çµåè¡¨æ ¼ï¼ä½¿ç¨å ¬å¼åå½æ°å¯¹æ°æ®è¿è¡å¤æçè¿ç®ï¼ç¨åç§å¾è¡¨æ¥è¡¨ç¤ºæ°æ®ç´è§æäºï¼å©ç¨è¶ 级é¾æ¥åè½ï¼ç¨æ·å¯ä»¥å¿«éæå¼å±åç½æInternerä¸çæ件ï¼ä¸ä¸çä¸ä»»ä½ä½ç½®çäºèç½ç¨æ·å ±äº«å·¥ä½èæ件ã
举ä¾ï¼
1.å¨EXCELåºé¨çsheet1æ ç¾ä¸ç¹é¼ æ å³é®,é"æ¥ç代ç ",è°åºsheet1ç代ç çªå£.
2.å°ä¸é¢ä»£ç ç²è´´è¿å»:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then Sheets("sheet2").Range("a1") = Target
End Sub
3.åæ ·,åå°EXCELçªå£,å¨sheet2表çåºé¨æ ç¾ä¸ç¨å³é®"æ¥ç代ç "
4.è°åºsheet2ç代ç çªå£,è¾å ¥ä¸é¢ä»£ç :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then Sheets("sheet1").Range("a1") = Target
End Sub
5.å®æ
åå°EXCELçªå£åå°±å¯ä»¥ä½¿ç¨äº.
å¯ä»¥çå°,è¿ä¸¤æ®µä»£ç åºæ¬ç¸å,ä¸åçå°æ¹æ¯ä»£ç ç第äºè¡çä¸é´é¨å,åå«å¼ç¨äºå¯¹æ¹çå·¥ä½è¡¨åå.
代ç çå«ä¹æ¯,å½å·¥ä½è¡¨(sheet1æsheet2)ä¸çå
容æ¹åæ¶,并ä¸æ¹åçåå
æ ¼æ¯A1åå
æ ¼æ¶,代ç èªå¨å°æ¹åçå
容åå
¥å°å¦ä¸ä¸ªå·¥ä½è¡¨çA1åå
æ ¼.
我不是要复制。。比如这样,我在表1的A1里填写“=[表2.xlsx]Sheet1'!$A$1”我在表2的A1里输入一个内容,表1的A1自动就更变了。我是想实现这个过程,但是内容可以同步,格式不能同步,现在是想解决这个问题!
追答我明白你的意思,表A、表B都打开,表B的sheet3的某个单元格,先键入等号=,然后鼠标选择表A的关联单元,后鼠标选打钩,就是认可,就会与表A的sheet3同步,这种关系建立以后,你就改动表Asheet3的内容,表B的内容就随之改变了。
追问是的,这样内容可以跟着一起改变。我的困难是,有的单元格我需要填充颜色,可是填充颜色的话,表A的sheet3是不会随着同步的,就是想解决这个问题。、
追答这个恐怕就不是简单复制的办法可以办到的了,要录制一个宏,然后每次执行,建议录制使用格式刷将源表格式刷一下,到目的表刷一下,不敢保证成功,但这个思路可以试,先手动成功后再录制宏。我手动试了,填充底色可以过去,字体什么的好像不成。
本回答被提问者采纳