VBA自定义函数MatrixCalc无法对Variant类型结果开平方问题

你的代码当前计算的是输入向量的二次型结果（即x^T * Cor * x），对应示例中的16。要得到正确的平方根结果，只需在最终计算后对结果取平方根即可。

修改后的代码 #

Function MatrixCalc(MatrixInput As Range) As Variant
    Dim MatrixCor As Variant
    MatrixCor = Array(Array(1, 0.25), Array(0.25, 1))
     
    Dim MatrixHelp As Variant
    Dim MatrixInputTr As Variant
    Dim quadraticResult As Double
    
    MatrixInputTr = Application.Transpose(MatrixInput.Value)
    MatrixHelp = Application.MMult(MatrixInputTr, MatrixCor)
    ' 获取二次型的单元素结果
    quadraticResult = Application.MMult(MatrixHelp, MatrixInput)(1, 1)
    
    ' 计算平方根，添加非负判断避免错误
    If quadraticResult >= 0 Then
        MatrixCalc = Sqr(quadraticResult)
    Else
        MatrixCalc = CVErr(xlErrNum) ' 返回数值错误，避免负数开平方
    End If
End Function

关键修改说明 #

• 新增quadraticResult变量，提取矩阵乘法返回的1x1结果中的唯一值（通过(1,1)索引）
• 使用VBA内置的Sqr函数计算平方根
• 添加非负判断：如果二次型结果为负数，返回Excel标准数值错误xlErrNum，避免运行时错误

测试示例：输入区域A1=2、A2=3时，函数将返回4，符合预期结果。

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