vba做几何的注意点

Option Explicit '在以下模kuai里，使用qiang制声明，登入注册

---------------------------------------------------------------------------------------------------------------------------------

Sub 做几何()
    Dim r1, s, v '強制声明dim：宏内将用到的bian量名称，bian量之jian用逗号隔kai，Dim中にない変量が違法変量と判断する
                
    Const pi = 3.14159           '3.14を3.1415926に変更したい時に、毎回毎回変えるのは面倒なので、3.13159のように間違って入れる時があり、これを避けるために、3.13159を変量に定義する
               'だが、piを下でもう一度定義すると、二つのpiをはじめ、数値がそれぞれ違うので、piを誰でも変えないように、固定する必要がある、const
    
    r1 = Cells(4, 3)
    s = pi * r1 * r1
    v = 4 / 3 * pi * r1 * r1 * r1

Cells(4, 4) = s
Cells(4, 5) = v

End Sub