您目前已離線,請等候您的網際網路重新連線

如何為多個工作表設定版面設定屬性

Office 2003 支援已結束

Microsoft 於 2014 年 4 月 8 日結束對 Office 2003 的支援。此變更已影響您的軟體更新和安全性選項。 瞭解這對您的意義為何且如何持續受保護。

如需本文的 Microsoft Excel 97 (含) 以前版本,以及 Microsoft Excel 98 Macintosh Edition (含) 以前版本,請參閱 154663
結論
在 Microsoft Excel 中,會為每一個工作表個別設定版面設定屬性,例如邊界、工作表頁面方向及列印標題。本文將告訴您可以用來全域性設定其中一些屬性的三種方法。
其他相關資訊
若要設定一個 Excel 工作表群組的版面設定屬性,請使用下列其中一種方法。

方法 1:變更工作表群組

若要將版面設定屬性套用到活頁簿中的工作表群組,請依照下列步驟執行:
  1. 按 CTRL,然後按一下活頁簿中您要套用變更的每一個工作表索引標籤。
  2. [檔案] 功能表上,按一下 [版面設定]

    請注意 在 Excel 2007 中,按一下 [版面配置] 索引標籤上 [版面設定] 群組中的對話方塊啟動器。
  3. [版面設定] 對話方塊中進行您想要的變更,然後按一下 [確定]

    您選取的所有工作表都具有相同的版面設定屬性。

方法 2:使用巨集

Microsoft 僅提供示範性的程式設計範例,不做任何明示或默示的保證。其中包括 (但不限於) 其適售性與適合某特定用途之默示擔保。本文將假設您已相當熟悉示範所使用的程式設計語言,以及用於建立和偵錯程序的工具。Microsoft 技術支援工程師可以協助說明特定程序的功能,但不會修改這些範例以提供附加功能或建構程序來滿足您的特定需求。 您可以透過程式設計方式,變更使用中活頁簿及任何其他開啟的活頁簿中的版面設定屬性。
請注意:這些巨集使用 PageSetup 物件的 Orientation 屬性。您可以使用其他 PageSetup 屬性 (Property) 來修改其他版面設定屬性 (Attribute),例如 LeftMargin、RightMargin 等等。

若要透過程式設計方式,變更使用中活頁簿之所有工作表的頁面方向,請使用上述範例中的步驟:
  1. 啟動 Excel。
  2. 在三個工作表中輸入一些資料。
  3. 按 ALT+F11 啟動 Visual Basic 編輯器。
  4. [插入] 功能表上,按一下 [模組]
  5. 在模組工作表中輸入下列程式碼:
    Sub SetAttributes()   For Each xWorksheet In ActiveWorkbook.Worksheets      xWorksheet.PageSetup.Orientation = _         Worksheets("Sheet1").PageSetup.Orientation   Next xWorksheetEnd Sub						
  6. 按 ALT+F11 切換至 Excel。
  7. 選取 Sheet1。
  8. [檔案] 功能表上,按一下 [版面設定]

    請注意 在 Excel 2007 中,按一下 [版面配置] 索引標籤上 [版面設定] 群組中的對話方塊啟動器。
  9. [頁面] 索引標籤的 [方向] 下,按一下 [橫向],然後按一下 [確定]
  10. [工具] 功能表上,指向 [巨集],然後按一下 [巨集]

    請注意 在 Excel 2007 中,按一下 [版面配置] 索引標籤上 [版面設定] 群組中的對話方塊啟動器。
  11. 按一下 [SetAttributes],然後按一下 [執行]

    所有這三個工作表在 [預覽列印] 中都會顯示橫向。
若要透過程式設計方式,並根據另一個開啟之活頁簿的版面設定屬性,來變更使用中活頁簿之所有頁面的版面設定屬性,請使用下列範例中的步驟:

請注意:這是下列範例的延續。
  1. [檔案] 功能表上,按一下 [開新檔案]

    請注意 在 Excel 2007 中,請按一下 [Microsoft Office 按鈕],然後按一下 [開新檔案]
  2. 按一下 [活頁簿],然後按一下 [確定]

    請注意 在 Excel 2003 中,按一下 [新增活頁簿] 工作窗格中 [開新檔案] 下的 [空白活頁簿]。在 Excel 2007 中,按一下 [Microsoft Office 按鈕],然後按一下 [開新檔案],在 [範本] 底下,確定已選取 [空白及最近使用的檔案],然後在右窗格的 [空白及最近使用的檔案] 底下,按一下 [空白活頁簿]
  3. 在新活頁簿的所有工作表中輸入資料。
  4. 按 ALT+F11 啟動 Visual Basic 編輯器。
  5. 在專案總管中選取第一個活頁簿,然後按一下 [模組] 資料夾底下的 [Module1]
  6. 以下列程式碼取代 module1 工作表:
    Sub SetWorkbookAttributes()   For Each xWorksheet In ActiveWorkbook.Worksheets      xWorksheet.PageSetup.Orientation = _         ThisWorkbook.Worksheets("Sheet1").PageSetup.Orientation   Next xWorksheetEnd Sub						
  7. 按 ALT+F11 切換回到 Excel。
  8. [工具] 功能表上,指向 [巨集],然後按一下 [巨集]

    請注意 在 Excel 2007 中,按一下 [版面配置] 索引標籤上 [版面設定] 群組中的對話方塊啟動器。
  9. 按一下 [Book1!SetWorkbookAttributes],然後按一下 [執行]

    版面設定方向與第一個活頁簿的 sheet 1 相同。
如果您想要變更工作表的其他版面設定屬性,可在每一個子程序的 For Each...Next 陳述式內新增其他行。這幾行應該與此處提供的範例行一樣,不過可以在適當時候變更屬性 (Orientation) 的設定 (CenterFooter、PaperSize...等等)。
XL2000 XL2003 XL2007
內容

文章識別碼:213257 - 最後檢閱時間:04/06/2007 02:33:57 - 修訂: 5.0

Microsoft Office Excel 2007, Microsoft Office Excel 2003, Microsoft Excel 2002 Standard Edition, Microsoft Excel 2000 Standard Edition

  • kbdtacode kbhowto kbprogramming kbualink97 KB213257
意見反應
"76500"; var Ctrl = ""; document.write("