VBA ベクトルの差(関数)
Function a_b(arr1() As Double, arr2() As Double) As Double()
Dim kadai_7() As Double
ReDim kadai_7(UBound(arr1))
Dim i As Integer
For i = 1 To UBound(arr1)
kadai_7(i) = arr1(i) - arr2(i)
Next i
a_b = kadai_7
End Function
Function a_b(arr1() As Double, arr2() As Double) As Double()
Dim kadai_7() As Double
ReDim kadai_7(UBound(arr1))
Dim i As Integer
For i = 1 To UBound(arr1)
kadai_7(i) = arr1(i) - arr2(i)
Next i
a_b = kadai_7
End Function