VBA 入门必读：深入解析 Excel Sub 过程的定义与调用技巧

2026-02-05 04:59:07 0条评论 2次阅读 0人点赞

在日常工作中，我们经常需要处理那些重复繁琐的任务，比如每天都要将新下载的数据复制到主表中，或者按照固定的格式生成报表。你是否也曾幻想过能有一个“自动化小助手”帮你一键完成这些工作？这就需要用到 Excel VBA（Visual Basic for Applications）。而在 VBA 的世界里，子程序 就是最基础的积木块。今天，我们将深入探讨什么是 VBA 子程序，它是如何工作的，以及最重要的——如何在 VBA 中有效地调用子程序（Call Sub）。掌握这一技能，意味着你迈出了从“普通用户”向“Excel 自动化专家”转变的关键一步。

什么是 VBA 子程序？

简单来说，VBA 子程序（在代码中通常写作 Sub）是一段包含一系列特定指令的代码块，它专门用于执行某项具体的任务。这就好比是一个剧本中的“一段戏”，当你喊出它的名字时，演员就会开始表演这段戏。

子程序之所以强大，是因为它可以帮助我们将庞大、复杂的自动化逻辑拆解为一个个小巧、易于管理的部分。试想一下，如果你的代码像流水账一样从头写到尾，不仅难以阅读，一旦出错更是难以排查。通过子程序，我们可以实现模块化编程，从而显著提高代码的可读性并降低维护成本。

#### 为什么要使用子程序？

我们强烈建议在编写 VBA 代码时充分利用子程序，主要基于以下三个核心理由：

模块化：将大型代码划分为更小、更有条理的逻辑块。这就像整理衣柜一样，把不同的衣物分类存放，找起来才方便。
可重用性：这是子程序最大的魅力所在。编写一次，无限次调用。例如，如果你写好了一个连接数据库并提取数据的子程序，那么在任何需要数据的地方，只需一行代码即可调用它，而无需重写复杂的逻辑。
可读性：使用有意义的名称来描述子程序的功能。当你几个月后再次打开代码，或者把代码交给同事维护时，CalculateBonus 显然比几百行混乱的公式更容易让人理解。

子程序的命名规则

在正式开始写代码之前，我们需要了解一下子程序的“起名”规范。就像给孩子起名一样，VBA 也有它的家规：

首字符限制：必须以字母或下划线开头。千万不能以数字或特殊字符（如 INLINECODE7bbb9b5a, INLINECODE760e0c66）开头。
字符限制：名称中不能包含空格。如果你想要一个由多个单词组成的名称，请使用驼峰式命名法（如 INLINECODE7ad09e4c）或下划线连接（如 INLINECODEe843b550）。虽然句点在语法上是允许的，但我们极度不推荐使用，因为它可能会引起歧义。
长度限制：名称长度不能超过 255 个字符。通常情况下，简短且具描述性的名字是最好的。
避开保留字：不能使用 VBA 的保留关键字（如 INLINECODEaed5f96d, INLINECODEa8703335, INLINECODE8408845d, INLINECODE8f5c716e, If 等）作为名称，否则编译器会感到困惑。

为了让你更直观地理解，我们准备了一个对比表格：

有效名称

无效名称

原因 :—

:—

:— INLINECODE4f4250b7

INLINECODE483cbb6a

不能以数字开头 INLINECODE13bd782b

INLINECODEe4313ca3

包含空格 INLINECODE54abfbde

INLINECODE85d80eb1

Box 可能被误解，且包含空格 INLINECODE4fedbff1

INLINECODEf0ac6983

Class 是保留关键字

子程序的语法结构

让我们看看一个标准的子程序是如何构建的。请看下面的语法示例：

Private Sub SubName(ByVal arg1 As String, ByVal arg2 As Integer)
    ‘ 这里放置执行任务的代码
    MsgBox "参数1是：" & arg1
End Sub

#### 语法深度解析

INLINECODEc39f948c / INLINECODEead155d8 Sub：

* 开头的这个词决定了子程序的“可见性”。INLINECODE013e3c90 表示这是一个私有的子程序，只能在被定义的当前模块内被调用。如果你希望这个子程序能在整个工作簿的所有模块中随时被调用，请使用 INLINECODE70f1fa70（或者干脆省略，因为 VBA 默认就是 Public）。

SubName (子程序名称)：

* 这是你为这段代码起的名字。请务必遵循上面的命名规则，并且最好使用“动词+名词”的结构，比如 INLINECODEcb86bf2f 或 INLINECODE9da66245。

(ByVal arg1 As String, ...) (参数列表)：

* 括号内是子程序的输入数据，即参数。参数是子程序与外界沟通的桥梁。

* ByVal (按值传递)：意味着当你调用这个子程序时，VBA 只是把你传入的变量的“复印件”给了子程序。在子程序内部修改这个参数，不会影响原始变量的值。这是保护数据的好方法。

