vba编程(几句小白都会的 VBA 代码)

接昨天的自定义函数,今天就教大家几个常用的 VBA 代码!相信不少小伙伴一听到 VBA,立马纷纷后退,将它视作洪水猛兽。其实,VBA 代码并不可怕,只是因为我们接触得不多不了解...

接昨天的自定义函数,今天就教大家几个常用的 VBA 代码!

相信不少小伙伴一听到 VBA,立马纷纷后退,将它视作洪水猛兽。

其实,VBA 代码并不可怕,只是因为我们接触得不多不了解,又总听到厉害的人说起它,所以才觉得它又神秘又可怕。

几句小白都会的 VBA 代码,让工作效率提升百倍!(附常用代码)

而今天,小 E 就要来揭开 VBA 代码的神秘面纱,并且介绍几个常用的简单代码,能够让大家非常方便地运用到工作中去,大大提升工作效率。

那首先就跟着小 E 了解下相关操作的基础常识吧~

- 1 -

认识 VBA 编辑器

大家都知道 Excel 中数据存放在单元格里,可你们知道 VBA 代码要存放在什么地方?

答案就是 VBA 编辑器,如下图所示:

几句小白都会的 VBA 代码,让工作效率提升百倍!(附常用代码)

那要如何打开 VBA 编辑器呢?下面教大家三种方法。

方法一

通过选项卡打开

单击【开发工具】选项卡,找到【Visual Basic】命令,单击即可进入 VBA 编辑器,如下图所示:

几句小白都会的 VBA 代码,让工作效率提升百倍!(附常用代码)

如果菜单栏里没有【开发工具】选项卡,按照这个步骤把它调出来——点击【文件】-【选项】,然后点击【自定义功能区】,在「主选项卡」中勾选「开发工具」,点击【确定】即可。

几句小白都会的 VBA 代码,让工作效率提升百倍!(附常用代码)

方法二

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

右键单击任意一个工作表标签,在弹出的菜单中单击【查看代码】,即可进入 VBA 编辑器,如下图所示:

几句小白都会的 VBA 代码,让工作效率提升百倍!(附常用代码)

方法三

通过快捷键打开

在任意一个工作表中,使用快捷键【Alt+F11】,即可进入 VBA 编辑器,不过有些笔记本可能需要再同时按下【Fn】键才可以。

- 2 -

如何运行 VBA 代码

我们大多数的 VBA 代码都是存放在 VBA 编辑器的模块中,那模块又是如何添加的呢?

在左侧的工程资源管理器中,右键单击【Thisworkbook】或者上面的任意一个工作表的标签均可弹出一个菜单,在菜单中单击【插入】,在弹出的下一级菜单中选择【模块】,单击即可插入 1 个模块,如下图所示:

几句小白都会的 VBA 代码,让工作效率提升百倍!(附常用代码)

我们知道存放 VBA 代码的地方了,那如何运行 VBA 代码呢?

单击【开发工具】选项卡,找到【宏】命令,单击即可,如下图所示:

几句小白都会的 VBA 代码,让工作效率提升百倍!(附常用代码)

在弹出的【宏】对话框中可以看到我们已经写好的 VBA 宏的名称,单击选中要执行的宏名称,单击【执行】即可执行 VBA 代码了,如下图所示:

几句小白都会的 VBA 代码,让工作效率提升百倍!(附常用代码)

- 3 -

常用的 VBA 代码

相信现在你已经掌握了 VBA 代码相关的基础操作,那接下来小 E 就给大家贴上几个常用的简单 VBA 代码~

只有短短几行,但却能帮我们节约不少时间!

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

有时候为了防止别人误操作,需要给工作表加保护密码,但是工作表数量太多,一个个地设置保护也是个体力活儿,这个时候如果用了下面的 VBA 代码就方便快捷多了!

