說明:本設定是實現excel在一開啟的瞬間便實現自動設定列印區域功能。
假設本excel的格式是:
1.標題是從第一行至第七行;列是從第a列至l列
2.從第八行開始,便是動態變化的行資料
那麼,要設定本動態excel的列印區域:
1.開啟excel,滑鼠右鍵sheet名,點選「檢視**」。
2.雙擊「thisworkbook」字樣,游標進入了**編輯區。
3.可直接貼入如下**:
private sub workbook_open()
dim icount as integer
dim myprintarea as string
icount = activewindow.activesheet.usedrange.rows.count
myprintarea = "$a$1:$l$" & icount
range("$a$1:$l$" & icount).select
selection.columns.autofit
range("a8").select
activesheet.pagesetup.printarea = myprintarea
end sub
4.儲存xls,關閉vba即可。
若還有其它好辦法,請各位賜教。
EXCEL中使用VBA取有效使用區域
原創 牛超 2009 06 osaka 如題,修改原來的指令碼,引用usedrange private sub fillvalueauto astr as string,currow as long dim svalue as string dim sbatname as string dim sp...
使用VBA合併多個Excel工作簿
有許多實現excel工作簿合併的方法,在 將多個工作簿中的資料合併到乙個工作簿 中介紹過合併工作簿的示例。下面再列舉幾個示例,供有興趣的朋友參考。例如,需要將多個excel工作簿中的工作表合併到乙個工作簿。這裡假設需要合併的工作簿在 d 示例 資料記錄 資料夾中,含有兩個工作簿test1.xls t...
Excel中使用VBA訪問Access資料庫
excel中使用vba的優點 巨集是vba的一種簡單應用。巨集可以通過編寫vba 錄製巨集兩種方式獲得。通常是先錄製巨集,再在獲得的巨集的基礎上進行語句優化調整,最後得到想要的巨集。在 誰說菜鳥不會資料分析 工具篇 第四章 讓報告自動化中,涉及到根據輸入日期,從access資料庫中提取相關資料到ex...