小编Toa*_*ted的帖子

我无法找到Excel VBA课程的水箱容量；我要做一个VBA功能，我输入了水箱的半径，高度和深度，并接收体积。这是一张更好理解的图片：

这是我目前拥有的代码，课程告诉我这是不正确的：

    Option Explicit

Function tank(R As Double, d As Double, H As Double) As Double

Dim pi As Double

pi = Application.WorksheetFunction.pi()

If d <= R Then

tank = pi * d ^ 2 / 3 * (3 * R - d)

ElseIf R < d And d <= H - R Then

tank = 2 / 3 * pi * R ^ 3 + pi * R ^ 2 * (d - R)

ElseIf H - R …