百度360必应搜狗淘宝本站头条
当前位置:网站首页 > 技术文章 > 正文

Excel常用技能分享与探讨(5-宏与VBA简介③-VBA)

zhezhongyun 2025-03-26 19:06 48 浏览

注:

1.以下所有代码均可直接贴到你自己的工作簿查看,但要注意,经代码修改的单元格格式/内容等无法撤回,请在关闭工作簿时仔细思考是否需要保存。

2.代码中所有的符号均只能用英文格式。

一、认识VBA编辑器:Excel的"控制中心"

1.1 打开秘密基地
按下Alt+F11(记住这个神奇组合键),你会看到新世界——这里就是指挥Excel的"驾驶舱"。

1.2 核心区域解析

  • 工程资源管理器(左上):查看所有目前打开或加载的工作表和工作簿,像文件柜
  • 属性窗口(左下):调整选中对象的属性,像调节旋钮
  • 代码窗口(右侧):编写指令的主战场,像指挥官的话筒
  • 工具栏(最上方):调整窗口,代码等工具

新手任务:双击"Sheet1"打开代码窗口,输入以下代码并运行:

Sub 我的第一个程序()
    MsgBox "Hello world!"
    'MsgBox "你好," & Application.UserName
End Sub


二、VBA基础语法:像说话一样编程

2.1 三句万能公式

句式结构

生活化案例

VBA代码示例

做动作

在A1单元格写"销售额"

Range("A1").Value = "销售额"

如果...就...

超过100标红

If Range("B2")>100 Then Range("B2").Font.Color = vbRed

重复做N次

自动填充10行序号

For i = 1 To 10: Cells(i,1)=i: Next i

2.2 变量:数据的临时储物柜

Sub 计算折扣价()
    Dim 原价 As Currency   ' 声明储物柜
    原价 = Range("B2").Value  ' 存放数据
    Range("C2").Value = 原价 * 0.9  ' 取出使用
End Sub

三、五个必学实用技巧

3.1 自动填充本月日期

Sub 填充日期()
    Range("A1").Value = Date  ' 输入今天日期
    Range("A2").Formula = "=A1+1"  ' 下一天公式
    Range("A2").AutoFill Destination:=Range("A2:A30") 
End Sub

3.2 智能标记异常值

Sub 标记异常()
    For Each cell In Range("B2:B100")
        If cell.Value > 10000 Then
            cell.Interior.Color = RGB(255,200,200) ' 浅红色背景
        End If
    Next cell
End Sub

3.3 一键生成数据透视表

Sub 创建透视表()
    ActiveWorkbook.PivotCaches.Create( _
        SourceType:=xlDatabase, _
        SourceData:=Range("A1:D100")).CreatePivotTable _
        TableDestination:=Range("F1"))
End Sub

四、安全操作四原则

4.1 防误删机制
在所有删除操作前添加确认框:

下面代码的目的是,在你运行删除操作前弹出对话框提醒你是否要删除,会有两个选项,如果你点击了No,则不执行删除操作,如果点击了Yes,则继续删除操作。

If MsgBox("确定要清空数据吗?", vbYesNo) = vbNo Then Exit Sub

4.2 三步保护法

  1. 运行前按Ctrl+S保存
  2. 修改重要代码前复制到记事本备份
  3. 在代码开头添加On Error Resume Next防崩溃

4.3 危险代码黑名单

' 绝对不要随便尝试!
ActiveSheet.UsedRange.Delete  ' 清空所有数据
ThisWorkbook.Close SaveChanges:=False  ' 不保存关闭
Kill "C:\*.*"  ' 危险文件操作

五、常见问题诊断表

症状

可能原因

解决方案

运行后没反应

忘记保存为.xlsm格式

另存为"启用宏的工作簿"

提示"对象无效"

工作表名称拼写错误

检查代码中引用的工作表名是否实际存在

代码突然变黄

语法错误(如缺引号)

检查标黄行的符号是否成对

只能运行一次

未重置变量

在代码开头添加i = 0等初始化语句



下期详细拆分讲解,变量/函数等的具体用法!


相关推荐

3 分钟!AI 从零开发五子棋全过程曝光,网友:这效率我服了

<!DOCTYPEhtml><htmllang="zh-CN"><head><metacharset="UTF-8...

一行代码实现display&quot;过渡动画&quot;原理