* INLINECODEe9fd27aa (按引用传递)：这是 VBA 的默认设置（如果不写 ByVal，默认就是 ByRef）。这意味着子程序拿到的是变量的“家门钥匙”。如果在子程序内部修改了 INLINECODEe409c44f 参数的值，原始变量的值也会随之改变。这在需要返回多个结果时非常有用，但也伴随着风险。

End Sub：

* 这标志着子程序的结束。所有的逻辑必须包含在这一行之前。

如何在 VBA 中调用子程序？

学会了定义，接下来就是最重要的环节——调用。如果子程序是工具，那么调用就是使用工具的过程。我们通常通过两种方式来调用子程序：一是通过 Excel 界面控件（如按钮），二是通过代码直接调用。

让我们通过一个完整的实战案例，演示如何利用 Excel 中的命令按钮来创建并调用一个子程序。

#### 场景设定

假设我们需要在 Excel 中添加一个功能，当用户点击按钮时，自动弹出一个窗口显示欢迎语。我们把这个功能封装在一个名为 DisplayWelcomeMessage 的子程序中。

#### 操作步骤详解

步骤 1：准备开发环境

首先，我们需要确保 Excel 显示了“开发工具”选项卡。如果没看到，请去 Excel 选项中勾选“在功能区显示‘开发工具’选项卡”。

步骤 2：插入命令按钮

点击“开发工具”选项卡，找到“控件”组，点击“插入”下拉列表。在出现的 ActiveX 控件箱中，选择“命令按钮”。

步骤 3：绘制按钮

此时鼠标光标会变成十字形。在 Excel 工作表的任意空白位置，按下鼠标左键并拖动，绘制出一个你满意大小的按钮。

步骤 4：进入代码编辑器

我们可以通过快捷键 Alt + F11 快速打开 VBA 代码编辑器（VBE）。这是所有 VBA 开发者的主战场。

步骤 5：编写被调用的子程序

在 VBE 中，插入一个新模块，并输入以下代码。这就是我们要调用的“目标”。

‘ 这是一个被调用的子程序，用于显示欢迎信息
Public Sub DisplayWelcomeMessage()
    ‘ 使用 MsgBox 显示一条消息
    MsgBox "你好，欢迎开启 VBA 自动化之旅！", vbInformation, "系统提示"
End Sub

步骤 6：关联按钮事件

现在回到 Excel 工作表。我们要让刚才画的按钮“认识”这个子程序。

右键点击刚才绘制的命令按钮，选择“查看代码”。
这会打开一个专门针对该工作表（例如 Sheet1）的代码窗口，并自动生成一个空的 CommandButton1_Click 事件过程。

步骤 7：编写调用代码

在按钮的点击事件中，我们需要写代码来调用刚才定义的 DisplayWelcomeMessage。在 VBA 中，调用 Sub 有两种标准写法：

写法 1（显式调用，推荐）：使用 Call 关键字。
写法 2（隐式调用）：直接写子程序名字。

在按钮的代码窗口中输入以下内容：

‘ 这是按钮点击时触发的事件子程序
Private Sub CommandButton1_Click()
    
    ‘ --- 写法 1：使用 Call 关键字 ---
    ‘ 这种写法非常清晰，表明我们正在“调用”一个过程
    Call DisplayWelcomeMessage
    
    ‘ --- 写法 2：不使用 Call 关键字 ---
    ‘ 如果省略 Call 关键字，参数（如果有的话）不需要加括号
    ‘ DisplayWelcomeMessage
    
End Sub

完整代码示例解析

为了让你看到更完整的效果，我们将两个部分放在一起展示。想象一下，这是你在 VBA 编辑器中看到的样子：

‘ ==========================================
‘ 模块：这是普通模块中的代码
‘ ==========================================
Option Explicit

‘ 定义一个带有参数的子程序，用于格式化指定的单元格
Public Sub FormatTargetCell(TargetRange As Range)
    
    With TargetRange
        ‘ 设置字体颜色为红色
        .Font.Color = RGB(255, 0, 0)
        ‘ 设置背景色为浅黄色
        .Interior.Color = RGB(255, 255, 0)
        ‘ 添加边框
        .Borders.LineStyle = xlContinuous
    End With
    
    MsgBox "单元格 " & TargetRange.Address & " 格式化完成！"

End Sub

‘ 定义一个无参数的问候子程序
Public Sub SayHello()
    MsgBox "你好！今天的表格处理完成了吗？"
End Sub


‘ ==========================================
‘ 工作表对象：这是 Sheet1 中的代码
‘ ==========================================
Option Explicit

Private Sub CommandButton1_Click()
    ‘ 场景 A：点击按钮调用问候语
    Call SayHello
End Sub

Private Sub CommandButton2_Click()
    ‘ 场景 B：点击按钮，对 A1 单元格进行格式化
    ‘ 这里我们演示了如何传递参数 Range("A1")
    
    ‘ 注意：当不使用 Call 关键字但需要传递参数时，参数不要加括号
    FormatTargetCell Range("A1") 
    
    ‘ 或者使用 Call 关键字（参数必须加括号）
    ‘ Call FormatTargetCell(Range("A1"))
