关于VBA求异形面积的难题

pkllpkl

求助各位老师，关于图片上和附件的问题解答和方法！

一把小刀闯天下

Option Explicit

Sub test()
  Dim arr
  arr = [c2:h5]
  MsgBox (arr(2, 1) + arr(2, 3)) * (arr(4, 1) + arr(4, 2) + arr(4, 3)) + arr(2, 2) * arr(4, 1)
End Sub

pkllpkl

一把小刀闯天下 发表于 2018-7-12 13:58
Option Explicit

Sub test()

需要实现的功能不仅仅是这样，而是先判断数值的大小，再求值。

zopey

这个例子的  答案是不是 6.02 ？

pkllpkl

zopey 发表于 2018-7-12 16:04
这个例子的  答案是不是 6.02 ？

是的，现在需要通过vba筛选满足条件的值，再进行计算…满足条件的值可能有多个，这一块就不知道怎么解决了…

zopey

你说的思路 有4个求和，暂记做  WA、WB 、HA、HB ，
      W= WA+ WB
       H=HA+ HB

那么面积公式是什么 ？

pkllpkl

zopey 发表于 2018-7-12 16:28
你说的思路 有4个求和，暂记做  WA、WB 、HA、HB ，
      W= WA+ WB
       H=HA+ HB

假设:
1、WA为＜1.4的值的总和
2、WB为＞＝1.4的值的总和
3、HA为＜2.0的值的总和
4、HB为＞＝2.0的值的总和
则:
S（面积）＝WA×H+WB×HA

pkllpkl

zopey 发表于 2018-7-12 16:28
你说的思路 有4个求和，暂记做  WA、WB 、HA、HB ，
      W= WA+ WB
       H=HA+ HB

因为设备缘故…现在只能用手机登录回复和查看，回复时间可能会稍微晚一些…不好意思呀

duquancai

难题啊，进来mark一下。

zopey

按楼上公式 计算
=1.6*(1+2.2)+1.8*1
=6.92

与开始答案 6.02 不符。