利用excel自帶的vba程式設計,實現對錶格的自動排版,本文來說說橫向列印的排版。
工具/原料
excel
方法/步驟
案例:要給如圖的表格排版。
注意,一共有三張表格,分別是語文、數學、英語學科成績統計表。
在語文表格里啟動vba。
在vba介面插入模組。
在模組1裡編寫程式。給程式命名為排版,呼叫工作表函式counta統計行數和列數。
A4紙的寬為21cm,統一設定行高時,就在21裡面減去2個3,給一張A4紙上下各留3cm,把餘下的部分按總行數平均分。
A4紙的長為29.7cm,統一設定列寬時,就在29.7裡面減去2個1.9,給一張A4紙左右各留1.9cm,把餘下的部分按總列數平均分。
設定橫向列印。
編寫程式完,關閉vba介面,在語文表格里啟動巨集。
執行巨集--“排版”。
語文表橫向列印自動排版的效果。
可以“列印預覽”,看看效果。
預覽的效果。
同樣,在數學表格裡啟動巨集。
執行巨集--“排版”,完成後,也可以“列印預覽”,看看預覽的效果。
同樣的操作,可以完成英語表格的自動排版,看看列印預覽的效果。