矩阵乘法抛出下标超出范围错误

Question

前言：搞乱了立方体数学，在查看了所有各种选项后，我似乎运行遇到了我当前结构的问题。也许有人愿意指出我在这里遗漏了什么？

Private Sub cube3()
    Dim x(0 To 2, 0 To 2) As Single
    Dim y(0 To 2, 0 To 2) As Single
    Dim z(0 To 2, 0 To 2) As Single
    For a = 0 To 2
        For b = 0 To 2
            Count = (Count + 3) / 2 * 1.5
            x(a, b) = Count
            y(a, b) = Count
            z(a, b) = Application.WorksheetFunction.MMult(x, y)(a, b) '****** This is where the issue occurs
            Debug.Print ; x(a, b)
            Debug.Print ; z(a, b)
        Next
    Next
End Sub

Answer 1

在这种情况下 MMULT() 不是要走的路，它不是为单值乘法而设计的。

它系统地执行类似于 SUMPRODUCT() 的操作。因为它将第一个数组中一行中的每个项目与第二个数组中一列中的每个项目相乘。

变成

请参阅 HERE 以获得更好的解释。

在此代码中，您乘以单个值，因此可以使用简单的乘法：

= x(a,b)*y(a, b)

据我的研究发现，将一个数组中的每个值与其在第二个数组中的姊妹值相乘，唯一的方法是循环。

您已经在使用执行此操作的最快方法。通过使用数组而不是工作表范围，即使数据集更大，这仍然会非常快。

如果您想使用 MMULT() 则先填充两个数组并将 z 声明为变体：

Private Sub cube3()
Dim x(0 To 2, 0 To 2) As Single
Dim y(0 To 2, 0 To 2) As Single
Dim z
For a = 0 To 2
    For b = 0 To 2
        Count = (Count + 3) / 2 * 1.5
        x(a, b) = Count
        y(a, b) = Count

        Debug.Print x(a, b)
        Debug.Print y(a, b)
    Next
Next
 z = Application.WorksheetFunction.MMult(x(), y()) '****** This is where the issue occurs
 Range("A1").Resize(UBound(z, 1), UBound(z, 2)).Value = z
End Sub

矩阵乘法抛出下标超出范围错误

Matrix Multiplication Throwing SubScript Out of Range Error

excel

vba

matrix-multiplication