excel中vba技术应用

excel中vba技术应用[示例04-01]增加工作表(Add方法)SubAddWorksheet()MsgBox在当前工作簿中添加一个工作表Worksheets.AddMsgBox在当前工作簿中的工作表sheet2之前添加一个工作表Worksheets.Addbefore:=Worksheets(sheet2)MsgBox在当前工作簿中的工作表sheet2之后添加一个工作表Worksheets.Addafter:=Worksheets(sheet2)MsgBox在当前工作簿中添加3个工作表Worksheets.AddCount:=3EndSub示例说明：Add方法带有4个可选的参数，其中参数Before和参数After指定所增加的工作表的位置，但两个参数只能选一；参数Count用来指定增加的工作表数目。--------------------------------------------------------------------------------[示例04-02]复制工作表(Copy方法)SubCopyWorksheet()MsgBox在当前工作簿中复制工作表sheet1并将所复制的工作表放在工作表sheet2之前Worksheets(sheet1).CopyBefore:=Worksheets(sheet2)MsgBox在当前工作簿中复制工作表sheet2并将所复制的工作表放在工作表sheet3之后Worksheets(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).MoveAfter:=Worksheets(Worksheets.Count)EndSub示例说明：Move方法与Copy方法的参数相同，作用也一样。--------------------------------------------------------------------------------[示例04-04]隐藏和显示工作表(Visible属性)[示例04-04-01]SubtestHide()MsgBox第一次隐藏工作表sheet1Worksheets(sheet1).Visible=FalseMsgBox显示工作表sheet1Worksheets(sheet1).Visible=TrueMsgBox第二次隐藏工作表sheet1Worksheets(sheet1).Visible=xlSheetHiddenMsgBox显示工作表sheet1Worksheets(sheet1).Visible=TrueMsgBox第三次隐藏工作表sheet1Worksheets(sheet1).Visible=xlSheetHiddenMsgBox显示工作表sheet1Worksheets(sheet1).Visible=xlSheetVisibleMsgBox第四隐藏工作表sheet1Worksheets(sheet1).Visible=xlSheetVeryHiddenMsgBox显示工作表sheet1Worksheets(sheet1).Visible=TrueMsgBox第五隐藏工作表sheet1Worksheets(sheet1).Visible=xlSheetVeryHiddenMsgBox显示工作表sheet1Worksheets(sheet1).Visible=xlSheetVisibleEndSub示例说明：本示例演示了隐藏和显示工作表的各种情形。其中，使用xlSheetVeryHidden常量来隐藏工作表，将不能通过选择工作表菜单栏中的“格式”——“工作表”——“取消隐藏”命令来取消隐藏。--------------------------------------------------------------------------------[示例04-04-02]SubShowAllSheets()MsgBox使当前工作簿中的所有工作表都显示(即将隐藏的工作表也显示)DimwsAsWorksheetForEachwsInSheetsws.Visible=TrueNextwsEndSub--------------------------------------------------------------------------------[示例04-05]获取工作表数(Count属性)[示例04-05-01]SubWorksheetNum()DimiAsLongi=Worksheets.CountMsgBox当前工作簿的工作表数为：&Chr(10)&iEndSub--------------------------------------------------------------------------------[示例04-05-02]SubWorksheetNum()DimiAsLongi=Sheets.CountMsgBox当前工作簿的工作表数为：&Chr(10)&iEndSub示例说明：在一个包含图表工作表的工作簿中运行上述两段代码，将会得出不同的结果，原因是对于Sheets集合来讲，工作表包含图表工作表。应注意Worksheets集合与Sheets集合的区别，下同。--------------------------------------------------------------------------------[示例04-06]获取或设置工作表名称(Name属性)[示例04-06-01]SubNameWorksheet()DimsNameAsString,sChangeNameAsStringsName=Worksheets(2).NameMsgBox当前工作簿中第2个工作表的名字为：&sNamesChangeName=我的工作表MsgBox将当前工作簿中的第3个工作表名改为：&sChangeNameWorksheets(3).Name=sChangeNameEndSub示例说明：使用Name属性可以获取指定工作表的名称，也可以设置工作表的名称。--------------------------------------------------------------------------------[示例04-06-02]重命名工作表SubReNameSheet()DimxStrAsStringRetry:Err.ClearxStr=InputBox(请输入工作表的新名称:_,重命名工作表,ActiveSheet.Name)IfxStr=ThenExitSubOnErrorResumeNextActiveSheet.Name=xStrIfErr.Number0ThenMsgBoxErr.Number&&Err.DescriptionErr.ClearGoToRetryEndIfOnErrorGoTo0'.........EndSub[示例04-07]激活/选择工作表(Activate方法和Select方法)[示例04-07-01]SubSelectWorksheet()MsgBox激活当前工作簿中的工作表sheet2Worksheets(sheet2).ActivateMsgBox激活当前工作簿中的工作表sheet3Worksheets(sheet3).SelectMsgBox同时选择工作簿中的工作表sheet2和sheet3Worksheets(Array(sheet2,sheet3)).SelectEndSub示例说明：Activate方法只能激活一个工作表，而Select方法可以同时选择多个工作表。--------------------------------------------------------------------------------[示例04-07-02]SubSelectManySheet()MsgBox选取第一个和第三个工作表.Worksheets(1).SelectWorksheets(3).SelectFalseEndSub--------------------------------------------------------------------------------[示例04-08]获取当前工作表的索引号(Index属性)SubGetSheetIndex()DimiAsLongi=ActiveSheet.IndexMsgBox您正使用的工作表索引号为&iEndSub--------------------------------------------------------------------------------[示例04-09]选取前一个工作表(Previous属性)SubPreviousSheet()IfActiveSheet.Index1ThenMsgBox选取当前工作簿中当前工作表的前一个工作表ActiveSheet.Previous.ActivateElseMsgBox已到第一个工作表EndIfEndSub示例说明：如果当前工作表是第一个工作表，则使用Previous属性会出错。--------------------------------------------------------------------------------[示例04-10]选取下一个工作表(Next属性)SubNextSheet()IfActiveSheet.IndexWorksheets.CountThenMsgBox选取当前工作簿中当前工作表的下一个工作表ActiveSheet.Next.ActivateElseMsgBox“已到最后一个工作表”EndIfEndSub示例说明：如果当前工作表是最后一个工作表，则使用Next属性会出错。--------------------------------------------------------------------------------[示例04-11]工作表行和列的操作[示例04-11-01]隐藏行SubHideRow()DimiRowAsLongMsgBox隐藏当前单元格所在的行iRow=ActiveCell.RowActiveSheet.Rows(iRow).Hidden=TrueMsgBox取消隐藏ActiveSheet.Rows(iRow).Hidden=FalseEndSub--------------------------------------------------------------------------------[示例04-11-02]隐藏列SubHideColumn()DimiColumnAsLongMsgBox隐藏当前单元格所在列iColumn=ActiveCell.ColumnActiveSheet.Columns(iColumn).Hidden=TrueMsgBox取消隐藏ActiveSheet.Columns(iColumn).Hidden=FalseEndSub------------------------------------------------------