小白都能学会的VBA代码,一次性教给你(vba代码编程800例)

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

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

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

小白都能学会的VBA代码,一次性教给你(vba代码编程800例)

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

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

– 1 –

认识 VBA 编辑器

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

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

小白都能学会的VBA代码,一次性教给你(vba代码编程800例)

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

方法一

通过选项卡打开

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

小白都能学会的VBA代码,一次性教给你(vba代码编程800例)

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

小白都能学会的VBA代码,一次性教给你(vba代码编程800例)

方法二

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

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

小白都能学会的VBA代码,一次性教给你(vba代码编程800例)

方法三

通过快捷键打开

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

– 2 –

如何运行 VBA 代码

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

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

小白都能学会的VBA代码,一次性教给你(vba代码编程800例)

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

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

小白都能学会的VBA代码,一次性教给你(vba代码编程800例)

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

小白都能学会的VBA代码,一次性教给你(vba代码编程800例)

– 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代码编程800例)

我们的 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代码,一次性教给你(vba代码编程800例)

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

小白都能学会的VBA代码,一次性教给你(vba代码编程800例)

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

打开有宏代码的工作簿

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

小白都能学会的VBA代码,一次性教给你(vba代码编程800例)

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

小白都能学会的VBA代码,一次性教给你(vba代码编程800例)

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

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

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

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容, 请发送邮件至 举报,一经查实,本站将立刻删除。

(5)
上一篇 2023年3月16日 上午8:42
下一篇 2023年3月16日 上午8:52

相关推荐

  • 百度信息系统项目管理师

    百度信息系统项目管理师: 让百度成为全球领先的信息处理能力 随着信息技术的不断发展,百度已经成为了中国最具有影响力的互联网公司之一。作为一家拥有数亿用户,每天处理数十亿网页数据的公…

    科研百科 2025年1月28日
    0
  • 加速科研项目转化的意义

    加速科研项目转化的意义 科研项目的转化是指将科研项目的成果转化为实际应用,并将其转化为商业或技术价值的过程。这是一个漫长而复杂的过程,需要研究人员、企业家和技术人员之间的协作和合作…

    科研百科 2025年4月1日
    0
  • 项目进度管理用什么软件

    项目进度管理是项目管理中非常重要的一环,能够帮助团队更好地规划项目,控制进度,确保项目按时完成。现在,有许多软件可以用来进行项目进度管理,其中一些比较流行的软件包括: 1. Pro…

    科研百科 2024年9月4日
    23
  • 广东海洋大学船舶与海运学院:创新打造党建品牌 助力海洋强国建设

    广东海洋大学船舶与海运学院始终牢记“为党育人,为国育才”的初心使命,依托“党建工作标杆院系”平台,深入实施学子“筑梦远航”计划,强化课程思政和“双带头人”教师党支部书记工作室建设,…

    科研百科 2024年6月28日
    62
  • 棉花所和西部中心承担新疆第三次全国农作物种质资源普查与收集任务

      7月2日,新疆维吾尔自治区第三次全国农作物种质资源普查与收集行动启动。中国农业科学院棉花研究所、西部农业研究中心等承担了昌吉回族自治州、巴音郭楞蒙古自治州、塔城地区、阿勒泰地区…

    科研百科 2022年5月13日
    345
  • 项目管理软件成都

    成都,这座位于中国西南地区的城市,一直以来都是项目管理领域的重要参与者。在这里,有许多公司和组织都在使用各种项目管理软件来提高工作效率和团队协作。今天,我将介绍一款成都本土的项目管…

    科研百科 2024年7月23日
    46
  • 基于SSM的高校运动会管理网站-计算机毕业设计源码(基于ssm的毕业设计管理系统)

    摘 要 随着计算机信息技术的迅猛发展,互联网技术大规模应用到各行各业,传统的管理系统也逐渐精细化。高校作为教书育人的场所,各种管理也更应该智能化,特别是计算机信息专业更是最早接触信…

    2022年9月5日
    284
  • “功能食品技术研究与产品开发”项目通过验收

      日前,“十五”国际科技合作计划项目“功能食品技术研究与产品开发”在北京通过了科技部组织的专家验收。该项目是由我院农产品加工研究所副所长王强研究员主持、国家乳业工程技术研究中心和…

    科研百科 2022年5月19日
    295
  • 20220724项目管理周贴士

    建立重大问题预警机制… 项目监控要做好,数据为王 项目需要建立重大问题预警机制和突发事件应急处理机制。把先验和后验理论结合起来,先验预测是否出现风险,后验事后再回来看风险是否真的出…

    2022年8月22日
    274
  • 搞好科研项目的重要性

    搞好科研项目的重要性 科研项目是推动科学技术发展的重要力量,是实现国家经济社会发展的重要保障。搞好科研项目对于提高自主创新能力、推动科学技术进步、保障国家经济社会持续发展具有重要意…

    科研百科 2025年4月29日
    1