| 導購 | 订阅 | 在线投稿
分享
 
 
 

Excel按鈕調用宏

來源:互聯網  2008-08-27 06:58:33  評論

今天我們用動畫的形式介紹在Excel中用按鈕調用「宏」的方法和技巧。

如果宏對所有工作簿文檔有效,建議大家在工具欄上添加一個命令按鈕,用來調用宏。

操作方法如下:

1、執行「工具→自定義」命令,打開「自定義」對話框。

2、切換到「命令」標簽下,在「類別」下面選中「宏」,然後將右邊「命令」區域中的「自定義按鈕」選項拖到工具欄合適位置上。

3、單擊「更改所選內容」按鈕,在隨後彈出的快捷菜單中,將「命名」右側方框中的字符修改爲按鈕對應的字符(如「刪除」),並選中「總是用文字」選項。

4、右擊上述添加的按鈕,在隨後彈出的快捷菜單中,選擇「指定宏」選項,打開「指定宏」對話框,選中需要調用的宏,確定返回。

5、關閉「自定義」對話框,按一上工具欄上的按鈕測試一下

Excel按鈕調用宏

表頭的設定

一、表頭三行打印到每頁這樣操作:點「文件/頁面設置/工作表」,在出現界面,點打印標題之頂端標題行框內右邊小紅箭頭,將頂端三行選中,確定即可。

表尾的設置

默認最後一行爲表尾,最後一行後不能有任何內容,點擊上邊的自定義的按鈕調用宏,給沒有頁面添加一個頁尾.

按鈕只能點擊一次,否則出現打印頁面僅有頁尾的情況

以下僅試用正規紙張的打印,不正規的稍加修改就可以實現批量打印的功能

代碼:

Dim long_all As Integer, width_all As Integer '紙張的大小 Dim zleftMargin As Integer, zrightMargin As Integer, zTopMargin As Integer '頁邊距 Dim zBottomMargin As Integer, zHeaderMargin As Integer, zFooterMargin As Integer '頁眉頁腳 Dim z_sum As Integer, head_long As Integer, all_row As Integer '內容的長度表頭的長度總行數 Dim foot_long As Integer Dim pagesize As Integer, Orientation As Integer '紙張類型打印橫向還是縱向 Dim title As String, start_head As Integer, end_head As Integer '表頭開始行表頭結束行 『這裏添加自動調整行高的代碼(下邊有代碼) title = ActiveSheet.PageSetup.PRintTitleRows end_head = Mid(title, 5) '表頭結束位置從1開始的 all_row = ActiveSheet.UsedRange.Rows.Count '總的可用排數 Orientation = ActiveSheet.PageSetup.Orientation pagesize = ActiveSheet.PageSetup.PaperSize........................如果出來的頁邊距過大,請調整好 頁眉(越小越好,不可以負數) 頁腳(越小越好,不可以負數) 上邊距 下邊距自行調整

反複測試時請刪除掉頁腳數據,然後單擊刪除分頁符號,excel將回複到原來的默認的打印樣式,再次可以測試分頁情況

注:縱向有單元格合並的不適用,稍加些改就可以了

今天我們用動畫的形式介紹在Excel中用按鈕調用「宏」的方法和技巧。 如果宏對所有工作簿文檔有效,建議大家在工具欄上添加一個命令按鈕,用來調用宏。 操作方法如下: 1、執行「工具→自定義」命令,打開「自定義」對話框。 2、切換到「命令」標簽下,在「類別」下面選中「宏」,然後將右邊「命令」區域中的「自定義按鈕」選項拖到工具欄合適位置上。 3、單擊「更改所選內容」按鈕,在隨後彈出的快捷菜單中,將「命名」右側方框中的字符修改爲按鈕對應的字符(如「刪除」),並選中「總是用文字」選項。 4、右擊上述添加的按鈕,在隨後彈出的快捷菜單中,選擇「指定宏」選項,打開「指定宏」對話框,選中需要調用的宏,確定返回。 5、關閉「自定義」對話框,按一上工具欄上的按鈕測試一下 [url=/bbs/detail_1848173.html][img]http://image.wangchao.net.cn/it/1323267941283.gif[/img][/url] 表頭的設定 一、表頭三行打印到每頁這樣操作:點「文件/頁面設置/工作表」,在出現界面,點打印標題之頂端標題行框內右邊小紅箭頭,將頂端三行選中,確定即可。 表尾的設置 默認最後一行爲表尾,最後一行後不能有任何內容,點擊上邊的自定義的按鈕調用宏,給沒有頁面添加一個頁尾. 按鈕只能點擊一次,否則出現打印頁面僅有頁尾的情況 以下僅試用正規紙張的打印,不正規的稍加修改就可以實現批量打印的功能 代碼: Dim long_all As Integer, width_all As Integer '紙張的大小 Dim zleftMargin As Integer, zrightMargin As Integer, zTopMargin As Integer '頁邊距 Dim zBottomMargin As Integer, zHeaderMargin As Integer, zFooterMargin As Integer '頁眉頁腳 Dim z_sum As Integer, head_long As Integer, all_row As Integer '內容的長度表頭的長度總行數 Dim foot_long As Integer Dim pagesize As Integer, Orientation As Integer '紙張類型打印橫向還是縱向 Dim title As String, start_head As Integer, end_head As Integer '表頭開始行表頭結束行 『這裏添加自動調整行高的代碼(下邊有代碼) title = ActiveSheet.PageSetup.PRintTitleRows end_head = Mid(title, 5) '表頭結束位置從1開始的 all_row = ActiveSheet.UsedRange.Rows.Count '總的可用排數 Orientation = ActiveSheet.PageSetup.Orientation pagesize = ActiveSheet.PageSetup.PaperSize........................如果出來的頁邊距過大,請調整好 頁眉(越小越好,不可以負數) 頁腳(越小越好,不可以負數) 上邊距 下邊距自行調整 反複測試時請刪除掉頁腳數據,然後單擊刪除分頁符號,excel將回複到原來的默認的打印樣式,再次可以測試分頁情況 注:縱向有單元格合並的不適用,稍加些改就可以了
󰈣󰈤
王朝萬家燈火計劃
期待原創作者加盟
 
 
 
>>返回首頁<<
 
 
 
 
 熱帖排行
 
 
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有