变量、常量

- 简单的算法

Sub JIAN()
    C = Cells(2, 7) '声明变量
    Cells(1, 2) = "-"
    'Cells(1, 2) = "+" 字符、文本要用双引号（半角）括起来
    Cells(C, 5) = Cells(C, 1) - Cells(C, 3) '
End Sub

- 圆周率

Option Explicit '强制声明登记注册
Sub TEST1()
    Dim R, Y, M '声明本宏内将用到的变量名称，变量之间用逗号隔开
    Const PI = 3.14 '常量，在声明后不允许赋值
    R = Cells(10, 3)
    Y = PI * R * R
    M = 4 / 3 * PI * R * R * R
    Cells(11, 3) = Y
    Cells(12, 3) = M
End Sub

'OPTION EXPLICIT 在模块第一行和DIM语句，可以使VBA在遇到未声明变量名时会自动报错
'Const 声明变量并同时赋值，如果再给常量赋值时，VBA将会报错