亲注册登录道勤网-可以查看更多帖子内容哦!(包涵精彩图片、文字详情等)请您及时注册登录-www.daoqin.net
您需要 登录 才可以下载或查看,没有账号?立即注册
x
本帖最后由 excel交流 于 2017-9-20 06:23 编辑
在“花名册分类”的作业里,moon2778加入了为不同地区建立工作表代码,让“沧海一滴”和“宝贝有酒窝”两个朋友都跟贴问了新建工作表的相关问题。有需要就有市场,呵呵......那我再在这里简单讲一讲我对新建工作表的认识,希望对大家学习有帮助。
新建一个工作表(Worksheet),要调用工作表(Worksheet对象)的Add方法(可以建制一个新建工作表的宏来查看相关的代码)。
如果我们想在当前工作表中新建一个工作表,代码可以写为:
- Worksheets.Add '新建的工作表的位置在当前活动工作表的前面
-
复制代码 此时,新建的工作表Excel默认把它放在活动工作表的前面,如果我们需要改变它的位置也是可以的。例如:
- Worksheets.Add before:=Worksheets("sheet2") '在工作表sheet2之前添加一个工作表
- Worksheets.Add before:=Worksheets(1) '在最前面添加一个工作表
- Worksheets.Add after:=Worksheets("sheet2") '在工作表sheet2之后添加一个工作表"
- Worksheets.Add after:=Worksheets(Worksheets.Count) '在最后面添加一个工作表
-
复制代码 试了以上的代码,我们会发现,新添加的工作表都是采用“老大、老二、老三.....”的命名方式,如果你需要为新添加的工作表改一个名字,也是可以的,只需要再添加一句代码即可:
- Worksheets.Add before:=Worksheets(1) '在最前面添加一个工作表
- ActiveSheet.Name = "abc" '将新建的工作表更名为“abc”
-
复制代码 如果想更简单点,这句代码还可以合二为一:
Worksheets.Add(before:=Worksheets(1)).Name = "abc" '在最前面添加一个名称为“abc”的工作表
有时,也许需要一步就添加多个工作表,那可用下面的代码:
- <div><span microsoft="" yahei",="" simsun;"=""><div>
- </div><div> Worksheets.Add Count:=3 '添加三个工作</div><div> </div></span></div><div></div>
复制代码 但是一次性添加多个工作表时,好像就无法同时对其重新命名了。
道勤主机提供365天*24小时全年全天无休、实时在线、零等待的售后技术支持。竭力为您免费处理您在使用道勤主机过程中所遇到的一切问题!
如果您是道勤主机用户,那么您可以通过QQ【792472177】、售后QQ【59133755】、旺旺【诠释意念】、微信:q792472177免费电话、后台提交工单这些方式联系道勤主机客服!
如果您不是我们的客户也没问题,点击页面最右边的企业QQ在线咨询图标联系我们并购买后,我们为您免费进行无缝搬家服务,让您享受网站零访问延迟的迁移到道勤主机的服务! |