正确学会Excel VBA的16堂课-Excel工作表相关操作.pptx

Excel工作表相关操作 ♂插入与选取工作表 ♂隐藏与删除工作表 ♂移动或复制工作表 ♂工作表的保护 ♂工作表的实际应用 插入与选取工作表 插入工作表 在指定位置插入工作表 插入前判断工作表是否存在 选取指定工作表 设置活动工作表 选取多个工作表 设置活动工作表 使用Select和Activate操作同一张工作表时，二者实现的功能一样，都是将单个工作表选中或激活。区别在于Select可以同时选取多张工作表，而Activate只能设置一个工作表为活动状态，例如使用“Worksheet.Select”语句选取所有工作表，但只有Sheet1为活动工作表，如图4-8所示。而“Worksheets.Activat”则是错误的语句，在运行时会弹出显示“编译错误”的信息提示，如图4-9所示。 隐藏与删除工作表 隐藏一个或多个工作表 取消工作表的隐藏 删除指定的工作表 删除未选中的工作表 按指定条件隐藏 具体的操作步骤如下： 步骤1：在VBA代码窗口中新插入一个模块并从中输入如下程序代码，如图4-11所示。 步骤2：运行该程序可将“4月份销售清单”工作表外所有工作表隐藏，如图4-12所示 移动或复制工作表 在工作簿内移动工作表 工作簿间移动工作表 在工作簿内复制工作表 在工作簿间复制工作表 将工作表另存为工作簿 在工作簿内移动工作表 在工作簿内移动工作表有两种，分别是移动到指定工作表前和移动到指定工作表后。 （1） 移动到指定工作表之前 移动到指定工作表之前的具体代码如下： Sub 移动到工作表之前() Sheets(Sheet3).Move before:=Sheets(Sheet1) End Sub 运行上述程序可以将工作表Sheet3移动到工作表Sheet1之前。这里的Move是工作表对象的方法，即移动工作表的方法，before是设置在指定工作表之前。 （2）移动到指定工作表之后 移动到指定工作表之后的具体代码如下： Sub 移动到工作表之后() Sheets(Sheet3).Move after:=Sheets(Sheet1) End Sub 运行上述代码可以将工作表Sheet3移动到工作表Sheet1之后，其中的after表示移动到指定工作表之后。 工作表的保护 保护单个或所有工作表 对工作表解除保护 工作表的实际应用 禁止查看指定工作表 指定区域密码保护 禁止更改工作表的名称 限制工作表的滚动区域 禁止查看指定工作表 步骤1：在VBA代码窗口中输入禁止查看“金额明细表”工作表的程序代码，如图4-25所示。运行上述程序后，返回工作表中。 Private Sub Worksheet_Activate() If ActiveSheet.Name Like 金额明细表 Then Sheets(科目明细表).Select End If End Sub 步骤2：先选择除工作表“金额明细表”之外的任意一个工作表，当再次选中工作表“金额明细表”时，即可驱动事件程序的运行，即无法选中该工作表。 指定区域密码保护 在日常使用中，有时需要将某个工作表中的某个区域进行保护。例如在工作表保护的前提下，当选取B列单元格时可弹出要求输入保护密码。如果输入正确的密码则可解除B列的锁定，即B列可编辑；否则B列列法编辑。而且当再次选取该工作表后，单元格将被重新锁定。在VBA代码窗口中输入如下程序代码，如图4-26所示。 禁止更改工作表的名称 步骤1：在VBA代码窗口中输入如下程序代码，如图4-28所示。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Me.Name 工资明细表 Then Me.Name = 工资明细表 MsgBox 您好，该工作表禁止更改工作表名称！, vbExclamation End If End Sub 步骤2：程序输入完毕后，返回工作表，双击“工资明细表”工作表的工作表标签，对工作表进行重命名操作后，当单击工作表中的任意单元格时，工作表名称会自动恢复为原来的名称，此时还会弹出禁止更改工作表名称的提示信息，如图4-29所示。 限制工作表的滚动区域 在【属性】窗口中设置 步骤1：在工作簿中先确定允许滚动的区域，这里将工作表Sheet1中的“C5：H14”单元格区域设置为允许滚动的区域，如图4-30所示。 步骤2：按Alt+Fll组合键，打开VBA代码窗口，在【工程资源管理器】窗口中选择“Sheet1”选项，在其【属性】窗口中选择【按字母序】选项卡，在“ScrollArea”文本框中输入“$C$5:$H$14”，如图4-31所示。 步骤3：返回工作表，此时即可将“C5：H14”单元