【Office技巧】宏

VBA-宏基本用法

今天就来港下office里最藏在深闺人未识的功能——宏。

一般听说过“宏”的电脑小白们，对“宏”的用法还停留在【录制】，但实际上“宏”是巨硬（Microsoft）为了解决广大欲求不满的Office用户对功能需求而整合到Office套装里的开发环境。它主要有以下三种用法：

1、定义新功能，并赋值到工具栏/表中按钮上

2、自定义新的函数

3、自动化操作（最被广泛使用的功能）

平常小白们用的【录制】就是上面的第三种用法的一部分！

要使用【宏】，最好调出“开发工具”选项卡，不然每次都在“视图”里点那么小个头的按钮、或者用【Alt+F11】打开VB编辑器 都挺麻烦的。

【视图】-宏：

【开发工具】选项卡

Office2007中调出：

Office2010~2016中调出：

都弄粗来之后，就可以开干了。

在VB编辑器的代码区试下输入“哈喽，我的”，    代码内容：

Sub 圣创杂学堂()

MsgBox "Hello, world !"

End Sub

    可以直接在ThisWorkbook里，也可以另外加个模块：

    可在两个地方点击【运行】，1、代码区：

2、【开发工具】-【宏】-【执行】：

---

用途01

自定义工具栏按钮功能

用途02

表中按钮功能指派

用途03

自定义新的函数

下面函数是计算输入的第一个参数和今天一共相距多少天/周/月/季度，复制粘贴到代码区：

    代码内容：

Public Function YearEnd(inDate As Date, n As Integer)

If Not IsDate(inDate) Then

MsgBox "Please input a date value."

 Return

End If

Select Case n

 Case 1:

YearEnd = "相距" & DateDiff("D", inDate, Date) & "天"

 Case 2:

YearEnd = "相距" & DateDiff("ww", inDate, Date) & "周"

 Case 3:

YearEnd = "相距" & DateDiff("m", inDate, Date) & "月"

 Case 4:

YearEnd = "相距" & DateDiff("q", inDate, Date) & "季度"

 End Select

End Function

用途04

自动化操作

这个也是最为广泛地使用的，最简单的就是【录制】宏，复杂的就是在代码区里写VB代码，然后运行。

    蛋素，你先看下录制下来的宏是啥样的：

也就是说，你想用这个宏来照样填充其他单元格是不行滴，它会一直填充B1:B4！

【录制】的宏有两个特点：

【录制】的并不是你的“鼠标键盘操作”，而是Excel内容的更改。（可以看到上面的代码完全没有“时间”延迟，也没有“输入内容”的，而是直接将某个单元格赋值！）

【录制】的宏只适用于在大量相同的表格上进行重复性的操作。因为它会真实地记录你操作的单元格位置（如B1:B4）

    那宏的自动化操作就没其他用途了么？

    有！

高手们都是用这个功能直接写代码来完成的。鉴于本公众号主要面向不懂编程或者入门级编程爱好者，不深入探究VB语法。

当想要哪些自动化操作时，大家自觉度娘。

微信搜索公众号@圣创杂学堂，即可获取每天更新

原创不易，转载请保留出处。