新人初来乍到，刚学第一天，这个错误我打死都没有找到，求解答
我需要求出这个面积和体积单元格的数值，这样错了吗？
Option Explicit
Sub yuan()
Dim r1, s, v
Const P = 3.1415926
r1 = Cells(3, 4)
s = P * r1 * r1
v = 4 / 3 * P * r1 * r1 * r1
Cells(3, 5) = s
Cells(3, 6) = v
End Sub
Option Explicit
Sub yuan()
Dim r1, s, v
Const P = 3.1415926
r1 = Cells(3, 4)
s = P * r1 * r1
v = 4 / 3 * P * r1 * r1 * r1
Cells(3, 5) = s
Cells(3, 6) = v
End Sub
