EXCEL算任意多边形面积

2025-02-11 18:40:59

推荐回答（4个）

回答1：

Public Function CalArea(Rng As Range) As Double
Dim x0 As Double, y0 As Double, x1 As Double, y1 As Double, x2 As Double, y2 As Double, TC As Long, TempArea As Double
TC = Rng.Rows.Count
If TC < 3 Then
    MsgBox "坐标数少于3，无法计算面积！"
    CalArea = 0
    Exit Function
End If
x0 = Rng.Cells(1, 1)
y0 = Rng.Cells(1, 2)
For i = 2 To TC
    x1 = Rng.Cells(i - 1, 1)
    y1 = Rng.Cells(i - 1, 2)
    x2 = Rng.Cells(i, 1)
    y2 = Rng.Cells(i, 2)
    TempArea = TempArea + x1 * y2 - x2 * y1
Next
TempArea = 0.5 * (TempArea + x2 * y0 - x0 * y2)
CalArea = TempArea
End Function

我这函数是适用于把X坐标与Y坐标分成两列写了，以下截图是使用方法

如果你的坐标是XY坐标写在同一个单元格，那么函数需要改动一下

回答2：

回答3：

===57132899====
是你吗？
又问？？

回答4：

公式是：

=(A1*B2-A2*B1+A2*B3-A3*B2+A3*B4-A4*B3+A4*B5-A5*B4+A5*B1-A1*B5)/2

你想要一个VBA程序，计算n个点的面积吗？

Sub 按钮1_Click()
    n = Cells(Rows.Count, 1).End(3).Row
    s = 0
    For i = 1 To n - 1
        s = s + Cells(i, 1) * Cells(i + 1, 2) - Cells(i + 1, 1) * Cells(i, 2)
    Next
    s = s + Cells(n, 1) * Cells(1, 2) - Cells(n, 2) * Cells(1, 1)
    s = s / 2
    [C1] = "面积："
    [D1] = s
End Sub

最新问答

迪迦奥特曼的日语主题曲叫什么

关于蝉的叫声。

怎样才能让白头发变黑？前提不染发

有没有前世是很牛的人。穿越到魔法和武道都有的大陆。从娘胎就开适修炼一出生就很牛的小说要男主的

真的所有男生都忘不了初恋吗？

阅读短文牵牛花的语言描写的句子

草缸底沙铺多厚合适,缸里有灯鱼,虾,鼠,螺

临近北京奥运会,你可用什么成语形容运动员的训练场面

怎样才能交到真心朋友？？？？？？？？？？？？

坐火车从十堰到湖北科技学院咋走