学vba之加减法

Sub 足し算（）

Dim x

x = Cells(3,2)

Cells(x,9) = Cells(X,5) + Cells(x,7)

End Sub

---

Sub　引き算　()

Dim i

i = Cells(3,2)

Cells(i,9) = Cells(I,5) - Cells(i,7)

End Sub

---

---

Sub 做几何 ()

Dim x

Dim y

Dim z

x = Cells(4,3)

y = (3.14 * x * x)

z = 4/3 * 3.14 * x * x * x

Cells(4,4) = y

Cells(4,5) = z

End Sub

---