[已解决]求任意断面面积计算函数公式或VBA代码？

YANG6815475 · 发表于 2011-11-13 21:31

求任意断面面积计算函数公式或VBA代码？谢谢！
见下图及附件：
面积计算公式.jpg

任意断面面积计算.rar (13.06 KB, 下载次数: 65)

wp8680 · 发表于 2011-11-13 22:35

本帖最后由 wp8680 于 2011-11-13 22:52 编辑

=(SUMPRODUCT(OFFSET(B1,1,,COUNT(B:B)-1,1)*OFFSET(C1,2,,COUNT(C:C)-1,1)-OFFSET(B1,2,,COUNT(B:B)-1,1)*OFFSET(C1,1,,COUNT(C:C)-1,1))+C2*OFFSET(B1,COUNT(B:B),)-B2*OFFSET(C1,COUNT(C:C),))/2

复制代码

假如x值写在B2往下的单元格列中，y值写在C2往下的单元格列中，一一对应零值不可省略，用上述公式可求得。

wp8680 · 发表于 2011-11-13 22:37

wp8680 · 发表于 2011-11-13 23:48

zzcpok · 发表于 2011-11-14 12:55

假如x值写在B2往下的单元格列中，y值写在C2往下的单元格列中，一一对应零值不可省略，用上述公式可求得。

YANG6815475 · 发表于 2011-11-14 16:15

wp8680 发表于 2011-11-13 22:35
假如x值写在B2往下的单元格列中，y值写在C2往下的单元格列中，一一对应零值不可省略，用上述公式可求得。

谢谢二楼！用此公式计算有点问题，见图及附件：

面积计算公式校验.rar (2.28 KB, 下载次数: 16)

wp8680 · 发表于 2011-11-14 18:54

YANG6815475 发表于 2011-11-14 16:15
谢谢二楼！用此公式计算有点问题，见图及附件：

另，在空白格填为零，是代表原点了？！

原因很简单，我的公式说明是从第二行开始有数据的，而你的附件写成第一行就有数据了，故产生计算误差是肯定的。我已经根据你的附件，仍用此公式，结果如表中：

面积计算公式校验1.rar (2.45 KB, 下载次数: 55)

wp8680 · 发表于 2011-11-14 18:57

假如x值写在B2往下的单元格列中，y值写在C2往下的单元格列中，一一对应零值不可省略，用上述公式可求得。

YANG6815475 · 发表于 2011-11-14 20:02

wp8680 发表于 2011-11-14 18:54
原因很简单，我的公式说明是从第二行开始有数据的，而你的附件写成第一行就有数据了，故产生计算误差是肯 ...

看一下，检验后再回帖，谢谢！

YANG6815475 · 发表于 2011-11-14 20:28

wp8680 发表于 2011-11-14 18:57
假如x值写在B2往下的单元格列中，y值写在C2往下的单元格列中，一一对应零值不可省略，用上述公式可求得。

二楼：你的 ‘对应零值不可省略，用上述公式可求得。’不好理解，哪个对应的零值？
我用你的公式，只需笫一行不输入数字即可，且复制公式只能在该行进行！否则，修改相应的区域。

按二楼的公式计算多边形面积计算正确！谢谢wp8680！！！确是高手！
能否向大家讲解一下公式的涵义？

		自动登录	找回密码
密码			注册