excel自動排版之橫向列印?

Tags: 表格, 橫向, excel,

利用excel自帶的vba程式設計,實現對錶格的自動排版,本文來說說橫向列印的排版。

工具/原料

excel

方法/步驟

案例:要給如圖的表格排版。

注意,一共有三張表格,分別是語文、數學、英語學科成績統計表。

excel自動排版之橫向列印

在語文表格里啟動vba。

excel自動排版之橫向列印

在vba介面插入模組。

excel自動排版之橫向列印

在模組1裡編寫程式。給程式命名為排版,呼叫工作表函式counta統計行數和列數。

excel自動排版之橫向列印

A4紙的寬為21cm,統一設定行高時,就在21裡面減去2個3,給一張A4紙上下各留3cm,把餘下的部分按總行數平均分。

excel自動排版之橫向列印

A4紙的長為29.7cm,統一設定列寬時,就在29.7裡面減去2個1.9,給一張A4紙左右各留1.9cm,把餘下的部分按總列數平均分。

excel自動排版之橫向列印

設定橫向列印。

excel自動排版之橫向列印

編寫程式完,關閉vba介面,在語文表格里啟動巨集。

excel自動排版之橫向列印

執行巨集--“排版”。

excel自動排版之橫向列印

語文表橫向列印自動排版的效果。

excel自動排版之橫向列印

可以“列印預覽”,看看效果。

excel自動排版之橫向列印

預覽的效果。

excel自動排版之橫向列印

同樣,在數學表格裡啟動巨集。

excel自動排版之橫向列印

執行巨集--“排版”,完成後,也可以“列印預覽”,看看預覽的效果。

excel自動排版之橫向列印

同樣的操作,可以完成英語表格的自動排版,看看列印預覽的效果。

excel自動排版之橫向列印

相關問題答案