~ 上傳‧分享‧網賺 ~
~ 免費上傳空間‧請即申請 Freak Share ~
~ 進入後請點選左上角 注冊 ! ~
~ 聲明事項 ~
如各位想把以下本文章轉貼 , 請記得要注明出處.
本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.
由於圖片製作需時, 所以更新會比較慢.
存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.
增加工作頁會是你在設定一個新的報表時常會做的東西吧 , 那麼 , 既然你要學會 VBA 使電腦來自動工作 , 那麼 , 增加工作頁的這個麻煩步驟為什麼不交給電腦替你來做呢 ?
==================
Worksheets.Add AFTER:=Worksheets("SHEET3")
==================
上面的程式碼的意思 , 就是在 工作頁 SHEET 3 後面增加一個新的工作頁 , 當然 , 新增出來的工作頁會自動地更改為使用中的狀態 , 這個是必須要留意的 .
我自己的個人習慣 , 當程式執行完增加新工作頁之後 , 會立即把工作頁的名稱更改 , 就是那個什麼Worksheets("Sheet1").Name = "abc" 的方法 .
嗯 … 這是個人習慣嘛 ~
好 ~ 回到程式碼吧 ~
可能你已經有留意到 , 程式碼當中出現了一個很熟悉的英文字 – AFTER , 這個字的意思不用我解釋了吧 ~ 既然有 AFTER , 當然就會有 BEFORE 了 ~ 如果你把 AFTER 換成 BEFORE , 那麼 , 新增出來的工作頁就會在 SHEET 3 的前面了 ~
可能你會問 , 如果我想一次過增加幾個工作頁呢 ? 難道要把這句程式碼執行多幾次來滿足我的要求 ?
嗯 … 這個問題讓我想起我最初學 VBA 的時候的情形 , 嗯 … 當時我是真的把這句程式碼執行足夠的次數來滿足我的要求 … 嗯 … 蠻笨的方法 …
好吧 ~ 看一下程式碼 ~
==================
Worksheets.Add AFTER:=Worksheets("SHEET3"), Count:=5
==================
這句程式碼比上面的多了一個東西 “ Count:=5 ” , 這個意思是 , 一次過增加五個新的工作頁 , 當然 , 數量是你自己決定的 ~ OK !?
使用這個方法的話 , 有一件事必須要提醒你一下 , 如果你一次過增加幾個工作頁 , 對於電腦來說 , 第一個在 SHEET 3 後面新增出來的是 SHEET 4 , 第二個是 SHEET 5 等等等等 ~ 如果你試一試執行這句程式碼的話 , 就會發現頁面名稱會變得怪怪的 :
SHEET 1 / SHEET 2 / SHEET 3 / SHEET 8 / SHEET 7 / SHEET 6 / SHEET 5 / SHEET 4
嗯 ~ 看到了吧 ~ 記得哦 ~ 處理時要小心點哦 ~
文章
2 留言:
HIHI 威廉先生
看完了這麼多VBA教學
最近很有興趣想要做一個VBA
能夠自動作成一個文件
不然每次都要自己調整EXCEL
sub make()
Worksheets.Add AFTER:=Worksheets("SHEET3")
Worksheets("Sheet4").Name = "主頁面"
end sub
之後改成
sub make()
Worksheets("主頁面").delete
Worksheets.Add AFTER:=Worksheets("SHEET3")
Worksheets("Sheet4").Name = "主頁面"
end sub
結果用了之後他生成的新SHEET是SHEET5.
這該怎麼辦.
這有甚麼辦法處理嗎 @@?
Hi Yin Bin ~
增加新工作頁後 , 因為新增的工作頁會自動被轉成使用中的狀態 , 所以不用指名 , 只要把 Worksheets("Sheet4").Name = "主頁面" 改成 ActiveSheet.Name = "主頁面" 就可以了 =) 試試看吧 :)
發佈留言