VBA变量赋值.pdf

VBA变量赋值 既然你已经知道如何命名和声明变量了，是时候开始使⽤它们了。我们以学 如何创 建变量开始。在VB 中，你可以在你程序的任何地⽅创建变量，只有给它赋个值就 ⾏。 1. 打开⼀个新⼯作簿并且保存为Chap03.xls 2. 激活VB编辑器窗⼜ 3. 在⼯程浏览器窗⼜，选择这个新的⼯程并在属性窗⼜⾥将它的名称改为Chap03 4 . 选择“插⼊”－“模块”在⼯程Chap03⾥⾯添加⼀个新模块 5. 在属性窗⼜将该模块名Module 1改为Variables 6. 在代码窗⼜，输⼊CalcCost过程，如下⾯所⽰。这个过程基于下述假设来计算购买 ⼀个计算器的价钱：计算器的价格为35美元，销售税为8.5 Sub CalcCost() slsPrice = 35 slsTax = 0 .085 Range(A 1) .Formula = The cost of calculator Range(A4 ) .Formula = Price Range(B4 ) .Formula = slsPrice Range(A5) .Formula = Sales Tax Range(A6) .Formula = Cost Range(B5) .Formula = slsPrice * slsTax Cost = slsPrice + (slsPrice * slsTax) With Range(B6) .Formula = Cost .NumberFormat = 0 .00 End With strMsg = The calculator total is $ Cost . Range(A8) .Formula = strMsg End Sub 过程CalcCost使⽤了四个变量：slsPrice ，slsTax ，Cost和strMsg 。因为这些变量都没有 显式声明，所以它们的数据类型都是Variant 。变量slsPrice和slsTax是在过程的开始时 通过给它们赋值⽽产⽣的，变量Cost分配的值是下⾯计算的结果：slsPrice + (slsPrice * slsTax) 。价格的计算是使⽤变量slsPrice和slsTax提供的值来进⾏的。变量strMsg将信 息合并为⼀个⽂本信息给⽤户，然后这个信息是在⼯作表的⼀个单元格⾥输⼊⼀个完 整的句⼦。 当你给变量赋值时，需要在变量名称后⾯输⼊⼀个等号，等号之后是你要输⼊的值。 它可以是数字，公式或者带引号的⽂本。赋给变量slsPrice ，slsTax和Cost的值⽐较容 易理解，然⽽保存在变量strMsg的值则有些棘⼿。解释⼀下变量strMsg的内容吧。 strMsg = The calculator total is $ Cost . 1、字符串“The calculator total is ”被引号包括起来了，注意，后⾯的引号前有个空格。 2、字符让你将⼀个字符串附加在另⼀个字符串或者变量的内容后⾯ 3、在引号⾥⾯的美元符合 （“$” ）⽤来表明货币类型。因为美元符合是字符，它需要 ⽤引号来包括起来 4 、字符必须⽤于每次你要在前⾯的字符串后加新信息的时候 ​ 5、变量Cost是⼀个占位符，当过程运⾏时，计算器的实际价格将显⽰在这⼉ ​ 6、字符可以连接任何字符串 ​ 7 、句号⽤引号包括起来。当你需要在句⼦后⾯加句号时，如果它是在⼀个变量后⾯ 时，你必须单独再在后⾯加上它。 现在来运⾏它，将光标放在过程CalcCost的任何地⽅，并且选择“运⾏”－“运⾏宏” 技巧：变量初始化 VB创建变量的时候就将其初始化了。变量假定为它们的默认值，数字型变量设置为 0 ，布尔型变量初始化为False ，字符串变量设置为空字符 （”” ），已经⽇期型变量则 设置为1899年12⽉30 ⽇注意，你在运⾏这个过程时，VB可能会弹出下⾯的信息：“编 译错误：变量未定义” 。如果这个情况发⽣了，点击确定以关闭这个信息框。VB将会 选中变量slsPrice并且加亮过程名称Sub CalcCost ，标题栏则显⽰“