johnny
Lv 4
johnny asked in 電腦與網際網路軟體 · 1 decade ago

Excel如何讓不同的檔案之Sheet 1內容『完全』相同?

各位好︰

假設有A&A1二個檔案,現在想要A1檔案的『Sheet 1』資料內容,完全與A檔案的『Sheet 1』內容相同(無論是資料、字型、格線、顏色…等所有格式);

且當A檔案的『Sheet 1』資料有任何變更時(包括是字型、格線、顏色…等所有格式的變更),A1檔案的『Sheet 1』內容,亦完全隨之變更。

簡而言之︰小弟只要在A檔案的『Sheet 1』作業,完全不管A1檔案的『Sheet 1』>>>即可得與A檔案的『Sheet 1』完全相同的A1檔案之『Sheet 1』。

請問各位Excel高手︰小弟該如何作??

請指教!謝謝!!!

範例說明︰ http://www.FunP.net/1940308

P.S.小弟在A1檔案的Sheet 1之A1儲存格打入=[A.xls]Sheet1!A1,只能得到資料的相同,卻無法得到︰包括資料內容,字型、格線、顏色…等所有格式,『都』完全相同的A1檔案之『Sheet 1』。

Update:

謝謝piny與小花二位的意見!

抱歉!這個問題曾是我姊姊上知識+所提問的。

可能是︰因為家姊認為是同一個相關聯的問題,而熱心回答的網友,認為是二個問題,所以都未針對這個部份疑問來作解答。

家姊因為急著想知道有無方法或公式,能解決她的困惑,因此要小弟再提問一次,請各位包涵與幫忙!!

小花大大:

謝謝您提供的網頁資料。

依該網頁的敘述,這個問題是否就是無解囉!?

Update 2:

感謝Vincent大師 與小花 大大的寶貴意見!

您們二位的意思︰是指先開一個新檔案,以巨集複製A.XLS即可?

如果是這樣,請問應該如何錄製巨集?

請不吝賜教!謝謝!

Update 3:

小弟剛才說的似乎也不對!

應該是如何一次複製多個(比如是100個)檔案,但複製完成後的檔案並不連結A.XLS。

這樣表達是不是比較恰當?^^=^^

Update 4:

小花大大︰您好!

感謝您再次賜教。

只是不知應該如何去設計兩個巨集,或者是將您之前給家姐所賜教的解答拆成兩個巨集,

可否請您再費神指教?感謝您!!

Update 5:

題意重新整理修正︰

欲將A檔案Sheet10 D:K的資料與格式完全複製到A-1檔案Sheet10 D:K;

且當A檔案Sheet10 D:K的資料有增加或格式有改變時,則A-1檔案Sheet10 D:K亦會自動隨之改變為

與A檔案Sheet10 D:K完全相同。

有點類似捷徑的意味,只是捷徑是整個檔案,而上述的需求是侷限在指定的範圍內。

範例︰http://www.FunP.net/9680175

以上

敬請各位大師與先進不吝賜教!謝謝!

Update 6:

Vincent大師︰您好!

感謝您詳細的說明與解答,這正是小弟所需要的。

已測試,非常好用,感恩!

4 Answers

Rating
  • 1 decade ago
    Favorite Answer

    乾脆用巨集直接複製吧~

    函數應該是做不到....

    2008-04-30 14:42:58 補充:

    圖片參考:http://tw.yimg.com/i/tw/ugc/rte/smiley_4.gif

    以您最後一個附件為例,小弟建議於A.xls存檔前自動複製到其他檔案,請見以下程式碼

    Sub SAVETO()

    ScreenUpdating = False

    Windows("A.xls").Activate

    Sheets("Sheet10").Columns("D:K").Copy

    Workbooks.Open Filename:= _

    CurDir & "\A-1.xls"

    Workbooks("A-1.xls").Activate

    Sheets("Sheet10").Activate

    Range("D1").Select

    ActiveSheet.Paste

    Application.CutCopyMode = False

    Sheets("Sheet10").Range("D1").Select

    ActiveWorkbook.Save

    ActiveWindow.Close

    Windows("A.xls").Activate

    ScreenUpdating = True

    End Sub

    以下放在 This workbook 內

    Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

    Application.Run "A.xls!SAVETO"

    End Sub

    請見附檔~

    http://www.FunP.net/9526367

    • Login to reply the answers
  • Anonymous
    5 years ago

    到下面的網址看看吧

    ▶▶http://qoozoo09260.pixnet.net/blog

    • Login to reply the answers
  • 小花
    Lv 5
    1 decade ago

    附件真的一樣

    不過版主的需求很難達到

    參考這篇說明

    http://blog.xuite.net/crdotlin/excel/13106339

    2008-04-25 13:38:01 補充:

    不是做不到,只是如 Vincent ( 大師 2 級)所說要用巨集複製

    就是一開檔案就去找A.XLS複製格式

    之前你姐的問題也是我回答,是依她所說的需求設計

    只是我不懂的是,如果一開檔就要複製A.XLS的格式,就等於是複製整個工作表,

    ,那之前就不需要連結A.XLS,因為一開A-1到A-100檔案,就要去複製A.XLS格式

    2008-04-26 00:26:42 補充:

    首先之前回答你姐的問題的巨集流程是

    先點選所有工作表,再另存新活頁簿,再逐一將新活頁簿sheet1連結到A.XLS

    現在你的問題巨集流程應該是(這個巨集要在已複制好的檔案中逐一加入)

    開啟已經複製好的A-1.XLS,會自動執行巨集,打開A.XLS,複制A.XLS中sheet1的格式到A-1.XLS的sheet1

    複制格式時,本來就可以複制A.XLS的值,因此,不須再有做連結的動作

    因此,要達到你想要的結果,應該是要設計二個巨集,一個是打開檔案後,自動複制A.XLS資料及格式,第二個是產生A-1到A-100檔案

    這兩個巨集,從我給你姐的答案修改拆成兩個巨集就可以做到了

    • Login to reply the answers
  • piny
    Lv 7
    1 decade ago

    好像跟這題相同耶 連附件都一樣

    http://tw.knowledge.yahoo.com/question/question?qi...

    • Login to reply the answers
Still have questions? Get your answers by asking now.