5、VBA 代码编写与测试基础全解析

VBA 代码编写与测试基础全解析

1. 验证信用可用性子过程

首先，我们来看一个验证信用可用性的子过程 VerifyCreditAvail ，其代码如下：

Sub VerifyCreditAvail(curTotalPrice As Currency, curAvailCredit As Currency)
    'inform user if not enough credit for purchase
    If curTotalPrice > curAvailCredit Then
        MsgBox "You do not have enough credit available for this purchase."
    End If
End Sub

要运行这个过程，可以从立即窗口执行。若立即窗口未打开，可选择“视图”➪“立即窗口”。在立即窗口中输入命令并按回车键。例如，输入 VerifyCreditAvail 5.0, 4.93 ，由于 5.0 大于 4.93，会弹出消息框提示信用额度不足。

2. 从另一个过程调用子过程

创建好一个过程后，可从另一个过程中调用它。以下是一个简单示例：

Sub FirstProcedure
    'This code calls a procedure called SecondProcedure
    SecondProcedure
End Sub