- 1、本文档共4页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
VBA变量赋值
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 ,标题栏则显⽰“
文档评论(0)