EXCEL VBA工作表操作全能方法小结
《EXCEL VBA工作表操作全能方法小结》由会员分享,可在线阅读,更多相关《EXCEL VBA工作表操作全能方法小结(5页珍藏版)》请在装配图网上搜索。
1、EXCEL VBA工作表操作全能方法小结 示例04-01 增加工作表(Add方法) Sub AddWorksheet()MsgBox 在当前工作簿中添加一个工作表 Worksheets.AddMsgBox 在当前工作簿中的工作表sheet2之前添加一个工作表 Worksheets.Add before:=Worksheets(sheet2)MsgBox 在当前工作簿中的工作表sheet2之后添加一个工作表 Worksheets.Add after:=Worksheets(sheet2) MsgBox 在当前工作簿中添加3个工作表 Worksheets.Add Count:=3 End Sub示
2、例说明:Add方法带有4个可选的参数,其中参数Before和参数After指定所增加的工作表的位置,但两个参数只能选一;参数Count用来指定增加的工作表数目。 示例04-02复制工作表(Copy方法) Sub CopyWorksheet()MsgBox 在当前工作簿中复制工作表sheet1并将所复制的工作表放在工作表sheet2之前 Worksheets(sheet1).Copy Before:=Worksheets(sheet2)MsgBox 在当前工作簿中复制工作表sheet2并将所复制的工作表放在工作表sheet3之后 Worksheets(sheet2).Copy After:=Wo
3、rksheets(sheet3) End Sub示例说明:Copy方法带有2个可选的参数,即参数Before和参数After,在使用时两个参数只参选一。 示例04-03移动工作表(Move方法) Sub MoveWorksheet()MsgBox 在当前工作簿中将工作表sheet3移至工作表sheet2之前 Worksheets(sheet3).Move Before:=Worksheets(sheet2) MsgBox 在当前工作簿中将工作表sheet1移至最后Worksheets(sheet1).Move After:=Worksheets(Worksheets.Count) End Su
4、b示例说明:Move方法与Copy方法的参数相同,作用也一样。示例【04-04】隐藏和显示工作表(Visible属性)示例04-04-01 Sub testHide()MsgBox 第一次隐藏工作表sheet1 Worksheets(sheet1).Visible = False MsgBox 显示工作表sheet1Worksheets(sheet1).Visible = True MsgBox 第二次隐藏工作表sheet1Worksheets(sheet1).Visible = xlSheetHidden MsgBox 显示工作表sheet1Worksheets(sheet1).Visibl
5、e = True MsgBox 第三次隐藏工作表sheet1Worksheets(sheet1).Visible = xlSheetHidden MsgBox 显示工作表sheet1Worksheets(sheet1).Visible = xlSheetVisible MsgBox 第四隐藏工作表sheet1Worksheets(sheet1).Visible = xlSheetVeryHidden MsgBox 显示工作表sheet1Worksheets(sheet1).Visible = True MsgBox 第五隐藏工作表sheet1Worksheets(sheet1).Visible
6、 = xlSheetVeryHidden MsgBox 显示工作表sheet1Worksheets(sheet1).Visible = xlSheetVisible End Sub示例说明:本示例演示了隐藏和显示工作表的各种情形。其中,使用xlSheetVeryHidden常量来隐藏工作表,将不能通过选择工作表菜单栏中的“格式”“工作表”“取消隐藏”命令来取消隐藏。 示例04-04-02 Sub ShowAllSheets()MsgBox 使当前工作簿中的所有工作表都显示(即将隐藏的工作表也显示) Dim ws As Worksheet For Each ws In Sheetsws.Visi
7、ble=TrueNext wsEnd Sub 示例04-05获取工作表数(Count属性) 示例04-05-01 Sub WorksheetNum()Dim I As Longi=Worksheets.CountMsgBox 当前工作簿的工作表数为: & Chr(10) & i End Sub 示例04-05-02 Sub WorksheetNum()Dim I As Longi=Sheets.CountMsgBox 当前工作簿的工作表数为:& Chr(10)&iEnd Sub示例说明:在一个包含图表工作表的工作簿中运行上述两段代码,将会得出不同的结果,原因是对于Sheets集合来讲,工作表包
8、含图表工作表。应注意Worksheets集合与Sheets集合的区别,下同。示例04-06获取或设置工作表名称(Name属性) 示例04-06-01 Sub NameWorksheet()Dim sName As String, sChangeName As String sName = Worksheets(2).NameMsgBox 当前工作簿中第2个工作表的名字为: &sName sChangeName=我的工作表MsgBox 将当前工作簿中的第3个工作表名改为:& sChangeName Worksheets(3).Name = sChangeName End Sub示例说明:使用Name属性可以获取指定工作表的名称,也可以设置工作表的名称。
- 温馨提示:
1: 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2: 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
3.本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 装配图网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 高中物理-第3章-专题-弹力摩擦力综合问题及物体的受力分析ppt课件-新人教版必修1
- 高中英语外研版选修六ppt课件:Module+2+Section+Ⅰ+Introduction+&+Reading+—+Pre-reading
- 高中英语外研版必修三ppt课件:Module+4+Section+Ⅴ+Writing—+环保类作文
- 高中英语必修4-Unit-2-Working-the-landppt课件
- 《高等石油地质》复习资料--课件
- 高中英语人教选修6ppt课件:Unit-3-Section-Ⅱ
- 高中信息技术基础《初识冒泡排序》优质课教学ppt课件
- 高中议论文语段训练修改ppt课件
- 高中英语必修五人教版ppt课件:Unit-3-Period-Three
- 党课ppt课件信仰的力量精编版
- 蔬果变变变课件
- 中央空调系统构成和设备配置课件
- 促进身心健康课件-人教课标版
- 传出神经系统药理---课件
- 一年级数学10的分与合课件