excel中vb技术应用.docVIP

excel中vba技术应用 [示例04-01]增加工作表(Add方法)Sub AddWorksheet()? MsgBox 在当前工作簿中添加一个工作表? Worksheets.Add? MsgBox 在当前工作簿中的工作表sheet2之前添加一个工作表? Worksheets.Add before:=Worksheets(sheet2)? MsgBox 在当前工作簿中的工作表sheet2之后添加一个工作表? Worksheets.Add after:=Worksheets(sheet2)? MsgBox 在当前工作簿中添加3个工作表? Worksheets.Add Count:=3End 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 显示工作表sheet1? Worksheets(sheet1).Visible = True? MsgBox 第二次隐藏工作表sheet1? Worksheets(sheet1).Visible = xlSheetHidden? MsgBox 显示工作表sheet1? Worksheets(sheet1).Visible = True? MsgBox 第三次隐藏工作表sheet1? Worksheets(sheet1).Visible = xlSheetHidden? MsgBox 显示工作表sheet1? Worksheets(sheet1).Visible = xlSheetVisible? MsgBox 第四隐藏工作表sheet1? Worksheets(sheet1).Visible = xlSheetVeryHidden? MsgBox 显示工作表sheet1? Worksheets(sheet1).Visible = True? MsgBox 第五隐藏工作表sheet1? Worksheets(sheet1).Visible = xlSheetVeryHidden? MsgBox 显示工作表sheet1? Worksheets(sheet1).Visible = xlSheetVisibleEnd Sub示例说明：本示例演示了隐藏和显示工作表的各种情形。其中，使用xlSheetVeryHidden常量来隐藏工作表，将不能通过选择工作表菜单栏中的“格式”——“工作表”——“取消隐藏”命令来取消隐藏。 [示例04-04-02]Sub ShowAllSheets()? MsgBox 使当前工作簿中的所有工作表都显示(即将隐藏的工作表也显示)? Dim ws As Worksheet? For Each ws In Sheets??? ws.Visible = True? Next wsEnd Sub [示例04-05]获取工作表数(Count属性)[示例04-05-01]Sub WorksheetN