Excel VBA多边形面积计算函数Runtime Error 1004问题求助

嘿，我来帮你搞定这个多边形面积计算的问题！先理清楚核心问题：

• 当DataRange(4)最后一个值为0时，你调用WorksheetFunction.MDeterm触发了1004错误，这直接导致Excel工作表返回#VALUE!——本质是VBA里的未处理运行时错误被Excel转换成了单元格错误值。
• 大概率是这个0值让你构建的array3矩阵出现了非方阵、包含非数值，或者是奇异矩阵（虽然MDeterm能计算行列式为0的矩阵，但极端情况可能触发计算异常）。

下面是修复后的代码，我加了严谨的错误处理、输入验证逻辑，还补了关键的矩阵合法性检查：

Public Function polygon(DataRange As Variant) As Variant
    Dim Area As Variant
    Dim X1 As Double, X2 As Double, X3 As Double, X4 As Double
    Dim array1(1 To 2, 1 To 2) As Double, array3(1 To 2, 1 To 2) As Double ' 假设你用的是2x2矩阵
    Dim inputRng As Range
    
    ' 第一步：验证输入是否为有效单元格范围
    On Error Resume Next
    Set inputRng = DataRange
    On Error GoTo ErrorHandler
    If inputRng Is Nothing Then
        polygon = "请输入有效的单元格范围"
        Exit Function
    End If
    
    ' 这里补充你从DataRange提取数据构建array1、array3的逻辑
    ' 示例：比如把DataRange(4)的最后一个值赋值给array3的某个元素
    ' array3(2, 2) = inputRng.Cells(inputRng.Rows.Count, inputRng.Columns.Count).Value
    
    ' 第二步：检查矩阵是否为方阵（MDeterm必须输入n×n矩阵，这是1004错误的常见诱因）
    If UBound(array3, 1) <> UBound(array3, 2) Then
        polygon = "错误：矩阵维度不是方阵"
        Exit Function
    End If
    
    ' 第三步：安全计算行列式，捕获可能的异常
    On Error Resume Next
    X3 = WorksheetFunction.MDeterm(array3)
    If Err.Number <> 0 Then
        polygon = "行列式计算失败：可能是奇异矩阵或包含非数值元素"
        Exit Function
    End If
    On Error GoTo ErrorHandler
    
    ' 这里继续你的面积计算逻辑
    ' Area = ... 你的面积计算公式
    
    polygon = Area
    Exit Function

ErrorHandler:
    polygon = "计算出错：" & Err.Description
End Function

关键修复细节： #

1. 全局错误捕获：用ErrorHandler分支兜底，把VBA错误转换成可读的单元格提示，再也不会出现突兀的#VALUE!了。
2. 输入合法性校验：先确认DataRange是有效的单元格范围，避免用户输入非范围内容导致的崩溃。
3. 矩阵维度检查：强制确保array3是方阵——这是MDeterm的硬性要求，很多1004错误都是因为不小心构建了非方阵矩阵。
4. 局部异常捕获：单独对MDeterm的调用做错误检查，精准定位行列式计算的问题。

针对DataRange(4)最后一个值为0的特殊排查： #

你可以在构建完array3后加一句调试代码：Debug.Print array3(1,1), array3(1,2), array3(2,1), array3(2,2)，然后打开VBA编辑器的「立即窗口」查看矩阵的具体值，看看这个0值是不是让矩阵出现了行/列完全线性相关，或者不小心填充了非数值内容。

内容的提问来源于stack exchange，提问作者Gary Yuen