ExcelVBA 之Static 变量

静态变量（static）

 除了范围之外，变量还有存活期，变量的存活期决定了该变量能保存它的值有多久。一旦该工程打开，模块级别和工程级别的变量就会保留它们的值。然而，如果程序的逻辑需要，VB能够重新初始化这些变量。使用Dim语句声明的当地变量当过程结束时就会丢失值，当地变量的存活期是随着过程的运行的，并且它们在程序每次运行的时候可以被重新初始化。VB允许你通过改变声明方式延长当地变量的存活期。

用Static关键字声明的变量是特殊的当地变量，静态变量在过程级别声明。和那些用关键字Dim声明的当地变量相反，静态变量在程序已经不在它们的过程里时仍然不会丢失它们的内容。例如，当一个带有静态变量的VBA过程调用另外一个过程时，在VB执行完被调用的过程语句后返回主调过程时，静态变量仍然保留它原来的值。过程CostOfPurchase示范静态变量allPurchase的使用：

Sub CostOfPurchase()
         'declare variables
          Static allPurchase
          Dim newPurchase As String
          Dim purchCost As Single
          newPurchase = InputBox("Enter the cost of a purchase:")
          purchCost = CSng(newPurchase)
          allPurchase = allPurchase + purchCost
          'display results
          MsgBox "The cost of a new purchase is: " & newPurchase
          MsgBox "The running cost is: " & allPurchase
End Sub

 上面的过程以一个名为allPurchase的静态变量和两个当地变量newPurchase和purchCost的声明开始。该过程中使用的InputBox函数显示一个对话框并且等着用户输入数值，一旦用户输入数值并且点击确定后，VB就会将该数值赋给变量newPurchase。因为InputBox函数的结果总是字符串，变量newOurchase被声明为字符串数据类型了。然而，你不能在数学计算中使用字符串，这就需要在下一指令中使用一个类型转换函数（CSng）来将字符串值转换为单精度浮点类型的数字。函数CSng只需要一个自变量——你要转换的数值。函数CSng转换的数字结果保存在变量purchCost上。

技巧：类型转换函数
在CSng上的任意地方按下F1，可以查看更多关于函数CSng的信息（也可以查看其它类型转换函数信息）下一行。