继昨天的自定义函数之后，今天我将教你几个常用的VBA码！

我相信很多朋友听到VBA，都会立刻退避三舍，视其为洪水猛兽。

其实VBA电码并不可怕，它之所以神秘可怕，是因为我们对它了解不多，总是听到有权势的人谈论它。

今天小E就为大家揭开VBA电码的神秘面纱，介绍几种常见的简单电码，将会非常方便大家应用到工作中，大大提高工作效率。

首先我们跟着小E了解一下相关操作的基础知识吧~

1

认识 VBA 编辑器

大家都知道Excel中的数据是存储在单元格中的，但是你知道VBA码应该存储在哪里吗？

答案是VBA编辑，如下图所示：

那么如何打开VBA编辑器呢？这里有三种方法教你。

方法一

通过选项卡打开

点击开发工具选项卡，找到Visual Basic命令，点击进入VBA编辑器，如下图所示：

如果菜单栏中没有Development Tools选项卡，请按照以下步骤将其显示出来。单击文件-选项，单击自定义功能区，选中主选项卡中的开发工具，然后单击确定。

方法二

通过右键工作表标签查看代码打开

右键单击任意工作表标签，在弹出菜单中单击“查看代码”，进入VBA编辑器，如下图所示：

方法三

通过快捷键打开

在任何工作表中，使用快捷键【Alt F11】进入VBA编辑器，但有些笔记本可能需要同时按下【Fn】键。

2

如何运行 VBA 代码

我们大部分的VBA代码都存储在VBA编辑器的模块里，那么如何添加模块呢？

在左侧项目资源管理器中，右键单击【Thisworkbook】或上面任意工作表的标签，弹出菜单，点击菜单中的【插入】，在下一个弹出菜单中选择【模块】，点击插入模块，如下图所示：

我们知道在哪里存储VBA代码，那么如何运行VBA代码呢？

点击开发工具页签，找到宏命令，点击，如下图所示：

在弹出的宏对话框中，可以看到我们编写的VBA宏的名称。点击选择要执行的宏名，点击【执行】，执行VBA代码，如下图所示：

3

常用的 VBA 代码

相信现在你已经掌握了VBA码相关的基本操作，那么小E就贴几个常用的简单VBA码给大家吧~

只有短短的几行字，却可以节省我们很多时间！

批量保护/取消保护工作表

有时候为了防止别人误操作，需要给工作表加一个保护密码，但是工作表太多了，一个一个设置保护也是一个手工的工作。这时，如果使用下面的VBA电码，就方便快捷多了！

子保护工作表()dim I as long for I=1 to sheets。细目表(一)。Protect' 123' NextSub为您提供代码——的一般解释。

第一行定义了宏的名称。比如这个宏的名字是“保护单”，最后一行是End。这两行是固定用法。第二行Dim是定义变量的类型，这里是将变量I定义为长整型。第三行和第五行是For Next loop，Sheets的用法。Count是指工作表的数量，i=1时是指工作表的数量。Count表示从第一个表到最后一个表执行For和Next之间的代码。第四行是主函数代码。床单(一)。Protect通过变量I的变化来逐个保护工作表，后面的字符串123就是密码，可以根据需要修改。

如何编写取消保护工作表's代码？

其实只要改一下宏名然后修改第四行代码就行了！修改后的代码如下：

Sub unprotect工作表()dim I as long for I=1 to sheets。细目表(一)。取消对' 123 '下一个接头保护。

批量重命名工作表

有时我们建立了很多工作表，工作表名称是 Sheet1、Sheet2 这种，这让我们查看数据时很难分清，需要重新命名工作表。一个一个工作表来，估计又要忙活一会儿了！

比如我们要把 Sheet2 工作表及后面所有的工作表名称都修改为每个工作表中 C2 单元格的值，也就是将工作表名称修改为部门名称，方便查看每个部门的情况。

我们的 VBA 代码又派上用场了：

Sub 修改工作表名称()Dim i As LongFor i = 2 To Sheets.Count Sheets(i).Name = Sheets(i).Range("C2")NextEnd Sub

给大家大致解释下代码——

❶ 第一行、第二行、第五行及第六行，与前面代码功能一致，在此不再赘述。❷ 第三行仍为循环，只是改为从第二个工作表开始循环，所以使用了 For i = 2 开始，直到最后一个工作表。❸ 第四行是关键的修改工作表名称的代码，Sheets(i).Name 代表这个工作表的名称，等于这个工作表中 C2 单元格的值。

– 4 –

小心这些「坑」

❶ 保存时注意文件类型

如果你的文件扩展名为「.xlsx」，添加代码后，文件在保存时会有下图所示的提示：