EXCEL VBA工作表操作全能方法小结.docVIP

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示例说明：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:=Worksheets(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 Sub示例说明：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).Visible = 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 = xlSheetVeryHidden MsgBox 显示工作表sheet1Worksheets(sheet1).Visible = xlSheetVisible End Sub示例说明：本示例演示了隐藏和显示工作表的各种情形。其中，使用xlSheetVeryHidden常量来隐藏工作表，将不能通过选择工作表菜单栏中的“格式”“工作表”“取消隐藏”命令来取消隐藏。 示例04-04-02 Sub ShowAllSheets()MsgBox 使当前工作簿中的所有工作表都显示(即将隐藏的工作表也显示) Dim ws As Worksheet For Each ws In Sheetsws.Visible=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集合来讲，工作表包含图表工作表。应注意Worksheets集合与Sheets集合的区别，下同。示例04-06获取或设置工作表名称(Name属性) 示例04-06-01 Sub NameWorksheet()Dim sName As String, sChangeName As String sName = Worksheets(2).NameMsgBox 当前工作簿中第2个工作表的名字为： &sName sChangeName=我