关于VBA求异形面积的难题

pkllpkl

对对对，正确答案是6.92，图片修改了，但是公式忘记修改回来，正确答案是6.92

pkllpkl

6.92才是正确答案

pkllpkl

zopey 发表于 2018-7-12 17:02
按楼上公式 计算
=1.6*(1+2.2)+1.8*1
=6.92

6.62才是正确答案，图片修改了，公式忘记改回来了

zopey

Sub 按钮1_Click()
Dim arr, brr, s
arr = [c3].Resize(1, 6)
brr = [c5].Resize(1, 6)

For i = 1 To 6
    If arr(1, i) < 1.4 And arr(1, i) > 0 Then
       wa = wa + arr(1, i)
    ElseIf arr(1, i) >= 1.4 Then
       wb = wb + arr(1, i)
    End If
    If brr(1, i) < 2 And brr(1, i) > 0 Then
       ha = ha + brr(1, i)
    ElseIf brr(1, i) >= 2 Then
       hb = hb + brr(1, i)
    End If
Next

s = wa * (ha + hb) + wb * ha
[j3] = s
End Sub
book22.zip (15.42 KB, 下载次数: 8)

2018-7-12 17:25 上传

点击文件名下载附件

pkllpkl

zopey 发表于 2018-7-12 17:23
Sub 按钮1_Click()
Dim arr, brr, s
arr = [c3].Resize(1, 6)

谢谢zopey老师指导。
研究完老师给的思路后发现，自己对于循环结构的理解不够透彻。
老师这里使用了“i=i+1”的语句进行累加，把“1”定义数组变量，再加入条件判断，完全满足了计算要求。
也通过老师的解答发现自己的短板
再次感谢老师的指导！