VBA 行列の定数倍(関数)
Function MA(arr1() As Double, a As Double) As Double()
Dim m_a() As Double
Dim i As Integer
Dim j As Integer
Dim n As Integer
Dim m As Integer
n = UBound(arr1, 2)
m = UBound(arr1, 1)
ReDim m_a(m, n)
For i = 1 To m
For j = 1 To n
m_a(i, j) = arr1(i, j) * a
Next j
Next i
MA = m_a
End Function