~ 上傳‧分享‧網賺 ~
~ 免費上傳空間‧請即申請 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
嗯 ~ 看到了吧 ~ 记得哦 ~ 处理时要小心点哦 ~
文章
0 留言:
發佈留言