Sub用于Excel VBA中Simpson的1/3，但出现错误（“需要对象”）

我正在为辛普森1/3规则的子规则编写代码。我有该函数的代码，但它不适用于我在Sub中需要进行的小调整。Sub必须使用SimpsonResultCell.Value来显示：

点数不是奇数或奇数的消息 由辛普森1/3方程得出的结果。 要使用的信息是：偶数个间隔是必要的奇数个点

下面是我的代码：

辛普森13号潜艇 Dim扩展数据作为范围，yData作为范围 尺寸x为双精度，y为双精度，h为双精度，和为双精度 Dim n为整数，i为整数，np为整数，SimpsonResultCell为整数 设置扩展数据=Application.InputBoxSelect包含x数据的单元格，类型：=8 设置yData=Application.inputbox选择具有y数据的单元格，类型：=8 设置SimpsonResultCell=Application.InputBoxSelect单元格以显示结果，类型：=8'此处显示所需对象 np=扩展数据。计数“点数 n=np-1'间隔数 如果n Mod 2 0，则 SimpsonResultCell=偶数个间隔是奇数个点所必需的 出口接头 其他的 做 雷迪姆x0到n 重拨y0至n 对于i=0到n 席＝XDATAIA+ 1 yi=yDatai+1 接下来我 总和=y0+yn 对于i=1到n-1步骤2 总和=总和+4*yi 接下来我 对于i=2到n-2步骤2 总和=总和+2*yi 接下来我 h=xn-x0/n SimpsonResultCell=h*sum/3 退出Do 如果结束 端接头

---

您的错误来自此声明：

SimpsonResultCell As Integer

本次任务：

Set SimpsonResultCell = Application.InputBox("Select cell to display result", Type:=8)

语法集Foo=Application.InputBox返回一个范围对象。您正在尝试将其分配给整数。您只需使用适当的Dim语句即可：

Dim SimpsonResultCell As Range