vba精典源程序源代码(工作表操作)VIP免费

[示例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 "第三次隐藏工作表...