在代码窗口,输入CalcCost过程,如下面所示。这个过程基于下述假设来计算购买一个计算器的价钱:计算器的价格为37
美元,销售税为8.5%。代码为:
Sub CalcCost()
slsPrice = 37
slsTax = 0.085
Range("A1").Formula = "The cost of calculator"
Range("A4").Formula = "Price"
Range("B4").Formula = slsPrice
Range("A5").Formula = "slsTax"
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
结果显示
:
解释说明:
strMsg = "The calculator total is " & "$" & Cost & "."
1、字符串“The calculator total is ”被引号包括起来了,注意,后面的引号前有个空格。
2、字符&让你将一个字符串附加在另一个字符串或者变量的内容后面
3、在引号里面的美元符合(“$”)用来表明货币类型。因为美元符合是字符,它需要用引号来包括起来
4、字符&必须用于每次你要在前面的字符串后加新信息的时候
5、变量Cost是一个占位符,当过程运行时,计算器的实际价格将显示在这儿
6、字符&可以连接任何字符串
7、句号用引号包括起来。当你需要在句子后面加句号时,如果它是在一个变量后面时,你必须单独再在后面加上它。
如果考虑Cost等值的小数点格式等情况:
可以使用相应的Format命令对相应的对象进行格式要求:
Sub CalcCost()
slsPrice = 37
slsTax = 0.085
Range("A1").Formula = "The cost of calculator"
Range("A4").Formula = "Price"
Range("B4").Formula = slsPrice
Range("A5").Formula = "slsTax"
Range("A6").Formula = "Cost"
Range("B5").Formula = slsPrice * slsTax
Cost = Format(slsPrice + (slsPrice * slsTax), "0.00")
' Cost = slsPrice + (slsPrice * slsTax)
' With Range("B6")
' .Formula = Cost
' .NumberFormat = "0.00"
'End With
Range("B6").Formula = Cost
Range("B5").Formula = Format((slsPrice * slsTax), "0.00")
strMsg = "The calculator total is " & "$" & Cost & "."
Range("A8").Formula = strMsg
End Sub
税费和Cost都变为2位小数: