[第14期]计算多边形的面积

雪兰君

面积比较难,其他操作上都可以实现.  (不过俺很粗心, 不知道有没有弄错.)

本来想用海伦公式- Wikipedia, 

一个三角形，边长分别为a、b、c，三角形的面积S可由以下公式求得：
S={s(s-a)(s-b)(s-c)} ^ 0.5

p={a+b+c}/ 2

不过发现不是单纯的凸边形, 比较麻烦, 需要判断. 谁用这个搞出来了?

雪兰君

版主好象没有说清楚, 图是画在哪里? 用EXCEL图表? 还是用VBA画EXCEL图表?

用EXCEL图表好象很容易哦~~

有点搞晕了!  刚才我用VBA, 画在sheet里

现在补充. 想赚点积分~~

流浪的老虎

jssy

做做试试：

gouweicao78

刚加入论坛时费了九牛二虎之力用“海伦公式”（不知道谁告诉我是“海德公式”，害我一直说错，唉，谁叫咱数学差呢），做了一个：http://club.excelhome.net/viewthread.php?tid=126056&replyID=&skin=0

不过没用图表功能，当时把gvntw的动态设置打印区域的东西硬生生地套上去了，根本就不知道到底是什么东西，哈哈。

已经两个月基本不怎么摸Excel公式了，现在感觉又吃力了。

不过有时加班头痛的时候就跑来逛逛，心情也会好些。

fjlhgs

我以前编写的计算多边形面积、周长的VBA程序。

fjlhgs

我以前编写的一个计算多边形面积、周长的VBA程序与大家共享。

northwolves

狂晕。冤死了，括号括错位置了，白丢了分：

Private Sub CommandButton1_Click()
Dim i As Integer
For i = ActiveSheet.Shapes.Count To 1 Step -1
If ActiveSheet.Shapes(i).Type = 9 Then ActiveSheet.Shapes(i).Delete
Next
End Sub

Private Sub CommandButton2_Click()
Dim i As Integer, arr, p As Single, s As Single

arr = Range("a3:b14")
For i = 2 To 12
ActiveSheet.Shapes.AddLine arr(i, 1) / 4, arr(i, 2) / 4, arr(i - 1, 1) / 4, arr(i - 1, 2) / 4
s = s + (arr(i, 1) - arr(i - 1, 1)) * (arr(i, 2) + arr(i - 1, 2)) / 2
p = p + Sqr((arr(i, 1) - arr(i - 1, 1)) ^ 2 + (arr(i, 2) - arr(i - 1, 2)) ^ 2)
Next
MsgBox "该多边形的面积为:" & s & vbCrLf & vbCrLf & "周长为:" & p
Application.StatusBar = "该多边形的面积为:" & s & vbCrLf & vbCrLf & "周长为:" & p
End Sub

好好唱一首

northwolves 发表于 2006-8-2 12:30
我的解法:结果差了一点点，VBA编辑得很好。谢谢snood点评狂晕。冤死了，括号括错位置了，白丢了分：Private ...

请问这个面积公式的原理是什么呢？

xiaopingping

好厉害好厉害