EXcelVBA之变量赋值运算

在代码窗口，输入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位小数：