欢迎来到天天文库
浏览记录
ID:48536581
大小:21.87 KB
页数:5页
时间:2020-01-26
《EXCEL VBA工作表操作全能方法小结.doc》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、EXCELVBA工作表操作全能方法小结[示例04-01]增加工作表(Add方法)SubAddWorksheet()MsgBox"在当前工作簿中添加一个工作表"Worksheets.AddMsgBox"在当前工作簿中的工作表sheet2之前添加一个工作表"Worksheets.Addbefore:=Worksheets("sheet2")MsgBox"在当前工作簿中的工作表sheet2之后添加一个工作表"Worksheets.Addafter:=Worksheets("sheet2")MsgBox"在当前工作簿中添加3个工作表"Worksheets.AddCount:
2、=3EndSub示例说明:Add方法带有4个可选的参数,其中参数Before和参数After指定所增加的工作表的位置,但两个参数只能选一;参数Count用来指定增加的工作表数目。[示例04-02]复制工作表(Copy方法)SubCopyWorksheet()MsgBox"在当前工作簿中复制工作表sheet1并将所复制的工作表放在工作表sheet2之前"Worksheets("sheet1").CopyBefore:=Worksheets("sheet2")MsgBox"在当前工作簿中复制工作表sheet2并将所复制的工作表放在工作表sheet3之后"Workshee
3、ts("sheet2").CopyAfter:=Worksheets("sheet3")EndSub示例说明:Copy方法带有2个可选的参数,即参数Before和参数After,在使用时两个参数只参选一。[示例04-03]移动工作表(Move方法)SubMoveWorksheet()MsgBox"在当前工作簿中将工作表sheet3移至工作表sheet2之前"Worksheets("sheet3").MoveBefore:=Worksheets("sheet2")MsgBox"在当前工作簿中将工作表sheet1移至最后"Worksheets("sheet1").Mov
4、eAfter:=Worksheets(Worksheets.Count)EndSub示例说明:Move方法与Copy方法的参数相同,作用也一样。示例【04-04】隐藏和显示工作表(Visible属性)[示例04-04-01]SubtestHide()MsgBox"第一次隐藏工作表sheet1"Worksheets("sheet1").Visible=FalseMsgBox"显示工作表sheet1"Worksheets("sheet1").Visible=TrueMsgBox"第二次隐藏工作表sheet1"Worksheets("sheet1").Visible=xl
5、SheetHiddenMsgBox"显示工作表sheet1"Worksheets("sheet1").Visible=TrueMsgBox"第三次隐藏工作表sheet1"Worksheets("sheet1").Visible=xlSheetHiddenMsgBox"显示工作表sheet1"Worksheets("sheet1").Visible=xlSheetVisibleMsgBox"第四隐藏工作表sheet1"Worksheets("sheet1").Visible=xlSheetVeryHiddenMsgBox"显示工作表sheet1"Worksheets(
6、"sheet1").Visible=TrueMsgBox"第五隐藏工作表sheet1"Worksheets("sheet1").Visible=xlSheetVeryHiddenMsgBox"显示工作表sheet1"Worksheets("sheet1").Visible=xlSheetVisibleEndSub示例说明:本示例演示了隐藏和显示工作表的各种情形。其中,使用xlSheetVeryHidden常量来隐藏工作表,将不能通过选择工作表菜单栏中的“格式”——“工作表”——“取消隐藏”命令来取消隐藏。[示例04-04-02]SubShowAllSheets()M
7、sgBox"使当前工作簿中的所有工作表都显示(即将隐藏的工作表也显示)"DimwsAsWorksheetForEachwsInSheetsws.Visible=TrueNextwsEndSub[示例04-05]获取工作表数(Count属性)[示例04-05-01]SubWorksheetNum()DimIAsLongi=Worksheets.CountMsgBox"当前工作簿的工作表数为:"&Chr(10)&iEndSub[示例04-05-02]SubWorksheetNum()DimIAsLongi=Sheets.CountMsgBox"当前工作簿的工作表数为
此文档下载收益归作者所有