讯享网

 <p id="34SPKRN8">点击蓝字【秋叶 Excel】</p><p id="34SPKRN9">发送【6】</p><p id="34SPKRNA">免费领 1000+篇 Excel 精选教程！</p><p class="f_center"><img src="https://nimg.ws.126.net/?url=http%3A%2F%2Fdingyue.ws.126.net%2F2024%2F1101%2F9a99ace1j00sm960v001od200u0008xg00u0008x.jpg&thumbnail=660x&quality=80&type=jpg"/><br/></p><p id="34SPKRND">本文作者：wayy</p><p id="34SPKRNE">本文编辑：卫星酱</p><p id="34SPKRNH">文末送 VBA 常用代码，记得看到最后哦~<br/></p><p id="34SPKRNJ">相信不少小伙伴一听到 VBA，立马纷纷后退，将它视作洪水猛兽。<br/></p><p id="34SPKRNL">其实，VBA 代码并不可怕，只是因为我们接触得不多不了解，又总听到厉害的人说起它，所以才觉得它又神秘又可怕。</p><p class="f_center"><img src="https://nimg.ws.126.net/?url=http%3A%2F%2Fdingyue.ws.126.net%2F2024%2F1101%2F1d032680j00sm960w000ed2009l009og009l009o.jpg&thumbnail=660x&quality=80&type=jpg"/><br/></p><p id="34SPKRNP">而今天，咱们就来揭开 VBA 代码的神秘面纱，并且介绍几个常用的简单代码，能够让大家非常方便地运用到工作中去，大大提升工作效率。</p><p id="34SPKRNR">那首先就跟着我了解下相关操作的基础常识吧~</p><p class="f_center"><img src="https://nimg.ws.126.net/?url=http%3A%2F%2Fdingyue.ws.126.net%2F2024%2F1101%2F6fbb4c19j00sm960w0005d200ku007cg00ku007c.jpg&thumbnail=660x&quality=80&type=jpg"/><br/></p><p id="34SPKRNT"><strong>认识 VBA 编辑器</strong></p><p id="34SPKRO0">大家都知道 Excel 中数据存放在单元格里，可你们知道 VBA 代码要存放在什么地方？</p><p id="34SPKRO2">答案就是 VBA 编辑器，如下图所示：</p><p class="f_center"><img src="https://nimg.ws.126.net/?url=http%3A%2F%2Fdingyue.ws.126.net%2F2024%2F1101%2F11421a8fj00sm960y000rd200h60079g00h60079.jpg&thumbnail=660x&quality=80&type=jpg"/><br/></p><p id="34SPKRO6">那要如何打开 VBA 编辑器呢？下面教大家三种方法。</p><p id="34SPKRO8"><strong>▋</strong><strong><strong>01</strong></strong><strong>通过选项卡打开</strong></p><p id="34SPKROA">单击【开发工具】选项卡，找到【Visual Basic】命令，单击即可进入 VBA 编辑器，如下图所示：</p><p class="f_center"><img src="https://nimg.ws.126.net/?url=http%3A%2F%2Fdingyue.ws.126.net%2F2024%2F1101%2Fj00sm960y000nd200fa004hg00fa004h.jpg&thumbnail=660x&quality=80&type=jpg"/><br/></p><p id="34SPKROE">如果菜单栏里没有【开发工具】选项卡，按照这个步骤把它调出来——点击【文件】-【选项】，然后点击【自定义功能区】，在「主选项卡」中勾选「开发工具」，点击【确定】即可。</p><p class="f_center"><img src="https://nimg.ws.126.net/?url=http%3A%2F%2Fdingyue.ws.126.net%2F2024%2F1101%2Faj00sm960y001pd200n800iog00n800io.jpg&thumbnail=660x&quality=80&type=jpg"/><br/></p><p id="34SPKROI"><strong>▋</strong><strong><strong>02</strong></strong><strong>通过右键工作表标签查看代码打开</strong></p><p id="34SPKROK">右键单击任意一个工作表标签，在弹出的菜单中单击【查看代码】，即可进入 VBA 编辑器，如下图所示：</p><p class="f_center"><img src="https://nimg.ws.126.net/?url=http%3A%2F%2Fdingyue.ws.126.net%2F2024%2F1101%2F92812eeaj00sm960y000dd2006f007ag006f007a.jpg&thumbnail=660x&quality=80&type=jpg"/><br/></p><p id="34SPKROO">▋<strong><strong><strong>03</strong></strong></strong><strong>通过快捷键打开</strong></p><p id="34SPKROQ">在任意一个工作表中，使用快捷键【Alt+F11】，即可进入 VBA 编辑器，不过有些笔记本可能需要再同时按下【Fn】键才可以。</p><p class="f_center"><img src="https://nimg.ws.126.net/?url=http%3A%2F%2Fdingyue.ws.126.net%2F2024%2F1101%2Fa754e700j00sm960z0005d200ku007cg00ku007c.jpg&thumbnail=660x&quality=80&type=jpg"/><br/></p><p id="34SPKROS"><strong>如何运行 VBA 代码</strong></p><p id="34SPKROV">我们大多数的 VBA 代码都是存放在 VBA 编辑器的模块中，那模块又是如何添加的呢？</p><p id="34SPKRP1">在左侧的工程资源管理器中，右键单击【Thisworkbook】或者上面的任意一个工作表的标签均可弹出一个菜单，在菜单中单击【插入】，在弹出的下一级菜单中选择【模块】，单击即可插入 1 个模块，如下图所示：</p><p class="f_center"><img src="https://nimg.ws.126.net/?url=http%3A%2F%2Fdingyue.ws.126.net%2F2024%2F1101%2F68dd8841j00sm960z0013d200cm00alg00cm00al.jpg&thumbnail=660x&quality=80&type=jpg"/><br/></p><p id="34SPKRP5">我们知道存放 VBA 代码的地方了，那如何运行 VBA 代码呢？</p><p id="34SPKRP7">单击【开发工具】选项卡，找到【宏】命令，单击即可，如下图所示：</p><p class="f_center"><img src="https://nimg.ws.126.net/?url=http%3A%2F%2Fdingyue.ws.126.net%2F2024%2F1101%2Fbd4afcffj00sm960z000nd200f8004ig00f8004i.jpg&thumbnail=660x&quality=80&type=jpg"/><br/></p><p id="34SPKRPB">在弹出的【宏】对话框中可以看到我们已经写好的 VBA 宏的名称，单击选中要执行的宏名称，单击【执行】即可执行 VBA 代码了，如下图所示：</p><p class="f_center"><img src="https://nimg.ws.126.net/?url=http%3A%2F%2Fdingyue.ws.126.net%2F2024%2F1101%2F5c72ca3aj00smhd200ag00cvg00ag00cv.jpg&thumbnail=660x&quality=80&type=jpg"/><br/></p><p class="f_center"><img src="https://nimg.ws.126.net/?url=http%3A%2F%2Fdingyue.ws.126.net%2F2024%2F1101%2Fb0cc2e1aj00smd200ku007cg00ku007c.jpg&thumbnail=660x&quality=80&type=jpg"/><br/></p><p id="34SPKRPE"><strong>常用的 VBA 代码</strong></p><p id="34SPKRPH">相信现在你已经掌握了 VBA 代码相关的基础操作，那接下来我就给大家贴上几个常用的简单 VBA 代码~</p><p id="34SPKRPJ">只有短短几行，但却能帮我们节约不少时间！</p><p id="34SPKRPL"><strong>批量保护/取消保护工作表</strong></p><p id="34SPKRPN">有时候为了防止别人误操作，需要给工作表加保护密码，但是工作表数量太多，一个个地设置保护也是个体力活儿，这个时候如果用了下面的 VBA 代码就方便快捷多了！</p><p id="34SPKRPR">Sub 保护工作表()<br/>Dim i As Long<br/>For i = 1 To Sheets.Count<br/>Sheets(i).Protect "123"<br/>Next<br/>End Sub</p><p id="34SPKRPV">给大家大致解释下代码——</p><p><blockquote id="34SPKRSS">❶ 第一行是定义宏的名称，比如这个宏的名称叫做「保护工作表」，最后一行是结束，这两行是固定用法。 ❷ 第二行 Dim 是在定义变量的类型，这里是定义变量 i 为长整数型。 ❸ 第三行和第五行是 For Next 循环的用法，Sheets.Count 是指工作表的个数，For i = 1 To Sheets.Count 表示从第一个表循环到最后一个表，都执行 For 与 Next 中间的代码。 ❹ 第四行是主要的功能代码，Sheets(i).Protect 通过变量 i 的变化，对逐个工作表进行保护，后面的字符串 123 是密码，密码可以根据需要自己修改。</blockquote></p><p id="34SPKRQ2">那<strong>取消保护工作表</strong>的代码又该如何写呢？</p><p id="34SPKRQ4">其实，宏名称改一下，再修改第四行的代码就可以了！修改后的代码如下：</p><p id="34SPKRQ8">Sub 取消保护工作表()<br/>Dim i As Long<br/>For i = 1 To Sheets.Count<br/>Sheets(i).Unprotect "123"<br/>Next<br/>End Sub</p><p id="34SPKRQC"><strong>批量重命名工作表</strong></p><p id="34SPKRQE">有时我们建立了很多工作表，工作表名称是 Sheet1、Sheet2 这种，这让我们查看数据时很难分清，需要重新命名工作表。一个一个工作表来，估计又要忙活一会儿了！</p><p id="34SPKRQG">比如我们要把 Sheet2 工作表及后面所有的工作表名称都修改为每个工作表中 C2 单元格的值，也就是将工作表名称修改为部门名称，方便查看每个部门的情况。</p><p class="f_center"><img src="https://nimg.ws.126.net/?url=http%3A%2F%2Fdingyue.ws.126.net%2F2024%2F1101%2F2a425e44j00smtd200aw009hg00a7008v.jpg&thumbnail=660x&quality=80&type=jpg"/><br/></p><p id="34SPKRQK">我们的 VBA 代码又派上用场了：<br/></p><p id="34SPKRQO">Sub 修改工作表名称()<br/>Dim i As Long<br/>For i = 2 To Sheets.Count<br/>Sheets(i).Name = Sheets(i).Range("C2")<br/>Next<br/>End Sub</p><p id="34SPKRQS">给大家大致解释下代码——</p><p><blockquote id="34SPKRST">❶ 第一行、第二行、第五行及第六行，与前面代码功能一致，在此不再赘述。 ❷ 第三行仍为循环，只是改为从第二个工作表开始循环，所以使用了 For i = 2 开始，直到最后一个工作表。 ❸ 第四行是关键的修改工作表名称的代码，Sheets(i).Name 代表这个工作表的名称，等于这个工作表中 C2 单元格的值。</blockquote></p><p class="f_center"><img src="https://nimg.ws.126.net/?url=http%3A%2F%2Fdingyue.ws.126.net%2F2024%2F1101%2Fdb6a7350j00smd200ku007cg00ku007c.jpg&thumbnail=660x&quality=80&type=jpg"/><br/></p><p id="34SPKRQV"><strong>小心这些「坑」</strong></p><p id="34SPKRR2">❶<strong>保存时注意文件类型</strong></p><p id="34SPKRR4">如果你的文件扩展名为「.xlsx」，添加代码后，文件在保存时会有下图所示的提示：</p><p class="f_center"><img src="https://nimg.ws.126.net/?url=http%3A%2F%2Fdingyue.ws.126.net%2F2024%2F1101%2F16fd91d8j00smfd200h40063g00h40063.jpg&thumbnail=660x&quality=80&type=jpg"/><br/></p><p id="34SPKRR8">此时要点击【否】，保存文件格式的时候选择「Excel 启用宏的工作簿(*.xlsm)」，然后单击【保存】即可。</p><p class="f_center"><img src="https://nimg.ws.126.net/?url=http%3A%2F%2Fdingyue.ws.126.net%2F2024%2F1101%2F04833de3j00smd200il00dxg00il00dx.jpg&thumbnail=660x&quality=80&type=jpg"/><br/></p><p id="34SPKRRC">如果选择了【是】，文件关闭后再打开时将丢失 VBA 代码。</p><p id="34SPKRRE">❷<strong>打开有宏代码的工作簿</strong></p><p id="34SPKRRG">如下图所示，当打开带有宏代码的工作簿时，会有安全警告（宏已被禁用），这时需要单击【启用内容】来启用宏，才可以运行相关的宏代码。</p><p class="f_center"><img src="https://nimg.ws.126.net/?url=http%3A%2F%2Fdingyue.ws.126.net%2F2024%2F1101%2Fe3bb7effj00smld200gg005ng00gg005n.jpg&thumbnail=660x&quality=80&type=jpg"/><br/></p><p id="34SPKRRK">如果不启用宏，代码将不能运行，点击运行相关代码时会有如下图所示的提示：</p><p class="f_center"><img src="https://nimg.ws.126.net/?url=http%3A%2F%2Fdingyue.ws.126.net%2F2024%2F1101%2F8a047b2dp00smd200l4003og00l4003o.png&thumbnail=660x&quality=80&type=jpg"/><br/></p><p class="f_center"><img src="https://nimg.ws.126.net/?url=http%3A%2F%2Fdingyue.ws.126.net%2F2024%2F1101%2F2d26d6f4j00smd200ku007cg00ku007c.jpg&thumbnail=660x&quality=80&type=jpg"/><br/></p><p id="34SPKRRR">好了，VBA 从入门到几个常用的简单代码都教给你了，你都学会了吗？</p><p id="34SPKRRT">当然，这些只是九牛一毛，但如果你有兴趣的话，可以在掌握基础之后进行探索，或许会发现一座不一样的新世界！</p><p id="34SPKRRV">掌握一点 VBA，工作效率又能提升一个台阶~<br/></p><p id="34SPKRS1">如果你想学习更多 Excel 高效办公技巧，推荐你参加秋叶<strong>《3 天 Excel 集训营》</strong>，为工作提效打好基础！</p><p id="34SPKRS2"><strong>3 天 Excel 集训营</strong></p><p id="34SPKRS3"><strong>多种技巧助你摆脱无效加班</strong></p><p id="34SPKRS4"><strong>名师教学帮你开拓思路</strong></p><p id="34SPKRS6"><strong>秋叶 Excel 读者专享</strong></p><p id="34SPKRS7"><strong>官网价</strong><strong>99 元</strong></p><p id="34SPKRS8"><strong>现在</strong><strong>免费报名</strong></p><p id="34SPKRS9"><strong>长按下方图片扫码加入</strong></p><p id="34SPKRSD">现在加入，随课赠送丰厚资料！</p><p class="f_center"><img src="https://nimg.ws.126.net/?url=http%3A%2F%2Fdingyue.ws.126.net%2F2024%2F1101%2Fa5j00smsd200u0009ng00u0009n.jpg&thumbnail=660x&quality=80&type=jpg"/><br/></p><p id="34SPKRSM">发送【VBA】</p><p id="34SPKRSN">免费获取常用 VBA 代码！</p><p class="f_center"><img src="http://dingyue.ws.126.net/2024/1101/adb18699g00smd200hs005kg00hs005k.gif"/><br/></p>