在VBA中，函数（Function）和子过程（Sub）是两种主要的代码执行单元。它们都可以封装代码逻辑，但在返回值、调用方式和使用场景上有明显区别。具体实践时注意以下：

1. 明确用途：需要返回值时用 Function，否则用 Sub。
2. 命名规范：使用动词命名 Sub（如 FormatReport），名词命名 Function（如 CalculateTax）。
3. 避免副作用：函数尽量不修改全局变量或对象状态。
4. 作用域控制：使用 Public 或 Private 控制函数/过程的可访问性。

一、从乐高积木理解代码模块

积木工厂模型：

• 过程(Sub) → 预制组件（如车轮模块：完成特定动作）
• 函数(Function) → 智能组件（如齿轮箱：输入→处理→输出）
• 参数 → 连接接口（不同组件间的数据传递）

Excel应用场景：

• 过程：自动格式化表格、批量导出文件
• 函数：计算个税、生成唯一ID、数据清洗

二、过程(Sub)

定义

• 不返回值，仅执行操作（如修改单元格、操作对象等）。
• 语法：

Sub 过程名([参数列表])
    '代码逻辑 
End Sub

特点

1. 无返回值：无法直接返回计算结果。
2. 调用方式：

• 在VBA中通过 Call 过程名(参数) 或直接 过程名 参数 调用。
• 在Excel中可通过按钮、快捷键或事件触发。

3. 适用场景：

• 执行任务（如数据导入、格式设置）。
• 操作对象（工作表、工作簿等）。
• 响应事件（如按钮点击）。

2.1 基础结构拆解

Sub 我的第一个过程()  ' ①过程声明
    ' ②操作代码
    Range("A1") = "Hello World"
    Call 添加边框("A1:C10")  ' ③调用其他过程
End Sub

Sub 添加边框(区域 As String)  ' 带参数的过程
    Range(区域).Borders.LineStyle = xlContinuous
End Sub

2.2 过程调用三法

2.3 事件处理子过程（Event Sub）

• 特殊用途的Sub：与Excel对象（如工作表、工作簿）绑定的事件过程，必须放在对应对象的代码模块中（如 Worksheet 或 ThisWorkbook）。
• 示例：

' 在Worksheet模块中，自动响应单元格内容变化 
Private Sub Worksheet_Change(ByVal Target As Range) 
    If Not Intersect(Target, Range("A1:A10")) Is Nothing Then 
        MsgBox "单元格 " & Target.Address & " 被修改了！" 
    End If 
End Sub

三、函数(Function)

定义

• 返回值，通常用于计算或处理数据。
• 语法：

Function 函数名([参数列表]) [As 数据类型] 
    '代码逻辑 函数名 = 返回值
    '必须赋值给函数名 
End Function

特点

1. 有返回值：必须通过 函数名 = 值 明确返回值。
2. 调用方式：

• 在VBA中赋值给变量：结果 = 函数名(参数)。
• 在Excel单元格中作为公式使用：=自定义函数名(参数)。

3. 适用场景：

• 计算数值（如税收、折扣）。
• 处理字符串或数据验证。
• 创建自定义公式供工作表调用。

3.1 自定义函数实战

Function 计算BMI(身高cm As Single, 体重kg As Single) As String
    Dim BMI值 As Single
    BMI值 = 体重kg / ((身高cm / 100) ^ 2)
    
    Select Case BMI值
        Case Is < 18.5: 计算BMI = "偏瘦"
        Case 18.5 To 24: 计算BMI = "正常"
        Case Else: 计算BMI = "过重"
    End Select
End Function

工作表调用：=计算BMI(B2,C2)

3.2 函数 vs 过程核心区别

3.3 函数在Excel中的限制

• 无副作用原则：在Excel单元格中调用的自定义函数（Function）不能直接修改其他单元格的值或工作簿结构（如插入行、删除列）。若需操作对象，应使用Sub过程。
• 易失性函数：通过 Application.Volatile 标记函数为易失性，使其在任意单元格计算时自动更新：

