极乐净土裸舞几句小白皆会用的VBA代码，让工行恶果普及百倍！（附常用代码文献）|裁剪器|责任表|责任簿|vba代码

发布日期：2024-11-03 11:52 点击次数：55

点击蓝字【秋叶 Excel】极乐净土裸舞

发送【6】

免费领 1000+篇 Excel 精选教程！

本文作家：wayy

本文裁剪：卫星酱

文末送 VBA 常用代码，谨记看到临了哦~

信赖不幼年伙伴一听到 VBA，立马纷纷后退，将它视作急流猛兽。

其实，VBA 代码并不可怕，仅仅因为我们战役得未几不了解，又总听到犀利的东说念主提及它，是以才以为它又奥密又可怕。

而今天，我们就来揭开 VBA 代码的奥密面纱，况兼先容几个常用的浅易代码，能够让人人特别便捷地应用到责任中去，大大普及工行恶果。

那最初就随着我了解下筹议操作的基础知识吧~

意识 VBA 裁剪器

人人皆知说念 Excel 中数据存放在单位格里，可你们知说念 VBA 代码要存放在什么地点？

谜底等于 VBA 裁剪器，如下图所示：

那要若何大开 VBA 裁剪器呢？底下教人人三种要领。

▋01通过选项卡大开

单击【迷惑用具】选项卡，找到【Visual Basic】敕令，单击即可过问 VBA 裁剪器，如下图所示：

淌若菜单栏里莫得【迷惑用具】选项卡，按照这个形状把它调出来——点击【文献】-【选项】，然后点击【自界说功能区】，在「主选项卡」中勾选「迷惑用具」，点击【确信】即可。

▋02通过右键责任表标签稽查代码大开

右键单击随便一个责任表标签，在弹出的菜单中单击【稽查代码】，即可过问 VBA 裁剪器，如下图所示：

▋03通过快捷键大开

在职意一个责任表中，使用快捷键【Alt+F11】，即可过问 VBA 裁剪器，不外有些条记本可能需要再同期按下【Fn】键才不错。

若何运行 VBA 代码

我们大大皆的 VBA 代码皆是存放在 VBA 裁剪器的模块中，那模块又是若何添加的呢？

在左侧的工程资源管理器中，右键单击【Thisworkbook】或者上头的随便一个责任表的标签均可弹出一个菜单，在菜单中单击【插入】，在弹出的下一级菜单中选拔【模块】，单击即可插入 1 个模块，如下图所示：

我们知说念存放 VBA 代码的地点了，那若何运行 VBA 代码呢？

单击【迷惑用具】选项卡，找到【宏】敕令，单击即可，如下图所示：

在弹出的【宏】对话框中不错看到我们照旧写好的 VBA 宏的称号，单击选中要实践的宏称号，单击【实践】即可实践 VBA 代码了，如下图所示：

金瓶梅在线播放

常用的 VBA 代码

信赖当今你照旧掌执了 VBA 代码筹议的基础操作，那接下来我就给人人贴上几个常用的浅易 VBA 代码~

只好短短几行，但却能帮我们直爽不少技术！

批量保护/取消保护责任表

偶然候为了退避别东说念主误操作，需要给责任表加保护密码，关联词责任表数目太多，一个个地诞生保护亦然个膂力活儿，这个时候淌若用了底下的 VBA 代码就便捷快捷多了！

Sub 保护责任表()Dim i As LongFor i = 1 To Sheets.CountSheets(i).Protect "123"NextEnd Sub

给人人约莫解说下代码——

❶ 第一滑是界说宏的称号，吉吉影音比如这个宏的称号叫作念「保护责任表」，临了一滑是法令，这两行是固定用法。 ❷ 第二行 Dim 是在界说变量的类型，这里是界说变量 i 为长整数型。 ❸ 第三行和第五行是 For Next 轮回的用法，Sheets.Count 是申斥任表的个数，For i = 1 To Sheets.Count 示意从第一个表轮回到临了一个表，皆实践 For 与 Next 中间的代码。 ❹ 第四行是主要的功能代码，Sheets(i).Protect 通过变量 i 的变化，对一一责任表进行保护，后头的字符串 123 是密码，密码不错把柄需要我方修改。

那取消保护责任表的代码又该若何写呢？

其实，宏称号改一下，再修改第四行的代码就不错了！修改后的代码如下：

Sub 取消保护责任表()Dim i As LongFor i = 1 To Sheets.CountSheets(i).Unprotect "123"NextEnd Sub

批量重定名责任表

偶然我们确立了好多责任表，责任表称号是 Sheet1、Sheet2 这种，这让我们稽查数据时很难分清，需要再行定名责任表。一个一个责任表来，臆度又要极力瞬息了！

比如我们要把 Sheet2 责任表及后头总计的责任表称号皆修改为每个责任表中 C2 单位格的值，也等于将责任表称号修改为部门称号，便捷稽查每个部门的情况。

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

Sub 修改责任表称号()Dim i As LongFor i = 2 To Sheets.CountSheets(i).Name = Sheets(i).Range("C2")NextEnd Sub

给人人约莫解说下代码——

❶ 第一滑、第二行、第五行登第六行，与前边代码功能一致，在此不再赘述。 ❷ 第三行仍为轮回，仅仅改为从第二个责任表运行轮回，是以使用了 For i = 2 运行，直到临了一个责任表。 ❸ 第四行是关节的修改责任表称号的代码，Sheets(i).Name 代表这个责任表的称号，等于这个责任表中 C2 单位格的值。