第7章 工作表的相关操作

第7章工作表的相关操作•工作表是编辑单元格对象的载体，是操作Excel时必不可少的操作对象。如果想更好地控制Excel单元格和工作簿，就必须熟练掌握工作表的相关知识。本章主要讲解有关工作表的新建、选取、隐藏、以及移动和保护方面的内容。7.1新建工作表•在打开一个Excel工作簿时，在默认的情况下有三个工作表，即Sheet1、Sheet2和Sheet3。如果需要，还可以继续在工作簿中新建一个或多个工作表，本节中将讲解有关新建工作表方面的相关知识。7.1.1新建单张工作表•使用ExcelVBA语句可以新建一张新的工作表，具体的实现步骤如下所示。7.1.2新建工作表之前判断工作表是否存在•在插入工作表之前，可以先判断要插入的工作表是否已经存在，以避免插入重复名称的工作表。本节中将通过一个示例来讲解如何实现在插入工作表之前判断该工作表是否已经存在。•本示例演示的是在工作簿中新建一张新的工作表“总额”，并且需要在新建工作表之前首先判断“总额”工作表是否已经存在，如果已经存在则提示不允许新建该工作表。7.1.3在指定位置新建工作表•在新建工作表时，可以在指定的位置插入新建的工作表。在指定位置新建工作表主要可分为以下4种情况，即在指定工作表前新建工作表、在指定工作表后新建工作表、在工作表的最前位置新建工作表和在工作表的最后位置新建工作表，下面分别讲解这几种方法。7.1.4在新建工作表时指定工作表的名称•在前面新建的工作表当中，新建工作表的名称都是默认指定的。实际上，在新建工作表时可以同时指定新建工作表的名称。•示例7-6新建指定工作表名称的工作表\代码\第7章\7.1.4.xlsm•本示例实现的是在工作表Sheet1的B2单元格中输入要新建工作表的名称，然后单击工作表中的【新建】按钮，在工作簿中将会新建一个指定名称的工作表。•示例实现的步骤如下所示。7.1.5同时新建多个工作表•上面讲述的都是如何新建单个工作表，实际上还可以向Excel工作簿中同时新建多个工作表。•示例7-7新建指定数量的工作表\代码\第7章\7.1.5.xlsm•本示例实现的是在工作表Sheet1的B2单元格中输入要新建工作表的数量，然后单击工作表中的【新建指定数量工作表】按钮，在工作簿中将会同时新建多个工作表。•示例实现的操作步骤如下所示。7.2激活与选取工作表•如果想要编辑工作表或者单元格，首先就需要先激活或选取工作表。本节中将讲解如何激活工作表以及如何在不同情况下选取工作表。7.2.1激活工作表•在对工作表中的对象进行操作时，需要激活工作表，以便确定对哪个工作表进行操作。实际上，在前面的很多示例中都应用了激活工作表操作，本节中将详细地讲解有关这方面的知识。•激活工作表使用的是工作表对象的Activate属性。下面通过示例来说明如何激活工作表。7.2.2选取指定的工作表•选取工作表使用的是工作表对象的Sheet属性。下面将讲解如何使用工作表对象的Sheet属性选取指定的工作表。•示例7-9选取指定的工作表\代码\第7章\7.2.2.xlsm•在默认的情况下，打开工作簿时工作表Sheet1处于被选中的状态，本示例实现的是在打开工作簿时，使工作表Sheet2处于被选中的状态。•示例实现的操作步骤如下所示。7.2.3选取多个工作表•在VBA中，除了可以选取指定的一个工作表之外，还可以一次选择多个工作表，如下面的示例所示。•示例7-10选取指定的工作表\代码\第7章\7.2.3(1).xlsm•本示例实现的是在打开工作簿时，使工作簿中的工作表Sheet1、Sheet3和Sheet5同时处于被选中的状态。•示例实现的步骤如下所示。7.2.4选取所有的工作表•除了可以选取指定的多个工作表之外，还可以一次选取所有的工作表，如下面的示例所示。•示例7-12选取所有的工作表\代码\第7章\7.2.4.xlsm•本示例实现的是在打开工作簿之后，将选取工作簿中所有的工作表。•示例实现的具体操作步骤如下所示。7.3工作表的隐藏•如果需要工作簿中的某个工作表不显示，可以将该工作簿隐藏。在Excel中，在“开始”选项卡中的“单元格”栏中单击【格式】按钮，在弹出的下拉菜单中选择“隐藏和取消隐藏”菜单下的“隐藏工作表”子菜单，可以将当前选中并激活的工作表隐藏。本节中将主要讲解如何通过使用ExcelVBA程序代码来控制工作表的隐藏和取消隐藏等内容。7.3.1隐藏一个或多个工作表•隐藏工作表使用的是工作表对象的Visible属性。本节中将通过示例来讲解如何隐藏单个或多个工作表。•示例7-13隐藏工作表\代码\第7章\7.3.1.xlsm•本示例实现的是在工作表Sheet1中分别添加【隐藏单个工作表】按钮和【隐藏多个工作表】按钮，当单击【隐藏单个工作表】按钮时将隐藏工作表Sheet2；当单击【隐藏多个工作表】按钮时将隐藏工作表Sheet2与工作表Sheet3。7.3.2根据条件隐藏工作表•在实际的应用中，可能有的工作表需要隐藏，有的工作表不需要隐藏，而有的工作表需要符合一定的条件才隐藏。本节中将讲解如何根据条件隐藏工作表。•示例7-14根据条件隐藏工作表\代码\第7章\7.3.2.xlsm•本示例实现的是在工作表Sheet1中的B2单元格中输入要隐藏的工作表，然后单击工作表中的【隐藏】按钮，将隐藏指定的工作表。7.3.3取消隐藏一个或多个工作表•在前面讲解的示例中，讲解了如何在Excel环境中设置取消隐藏工作表的操作。本节中将详细讲解如何通过ExcelVBA程序代码取消对工作表的隐藏。•示例7-15取消隐藏工作表\代码\第7章\7.3.3.xlsm•本示例实现的是在工作表Sheet1中单击【隐藏工作表】按钮之后，将隐藏工作簿中除工作表Sheet1之外的所有工作表。当在工作表Sheet1中的B2单元格中输入要取消隐藏的工作表名称之后，然后单击【取消隐藏工作表】按钮，将取消对指定工作表的隐藏。如果单击【取消隐藏所有工作表】按钮，将取消对所有工作表的隐藏操作。7.4删除工作表•在实际的应用中，常常涉及到删除工作表的操作。本节中将主要讲解如何应用ExcelVBA程序代码删除工作表。7.4.1删除指定的工作表•在Excel工作簿中，首先选中要删除的工作表，然后在该工作表的名称上单击鼠标右键，在弹出的快捷菜单中选择“删除”子菜单可以删除所选的工作表，如图7.24所示。•通过ExcelVBA程序代码也可以实现删除工作表的操作。•示例7-16删除工作表\代码\第7章\7.4.1.xlsm•本示例实现的是当在工作表Sheet1中的B2单元格中输入要删除的工作表名称之后，然后单击【删除指定工作表】按钮，将删除指定的工作表。如果单击【删除多个工作表】按钮，将删除工作簿中的后两个工作表。•示例实现的操作步骤如下所示。7.4.2根据条件删除工作表•在前一节中讲解了如何删除指定的单个和多个工作表。本节中将讲解如何根据判断条件删除工作表。•示例7-17根据条件删除工作表\代码\第7章\7.4.2.xlsm•本示例实现的是在单击工作表Sheet1中的【确认删除】按钮之后，工作簿中除了工作表Sheet1以外的所有工作表将会被删除。•示例实现的操作步骤如下所示。7.5工作表的移动•有时候根据需要，可以将工作表在本工作簿内或工作簿之间进行移动。本节中将讲解有关工作表移动方面的相关知识。7.5.1在工作簿内移动工作表•在工作簿内移动工作表分为将工作表移动到指定的工作表之前和将工作表移动到指定的工作表之后2种情况。•示例7-18在工作簿内移动工作表\代码\第7章\7.5.1.xlsm•本示例实现的是在工作表中输入需要移动的工作表名称和移动到目的地工作表的名称之后，单击【移动到指定工作表之前】按钮会将指定的工作表移动到目的地工作表之前；如果单击【移动到指定工作表之后】按钮会将指定的工作表移动到目的地工作表之后。7.5.2在工作簿之间移动工作表•上一节中讲解了如何在本工作簿内移动工作表，本节中，将讲解如何将一个工作表从一个工作簿移动到另一个工作簿当中。•示例7-19在工作簿间移动工作表\代码\第7章\7.5.2.xlsm•本示例实现的是在工作表中单击【移动到新工作簿】按钮，将使工作簿中的工作表Sheet1移动到一个新创建的工作簿当中；如果在工作表Sheet1的B2单元格中输入工作表移动到目的地的工作簿名称，然后单击【移动到指定工作簿】按钮将会使工作表Sheet2移动到指定的工作簿当中。•示例实现的操作步骤如下所示。7.6工作表的复制•复制工作表与移动工作表不同，移动工作表是将工作表移动到别处，并且在工作表的原来位置不保留该工作表的副本。而复制工作表则保留工作表的副本，本节中将讲解有关与复制工作表相关的内容。7.6.1在工作簿内复制工作表•与移动工作表一样，在工作簿内复制工作表同样也分为将工作表复制到指定的工作表之前和将工作表复制到指定的工作表之后2种情况。•示例7-20在工作簿内复制工作表\代码\第7章\7.6.1.xlsm•本示例实现的是在工作表中输入需要复制的工作表名称和复制到目的地工作表的名称之后，单击【复制到指定工作表之前】按钮会将指定的工作表复制到目的地工作表之前；如果单击【复制到指定工作表之后】按钮会将指定的工作表复制到目的地工作表之后。7.6.2在工作簿之间复制工作表•在工作簿之间除了可以移动工作表之外，还可以进行复制工作表操作。本节中，将讲解如何将一个工作表从一个工作簿复制到另一个工作簿当中。•示例7-21在工作簿间复制工作表\代码\第7章\7.6.2.xlsm•本示例实现的是在工作表中单击【复制到新工作簿】按钮，将使工作簿中的工作表Sheet1复制到一个新创建的工作簿当中；如果在工作表Sheet1的B2单元格中输入复制到目的地的工作簿名称，然后单击【复制到指定工作簿】按钮将会使工作表Sheet2复制到指定的工作簿当中。7.7工作表的保护•对工作表的保护和解除保护是学习Excel的重要内容。本节中将主要讲解如何通过ExcelVBA程序代码来实现对工作表的保护和解除保护。7.7.1对工作表进行保护•在日常的应用中，在工作表中有许多重要的内容是不允许其他用户进行更改的，如考试成绩、公司账目等。可以通过保护工作表的方法禁止其他用户更改工作表中的内容。•示例7-22保护工作表\代码\第7章\7.7.1.xlsm•本示例实现的是在工作表的单元格中输入要保护工作表的名称之后，单击工作表中的【保护工作表】按钮，则被指定的工作表将处于被保护的状态，即不允许向单元格中添加内容或修改单元格中的内容。7.7.2对工作表解除保护•对工作表进行保护之后，如果指定用户需要编辑工作表中的内容，可以根据密码解除对工作表的保护。•示例7-23解除对工作表的保护\代码\第7章\7.7.2.xlsm•本示例实现的是在工作表的单元格中输入解除保护工作表的名称和输入解除保护工作表的密码之后，单击工作表中的【解除保护】按钮，则工作表的保护状态被解除。•示例实现的操作步骤如下所示。7.8工作表的应用•前面分别讲解了对工作表的各种相关操作。本节中将再结合几个典型的示例来讲解对工作表的一些应用。7.8.1示例：设置对工作表的访问权限•【本节示例参考：\代码\第7章\7.8.1.xlsm】•本节中将通过一个典型的示例来讲解如何设置对工作表的访问权限。•示例实现的是在编辑完工作表的数据信息之后，当关闭工作表时，将弹出一个提示对话框提示用户是否设置对该工作表进行设置保护权限。如果单击【是】按钮则弹出一个要求输入密码的对话框窗口，在该窗口中输入保护工作表的密码之后，单击【确定】按钮，完成对工作表的保护设置。•当打开工作表时，首先弹出一个提示对话框，提示用户是否解除对工作表Sheet2的保护，如果单击【是】按钮则弹出一个输入密码对话框窗口，在该窗口中输入保护工作表的密码之后，单击【确定】按钮，将解除对工作表Sheet2的保护，否则工作表Sheet2将处于被保护的状态，即不能编辑工作表中的内容。•示例实现的具体操作步骤如下所示。7.8.2示例：禁止查看指定工作表中的内容•【本节