Function 实时时间() As Date 
    Application.Volatile 实时时间 = Now 
End Function

四、参数传递方式

4.1 形参与实参映射

Sub 主程序()
    Dim 实际价格 As Currency
    实际价格 = 100
    Call 打折计算(实际价格)  ' 实参 → 传递给形参
    MsgBox 实际价格  ' 显示90
End Sub

Sub 打折计算(ByRef 价格 As Currency)  ' 形参
    价格 = 价格 * 0.9
End Sub

4.2 传值(ByVal) vs 传址(ByRef)

4.2.1 ByVal（按值传递）

• 传递参数的副本，修改形参不影响原始变量。

Sub 示例(ByVal x As Integer) 
    x = x + 10 '原始变量不受影响 
End Sub

4.2.2. ByRef（按引用传递，默认方式）

• 传递参数的内存地址，修改形参会影响原始变量。

Sub 示例(ByRef x As Integer) 
    x = x + 10 '原始变量被修改 
End Sub

4.2.3. 区别

五、作用域与生命周期

5.1 变量作用域三层次

5.2 过程作用域控制

Private Sub 内部清洗()  ' 仅本模块可用
    ' 敏感操作代码
End Sub

Public Function 安全计算()  ' 全局可调用
    ' 验证后执行计算
End Function

六、实战案例

技巧1.可选参数

使用 Optional 定义可选参数，需指定默认值：

Function 拼接文本(a As String, Optional b As String = "") As String
    拼接文本 = a & b
End Function

技巧2.递归函数

函数可以调用自身实现递归：

Function 阶乘(n As Integer) As Long
    If n <= 1 Then
        阶乘 = 1
    Else
        阶乘 = n * 阶乘(n - 1)
    End If
End Function

技巧3.使用 ParamArray 处理不定数量参数

• 灵活传参：允许函数接受任意数量的参数（必须为 Variant 类型且放在最后）：

Function 连接文本(分隔符 As String, ParamArray 文本列表() As Variant) As String 
    Dim result As String, i As Long 
    For i = LBound(文本列表) To UBound(文本列表) 
        result = result & 文本列表(i) & 分隔符 
    Next i 
    连接文本 = Left(result, Len(result) - Len(分隔符)) 
End Function
' 调用：连接文本(",", "A", "B", "C") → "A,B,C"

案例1：智能个税计算器

Function 个人所得税(收入 As Currency) As Currency
    Dim 应纳税所得额 As Currency
    应纳税所得额 = 收入 - 5000  ' 起征点
    
    Select Case 应纳税所得额
        Case Is <= 0: 个人所得税 = 0
        Case 0 To 3000: 个人所得税 = 应纳税所得额 * 0.03
        Case 3000 To 12000: 个人所得税 = 应纳税所得额 * 0.1 - 210
        Case Else: 个人所得税 = 应纳税所得额 * 0.2 - 1410
    End Select
End Function

案例2：文件自动重命名器

Sub 批量重命名(路径 As String, 前缀 As String)
    Dim 文件名 As String
    文件名 = Dir(路径 & "\*.xlsx")
    
    Do While 文件名 <> ""
        Name 路径 & "\" & 文件名 As 路径 & "\" & 前缀 & 文件名
        文件名 = Dir()
    Loop
End Sub

七、调试与优化

7.1 错误处理模板

Function 安全计算(输入值 As Variant) As Variant
    On Error GoTo 错误处理
    If Not IsNumeric(输入值) Then Err.Raise 9999
    
    ' 正常计算逻辑
    Exit Function
    
错误处理:
    安全计算 = CVErr(xlErrValue)
    If Err.Number = 9999 Then
        MsgBox "输入必须为数字！", vbCritical
    End If
End Function

7.2 性能优化技巧

' ① 禁用非必要功能
Application.ScreenUpdating = False
Application.Calculation = xlManual

' ② 使用ByRef传递大数据
Sub 处理大数据(ByRef 数据数组() As Variant)
    ' 避免内存复制
End Sub

' ③ 预声明对象变量
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("数据")

八、常见错误诊所

下章预告：《错误处理》