首页 > 其他 > 详细

工作表

时间:2015-09-16 12:08:34      阅读:175      评论:0      收藏:0      [点我收藏+]
Sub 新建工作表()
Sheets.Add , , 2 自动命名

Sheets.Add.Name = "hello" 直接命名
End Sub
Sub 删除工作表()
Sheet1.Delete
Sheets("hello").Delete

on error resume next
application.displayalert = false 删除时屏蔽弹出框
End Sub
Sub 移动工作表()
Sheet3.Move , Sheet2
End Sub
Sub 选择工作表()
Sheet3.Select ‘不能选择隐藏
Sheet3.Activate

Worksheets("sheet5").Select
Worksheets(Array("sheet5", "sheet6")).Select 多选
End Sub

 

工作表

原文:http://www.cnblogs.com/qcl_008/p/4812563.html

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!