作者:Peter谭老师转发链接:https://mp.weixin.qq.com/s/XhwPOv62gypzq5MhhP-5vg写本文的起因上篇文章,提到如何让display出现过渡动画,却没有仔...

脑洞:琼恩·雪诺、蝙蝠侠和魔形女的灵魂宠物了解一下

AlekseiVinogradovisaRussianfreelancedigitalartistwhoshareshisskillsandtalentwith120k...

浏览器的渲染机制、重绘、重排

1、什么是重排和重绘网页生成过程:HTML被HTML解析器解析成DOM树css则被css解析器解析成CSSOM树结合DOM树和CSSOM树,生成一棵渲染树(RenderTree)生成布局(flo...

托福写作高频考题写作思路&amp;词汇丨考虫独家

科技话题与媒体话题是托福写作的常考话题很多考生对这两类话题里的专有词汇表达也许很不了解所以今天就跟随考虫托福写作老师刘云龙老师一起来学习在这些话题的写作里你可以使用哪些有用的表达。希望大家有收获!记得...

在优麒麟上使用 Electron 开发桌面应用

使用Web标准来创建桌面GUI,上手快、成本低、跨平台、自适应分辨率,这些都是Electron的优势。作者/来源:优麒麟Electron是由Github开发,用HTML、CSS和...

php手把手教你做网站(三十八)jquery 转轮盘抽奖,开盲盒

抽奖和开盲盒性质一样的都是通过ajax读取后台的随机数据。1、转轮盘本来是想直接绘图实现轮盘,但是没有找到怎么填充文字,只好把轮盘弄成了背景图,通常用于游戏抽道具,商城积分抽奖,公司年末员工抽奖点击抽...

用 CSS 整活!3D 轮播图手把手教学,快乐代码敲出来

兄弟们,今天咱来搞点好玩的——用CSS整一个3D轮播图!咱野生程序员就是要在代码里找乐子,技术和快乐咱都得要!代码是写不完的,但咱能自己敲出快乐来,走起!一、先整个容器,搭个舞台咋先写一个...

实现一个超酷的 3D 立体卡片效 #前端开发

今天我们来实现一个超酷的3D立体卡片效果。正常情况下就是一个普通的图片展示卡片,鼠标悬停的时候图片会跳出卡片,并将影子投射到背景卡片上,在视觉上有一个3D立体感。html主要分成3个部分:容器→背景层...

Vue 3 Teleport与Suspense:解决UI难题的两个&quot;隐藏大招&quot;

模态框的"层级噩梦"与Teleport的救赎"这个模态框怎么又被父容器截断了?"团队协作开发后台系统时,小张第N次遇到这个问题。多层嵌套的组件结构里,弹窗被overfl...

让交互更加生动!有意思的鼠标跟随 3D 旋转动效

今天,群友问了这样一个问题,如下所示的鼠标跟随交互效果,如何实现:简单分析一下,这个交互效果主要有两个核心:借助了CSS3D的能力元素的旋转需要和鼠标的移动相结合本文,就将讲述如何使用纯CSS...

填坑:transform元素导致zindex失效终极方法

今天遇到了使用css3动画的元素层级被放大置顶的问题,ios浏览器上没问题,安卓原生浏览器和安卓微信上有问题。使用了css3动画的元素z-index失效,兄弟元素设置多高的z-index都盖不住解决办...

诡异的层级错乱:一个被transform隐藏的CSS陷阱

周五下午三点十七分,设计部突然发来紧急截图——原本应该悬浮在顶部的导航菜单,此刻正诡异地被下方的轮播图遮挡。我盯着屏幕上错乱的层级关系,手指下意识地敲下z-index:9999,心里清楚这不过是程序...

动画篇--碎片动画

本文授权转载,作者:Sindri的小巢(简书)前言从最开始动笔动画篇的博客,至今已经过去了四个多月。这段时间回头看了看自己之前的动画文章,发现用来讲解动画的例子确实不那么的赏心悦目。于是这段时间总是想...

Nature:大洋转换断层处的拉张构造与两阶段地壳增生

Nature:大洋转换断层处的拉张构造与两阶段地壳增生转换断层是三种基本的板块边界之一,全球总长度超过48000km(Bird,2003),它们的发现为板块构造理论的建立奠定了重要的基础(Wil...