Excel编程实例（170例）

MsgBox \在当前工作簿中复制工作表sheet1并将所复制的工作表放在工作表sheet2之前\ Worksheets(\Before:=Worksheets(\ MsgBox \在当前工作簿中复制工作表sheet2并将所复制的工作表放在工作表sheet3之后\ Worksheets(\After:=Worksheets(\End Sub 示例说明：Copy方法带有2个可选的参数，即参数Before和参数After，在使用时两个参数只参选一。 [示例04-03]移动工作表(Move方法) Sub MoveWorksheet() MsgBox \在当前工作簿中将工作表sheet3移至工作表sheet2之前\ Worksheets(\Before:=Worksheets(\ MsgBox \在当前工作簿中将工作表sheet1移至最后\ Worksheets(\After:=Worksheets(Worksheets.Count) End Sub 示例说明：Move方法与Copy方法的参数相同，作用也一样。

[示例04-04]隐藏和显示工作表(Visible属性) [示例04-04-01] Sub testHide() MsgBox \第一次隐藏工作表sheet1\ Worksheets(\= False MsgBox \显示工作表sheet1\ Worksheets(\= True MsgBox \第二次隐藏工作表sheet1\ Worksheets(\= xlSheetHidden MsgBox \显示工作表sheet1\ Worksheets(\= True MsgBox \第三次隐藏工作表sheet1\ Worksheets(\= xlSheetHidden MsgBox \显示工作表sheet1\ Worksheets(\= xlSheetVisible MsgBox \第四隐藏工作表sheet1\ Worksheets(\= xlSheetVeryHidden MsgBox \显示工作表sheet1\ Worksheets(\= True MsgBox \第五隐藏工作表sheet1\ Worksheets(\= xlSheetVeryHidden MsgBox \显示工作表sheet1\ Worksheets(\= 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

[示例04-05]获取工作表数(Count属性) [示例04-05-01] Sub WorksheetNum() Dim i As Long i = Worksheets.Count MsgBox \当前工作簿的工作表数为：\& Chr(10) & i End Sub [示例04-05-02] Sub WorksheetNum() Dim i As Long i = Sheets.Count MsgBox \当前工作簿的工作表数为：\& Chr(10) & i End Sub 示例说明：在一个包含图表工作表的工作簿中运行上述两段代码，将会得出不同的结果，原因是对于Sheets集合来讲，工作表包含图表工作表。应注意Worksheets集合与Sheets集合的区别，下同。

[示例04-06]获取或设置工作表名称(Name属性) [示例04-06-01] Sub NameWorksheet() Dim sName As String, sChangeName As String sName = Worksheets(2).Name MsgBox \当前工作簿中第2个工作表的名字为：\& sName sChangeName = \我的工作表\ MsgBox \将当前工作簿中的第3个工作表名改为：\& sChangeName Worksheets(3).Name = sChangeName End Sub 示例说明：使用Name属性可以获取指定工作表的名称，也可以设置工作表的名称。 [示例04-06-02]重命名工作表

Sub ReNameSheet() Dim xStr As String Retry: Err.Clear xStr = InputBox(\请输入工作表的新名称:\_ , \重命名工作表\ActiveSheet.Name) If xStr = \Then Exit Sub On Error Resume Next ActiveSheet.Name = xStr If Err.Number <> 0 Then MsgBox Err.Number & \\& Err.Description Err.Clear GoTo Retry End If On Error GoTo 0 '......... End Sub

[示例04-07]激活/选择工作表(Activate方法和Select方法) [示例04-07-01] Sub SelectWorksheet() MsgBox \激活当前工作簿中的工作表sheet2\ Worksheets(\ MsgBox \激活当前工作簿中的工作表sheet3\ Worksheets(\ MsgBox \同时选择工作簿中的工作表sheet2和sheet3\ Worksheets(Array(\\End Sub 示例说明：Activate方法只能激活一个工作表，而Select方法可以同时选择多个工作表。 [示例04-07-02] Sub SelectManySheet() MsgBox \选取第一个和第三个工作表.\ Worksheets(1).Select Worksheets(3).Select False End Sub

[示例04-08]获取当前工作表的索引号(Index属性) Sub GetSheetIndex() Dim i As Long i = ActiveSheet.Index MsgBox \您正使用的工作表索引号为\& i End Sub

[示例04-09]选取前一个工作表(Previous属性) Sub PreviousSheet() If ActiveSheet.Index <> 1 Then MsgBox \选取当前工作簿中当前工作表的前一个工作表\ ActiveSheet.Previous.Activate Else MsgBox \已到第一个工作表\ End If End Sub 示例说明：如果当前工作表是第一个工作表，则使用Previous属性会出错。

[示例04-10]选取下一个工作表(Next属性) Sub NextSheet() If ActiveSheet.Index <> Worksheets.Count Then MsgBox \选取当前工作簿中当前工作表的下一个工作表\ ActiveSheet.Next.Activate Else MsgBox “已到最后一个工作表” End If End Sub 示例说明：如果当前工作表是最后一个工作表，则使用Next属性会出错。 [示例04-11]工作表行和列的操作 [示例04-11-01]隐藏行 Sub HideRow() Dim iRow As Long MsgBox \隐藏当前单元格所在的行\ iRow = ActiveCell.Row ActiveSheet.Rows(iRow).Hidden = True MsgBox \取消隐藏\ ActiveSheet.Rows(iRow).Hidden = False End Sub [示例04-11-02]隐藏列 Sub HideColumn() Dim iColumn As Long MsgBox \隐藏当前单元格所在列\ iColumn = ActiveCell.Column ActiveSheet.Columns(iColumn).Hidden = True MsgBox \取消隐藏\ ActiveSheet.Columns(iColumn).Hidden = False End Sub