立即注册 找回密码

QQ登录

只需一步,快速开始

查看: 2321|回复: 0

[Excel VBA 2013视频教程] 23-新建工作表的具体方法

[复制链接]

46

主题

0

回帖

982

积分

大学三年级

Rank: 4

积分
982
发表于 2017-9-20 06:22:19 | 显示全部楼层 |阅读模式
道勤网-数据www.daoqin.net

亲注册登录道勤网-可以查看更多帖子内容哦!(包涵精彩图片、文字详情等)请您及时注册登录-www.daoqin.net

您需要 登录 才可以下载或查看,没有账号?立即注册

x
本帖最后由 excel交流 于 2017-9-20 06:23 编辑

在“花名册分类”的作业里,moon2778加入了为不同地区建立工作表代码,让“沧海一滴”和“宝贝有酒窝”两个朋友都跟贴问了新建工作表的相关问题。有需要就有市场,呵呵......那我再在这里简单讲一讲我对新建工作表的认识,希望对大家学习有帮助。

        新建一个工作表(Worksheet),要调用工作表(Worksheet对象)的Add方法(可以建制一个新建工作表的宏来查看相关的代码)。
        如果我们想在当前工作表中新建一个工作表,代码可以写为:

  1.            Worksheets.Add '新建的工作表的位置在当前活动工作表的前面
  2.         
复制代码
此时,新建的工作表Excel默认把它放在活动工作表的前面,如果我们需要改变它的位置也是可以的。例如:

  1.           Worksheets.Add before:=Worksheets("sheet2")  '在工作表sheet2之前添加一个工作表
  2.           Worksheets.Add before:=Worksheets(1)   '在最前面添加一个工作表
  3.           Worksheets.Add after:=Worksheets("sheet2") '在工作表sheet2之后添加一个工作表"
  4.           Worksheets.Add after:=Worksheets(Worksheets.Count) '在最后面添加一个工作表
  5.       
复制代码
试了以上的代码,我们会发现,新添加的工作表都是采用“老大、老二、老三.....”的命名方式,如果你需要为新添加的工作表改一个名字,也是可以的,只需要再添加一句代码即可:

  1.         Worksheets.Add before:=Worksheets(1) '在最前面添加一个工作表
  2.         ActiveSheet.Name = "abc"  '将新建的工作表更名为“abc”
  3.       
复制代码
如果想更简单点,这句代码还可以合二为一:


         Worksheets.Add(before:=Worksheets(1)).Name = "abc" '在最前面添加一个名称为“abc”的工作表
      有时,也许需要一步就添加多个工作表,那可用下面的代码:

  1. <div><span microsoft="" yahei",="" simsun;"=""><div>
  2. </div><div>        Worksheets.Add Count:=3   '添加三个工作</div><div>     </div></span></div><div></div>
复制代码
但是一次性添加多个工作表时,好像就无法同时对其重新命名了。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭

道勤网- 推荐内容!上一条 /2 下一条

!jz_fbzt! !jz_sgzt! !jz_xgzt! 快速回复 !jz_fhlb! !jz_lxwm! !jz_gfqqq!

关于我们|手机版|小黑屋|地图|【道勤网】-www.daoqin.net 软件视频自学教程|免费教程|自学电脑|3D教程|平面教程|影视动画教程|办公教程|机械设计教程|网站设计教程【道勤网】 ( 皖ICP备15000319号-1 )

GMT+8, 2024-3-19 10:10

Powered by DaoQin! X3.4 © 2016-2063 Dao Qin & 道勤科技

快速回复 返回顶部 返回列表