excel中vba技术应用.docVIP

本文由zdgg99贡献 doc文档可能在WAP端浏览体验不佳。建议您优先选择TXT，或下载源文件到本机查看。 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:=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 显示工作表 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 = xlSheetVisible End Sub 示例说明：本示例演示了隐藏和显示工作表的各种情形。其中，使用 xlSheetVeryHidden 常量来隐藏工 作表，将不能通过选择工作表菜单栏中的“格式”——“工作表”——“取消隐藏”命令来取消隐藏。 [示例 04-04-02] Sub ShowAllSheets() MsgBox 使当前工作簿中的所有工作表都显示(即将隐藏的工作表也显示) Dim ws As Worksheet For Each ws In Sheets ws.Visible = True Next ws End Sub [示