Sub 保护工作表()Dim i As LongFor i = 1 To Sheets.Count Sheets(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.Count Sheets(i).Unprotect "123"NextEnd Sub

批量重命名工作表

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

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

几句小白都会的 VBA 代码,让工作效率提升百倍!(附常用代码)

我们的 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」,添加代码后,文件在保存时会有下图所示的提示:

几句小白都会的 VBA 代码,让工作效率提升百倍!(附常用代码)

此时要点击【否】,保存文件格式的时候选择「Excel 启用宏的工作簿(*.xlsm)」,然后单击【保存】即可。

几句小白都会的 VBA 代码,让工作效率提升百倍!(附常用代码)

如果选择了【是】,文件关闭后再打开时将丢失 VBA 代码。

❷ 打开有宏代码的工作簿

如下图所示,当打开带有宏代码的工作簿时,会有安全警告(宏已被禁用),这时需要单击【启用内容】来启用宏,才可以运行相关的宏代码。

几句小白都会的 VBA 代码,让工作效率提升百倍!(附常用代码)

如果不启用宏,代码将不能运行,点击运行相关代码时会有如下图所示的提示:

几句小白都会的 VBA 代码,让工作效率提升百倍!(附常用代码)

好了,VBA 从入门到几个常用的简单代码都教给你了,你都学会了吗?

当然小 E 知道,这些只是九牛一毛,但如果你有兴趣的话,可以在掌握基础之后进行探索,或许会发现一座不一样的新世界!

而后面小 E 也会陆续为大家带来运用 VBA 解决工作问题的文章,想看的小伙伴就在文末点个「赞」吧!

本文来自作者[慕玉]投稿,不代表酷展号立场,如若转载,请注明出处:https://iosku.vip/shenghe/2025sop04-11818.html

(15)

文章推荐

  • 服装厂宣传语广告词

    网上科普有关“服装厂宣传语广告词”话题很是火热,小编也是针对服装厂宣传语广告词寻找了一些与之相关的一些信息进行分析,如果能碰巧解决你现在面临的问题,希望能够帮助到您。服装市场营销方法一、了解公司年度市。了解公司年度市场开发计划,主要应了解以下方面的内容:增加店铺的数量;扩大单店面积的多少;提升单店增

    2025年01月27日
    767
  • 全民所有制企业改制流程

    网上科普有关“全民所有制企业改制流程”话题很是火热,小编也是针对全民所有制企业改制流程寻找了一些与之相关的一些信息进行分析,如果能碰巧解决你现在面临的问题,希望能够帮助到您。法律分析:明确资产边界、剥离资产范围、三类人员计提费用并进行资产评估;在财务审计、资产评估的基础上形成以改制方案为核心的改制文

    2025年02月04日
    775
  • 四川血战到底是什么意思?

    网上有关“四川血战到底是什么意思?”话题很是火热,小编也是针对四川血战到底是什么意思?寻找了一些与之相关的一些信息进行分析,如果能碰巧解决你现在面临的问题,希望能够帮助到您。门清就是不碰(吃),不明杠,可以暗杠。可以炮胡,可以自摸(门清+自摸=不求人)。将牌任意的、但是必须要是一对的。在四川麻将中必

    2025年02月16日
    707
  • 基民傻眼了!刚有点行情,机构就玩高抛,2月逾千亿资金借道ETF落袋为安,但这些题材正被疯狂扫货

      每经记者叶峰    每经编辑肖芮冬      2月规模指数相关ETF普遍出现资金净流出,有22只ETF净流出资金超10亿元。整体来看,2月份股票型和跨境型ETF合计净流出资金约1200亿元。  行业主题上看,机器人、人工智能相关ETF被资金看好,而半导体、芯片相关ETF被资金抛售。  

    2025年03月01日
    23
  • 上海封到什么时候上海要封到什么时候

    大家好,今天小编关注到一个比较有意思的话题,就是关于上海封到什么时候的问题,于是小编就整理了2个相关介绍上海封到什么时候的解答,让我们一起看看吧。上海封海时间?上海地区封海时间是5月到8月2023休渔新政策具体规定如下: 1.休渔海域北纬35度至26度30分的黄海和东海海域。2.休渔时间每

    2025年03月23日
    27
  • 四川新增本土确诊127例四川新增本土确诊127例_第1集

    大家好,今天小编关注到一个比较有意思的话题,就是关于四川新增本土确诊127例的问题,于是小编就整理了1个相关介绍四川新增本土确诊127例的解答,让我们一起看看吧。四川新增无症状者,5天内辗转4省5地,不可思议,影响大吗?据5月24日四川省卫健委的疫情通报信息,在5月23日在四川巴中市平昌县出现一例无

    2025年03月24日
    26
  • 新冠病毒奥密克戎变异毒株新冠病毒奥密克戎变异毒株症状

    大家好,今天小编关注到一个比较有意思的话题,就是关于新冠病毒奥密克戎变异毒株的问题,于是小编就整理了2个相关介绍新冠病毒奥密克戎变异毒株的解答,让我们一起看看吧。新冠病毒变异多次,现在是奥密克戎,原始毒株哪里去了?消失了?新冠病毒在人群中传播时,会不断发生变异。这些变异可能会导致病毒在人体内的潜伏期

    2025年03月26日
    26
  • 猫咪路边做仰卧起坐猫咪做仰卧起坐有坏处吗

    大家好,今天小编关注到一个比较有意思的话题,就是关于猫咪路边做仰卧起坐的问题,于是小编就整理了3个相关介绍猫咪路边做仰卧起坐的解答,让我们一起看看吧。为什么猫咪躺着就喜欢咬人?第一,有些猫咪之前可能在外面流浪,野外流浪的生活充满了艰辛,对人的警惕性也比较高,攻击力也比较强。在被收养了之后,仍然比较胆

    2025年04月02日
    19
  • ipad能打电话吗(如何通过 iPad 拨打和接听电话)

    允许在iPad上进行来自iPhone的通话·在iPhone上,前往“设置”>“蜂窝网络”。·如果iPhone支持双SIM卡功能,请选取一个号码(在“蜂窝号码”下方)。·轻点“在其他设备上通话”,打开“允许‘在其他设备上通话’”,然后选取iPad及其他任

    2025年04月07日
    17
  • 中国移动动感地带套餐(详解8元移动保号套餐办理流程及省钱省流量攻略)

    本内容来源于@什么值得买APP,观点仅代表作者本人|作者:每日科技洞察移动8元保号套餐是一种适用于不常用电话但仍需保留号码的用户的优惠套餐。本文将详尽阐述如何办理该套餐,帮助用户省钱省流量。很多人选择8元保号套餐的主要原因是其低廉的费用。为了成功办理该套餐,首先需要满足一些基本条件:号码需处于正常

    2025年04月09日
    20

发表回复

本站作者后才能评论

评论列表(4条)

  • 慕玉
    慕玉 2025年04月26日

    我是酷展号的签约作者“慕玉”!

  • 慕玉
    慕玉 2025年04月26日

    希望本篇文章《vba编程(几句小白都会的 VBA 代码)》能对你有所帮助!

  • 慕玉
    慕玉 2025年04月26日

    本站[酷展号]内容主要涵盖:国足,欧洲杯,世界杯,篮球,欧冠,亚冠,英超,足球,综合体育

  • 慕玉
    慕玉 2025年04月26日

    本文概览:接昨天的自定义函数,今天就教大家几个常用的 VBA 代码!相信不少小伙伴一听到 VBA,立马纷纷后退,将它视作洪水猛兽。其实,VBA 代码并不可怕,只是因为我们接触得不多不了解...

    联系我们

    邮件:酷展号@sina.com

    工作时间:周一至周五,9:30-18:30,节假日休息

    关注我们