Нужно написать функцию суммирования двух одинаковых квадратных матриц в vba, как это сделать?

Нужно написать функцию суммирования двух одинаковых квадратных матриц в vba,как это сделать?

  • Эта элементарная задача линейной алгебры

    sub pp()
    for ii = 1 to 10
    for jj = 1 to 10
    cells(x3+ii,y3+jj)=cells(x1+ii,y1+jj)+cells(x2+ii,y2+jj)
    next jj
    next ii
    end sub

  • Dim A() As Double
    Dim B() As Double
    Dim Sum() As Double

    Function SumMat(n As Integer, m As Integer) As Integer
    Dim i As Integer
    Dim j As Integer

    SumMat = 0
    On Error GoTo ExitHandler

    For i = 1 To n
    For j = 1 To m
    Sum(i, j) = A(i, j) + B(i, j)
    Next j
    Next i
    SumMat = 1
    ExitHandler:

    End Function

    Sub Example()
    Dim i As Integer
    Dim j As Integer
    Dim h As Integer

    Dim n As Integer
    Dim m As Integer

    Worksheets("Лист1").Activate
    n = Range("A1").Value
    m = Range("A2").Value

    ReDim A(n, m)
    ReDim B(n, m)
    ReDim Sum(n, m)

    For i = 1 To n
    h = m * (i - 1)
    For j = 1 To m
    A(i, j) = Range("C" & i + j).Value
    B(i, j) = Range("D" & i + j).Value
    Next j
    Next i

    If SumMat(n, m) = 1 Then

    For i = 1 To n
    h = m * (i - 1)
    For j = 1 To m
    Range("F" & i + j).Value = Sum(i, j)
    Next j
    Next i
    End If

    End Sub
    VBA не самый подходящий язык для реализации вашего заданияУвеличить