End Sub

进阶探讨：深入理解 ByVal 与 ByRef

在之前的代码中，你看到了 INLINECODE6d187c71 和 INLINECODEbfaf1a85。这是很多初学者容易混淆的地方，让我们用生活化的例子来彻底搞懂它。

场景：你有一张珍贵的照片（变量），你想把它交给设计师（子程序）进行处理。

ByVal（按值传递）：你把照片复印了一份交给设计师。设计师在复印件上涂鸦、修改。无论他怎么折腾复印件，你手里的原件（原始变量）是绝对安全的。

ByRef（按引用传递）：你直接把照片的底片（内存地址）交给了设计师。设计师在底片上划了一道。当你拿回底片去冲洗时，照片上已经有了那道划痕。

代码示例：

Public Sub TestValueVsReference()
    Dim originalScore As Integer
    originalScore = 100
    
    Debug.Print "调用前分数: " & originalScore ‘ 输出 100
    
    ‘ 调用演示 ByVal 的子程序
    Call TryToChangeByVal(originalScore)
    Debug.Print "ByVal 调用后分数: " & originalScore ‘ 仍然是 100，因为原件没变
    
    ‘ 调用演示 ByRef 的子程序
    Call TryToChangeByRef(originalScore)
    Debug.Print "ByRef 调用后分数: " & originalScore ‘ 变成了 0，因为原件被修改了
End Sub

‘ 使用 ByVal，修改副本
Private Sub TryToChangeByVal(ByVal score As Integer)
    score = 0
    Debug.Print "   [ByVal 子程序内部] 分数已改为: " & score
End Sub

‘ 使用 ByRef，修改原始变量
Private Sub TryToChangeByRef(ByRef score As Integer)
    score = 0
    Debug.Print "   [ByRef 子程序内部] 分数已改为: " & score
End Sub

最佳实践建议：除非你有明确的理由需要在子程序内部修改外部变量（即“副作用”），否则我们建议默认使用 ByVal。这样可以最大程度地避免代码中意想不到的 Bug，让数据流更加清晰可预测。

常见错误与故障排除

在编写和调用子程序时，你可能会遇到以下几个常见的问题。作为经验丰富的开发者，我们为你整理了相应的解决方案：

编译错误：子过程或函数未定义

* 原因：通常是因为拼写错误，或者你试图调用一个 Private 的子程序，但该子程序位于其他模块中（这是不允许的）。

* 解决：检查子程序名称的拼写，确保被调用的子程序是 Public 的，或者确实位于同一个模块中。

运行时错误：类型不匹配

* 原因：你在调用子程序时传入的参数类型与定义时不符。例如，定义时要求 INLINECODE64fecbdb，你却传了 INLINECODE171e01d6。

* 解决：使用 INLINECODEff71c101 或 INLINECODE1297e18b 等转换函数将参数转换为正确的类型。

参数不可选

* 原因：子程序定义了必须传入的参数，但你在调用时漏掉了。

* 解决：补全参数，或者在子程序定义时给参数设置默认值（使用 Optional 关键字）。

实际应用场景与性能优化

在结束这篇探索之前，让我们谈谈如何写出高性能的 VBA 代码。

ScreenUpdating（屏幕刷新）：当你通过子程序操作大量单元格时，Excel 会实时刷新屏幕，这会极大地拖慢速度。我们通常编写一个专门的子程序来控制这一点。

    Public Sub SpeedUp()
        Application.ScreenUpdating = False ‘ 关闭屏幕刷新
        ‘ ... 这里执行耗时操作 ...
        Application.ScreenUpdating = True ‘ 记得要重新开启
    End Sub

错误处理：一个健壮的子程序应该包含错误处理机制，防止程序崩溃。

    Public Sub SafeProcess()
        On Error GoTo ErrorHandler
        
        ‘ 你的业务逻辑
        Exit Sub
        
    ErrorHandler:
        MsgBox "发生错误：" & Err.Description
    End Sub

总结与下一步

在这篇文章中，我们像搭积木一样，从零开始构建了对 VBA 子程序的理解。我们学习了什么是 Sub，如何给它们起合法的名字，如何通过 INLINECODE509e981e 和 INLINECODE4283bc21 传递数据，以及最重要的——如何在 VBA 代码中灵活地调用它们。

关键要点：

Sub 是执行动作的基本单位。
Call Sub 是让程序动起来的核心指令。
ByVal 保护数据，ByRef 共享数据。
模块化 是编写复杂自动化程序的必经之路。

现在，你不仅知道了如何编写一段代码，更知道了如何组织代码结构。作为下一步，建议你尝试打开 Excel，按照我们的步骤，亲手绘制一个按钮并编写一个属于自己的子程序，比如“一键清理表格格式”。实践出真知，祝你编程愉快！

投稿给我们	如何建站？
vps是什么？	如何安装宝塔？
如何通过博客赚钱？	便宜wordpress托管方案
免费wordpress主题	这些都是免费方案

豆丁博客