Вычислить сумму и разность максимальных элементов матриц

Sub Main()
    
    '1. Создаём в оперативной памяти компьютера поименованные области - массивы.
    '1 To - используется, чтобы порядковый номер первой строки и столбца
        'в массиве был один, а не ноль (ноль по умолчанию).
        'Это делается для удобства написания кода, т.к. привычнее
        'считать предметы с единицы, а не с нуля.
    'Long означает, что в переменной могут быть только числа
        '(текст, например, не может быть) и числа могут быть только целые
        '(есть ещё дробные числа).
    Dim A(1 To 4, 1 To 5) As Long
    Dim B(1 To 3, 1 To 6) As Long
    
    
    '2. Создаём в оперативной памяти компьютера различные
        'поименованные области - переменные.
        'Переменные понадобятся для написания кода.
    Dim myMax_A As Long, myMax_B As Long
    Dim mySum As Long, myDifference As Long
    
    
    '3. Заполняем массивы числами, чтобы было с чем работать.
        'Т.к. работа с двумя массивами будет абсолютно одинаковая, то
        'чтобы не писать один и тот же код два раза, создам специально
        'процедуру, которая будет заполнять массивы числами.
    'Передаю в процедуру "Procedure_1" массив "A".
    Call Procedure_1(A())
    Call Procedure_1(B())
    
    
    '4. Выводим массив на Excel-лист, чтобы иметь представление,
        'что у нас за числа.
        'Второе число означает, на сколько столбцов
        'сместить массив на Excel-листе. Это нужно, чтобы
        'можно было рядом расположить два массива.
    Call Procedure_2(A(), 0)
    Call Procedure_2(B(), 6)
    
    
    '5. Нахожу максимальные элементы в массивах.
    'Передаю в процедуру "Procedure_3" массив и переменную,
        'в которую надо поместить результат.
    Call Procedure_3(A(), myMax_A)
    Call Procedure_3(B(), myMax_B)
    
    
    '6. Вычислить сумму и разность максимальных элементов этих матриц.
    mySum = myMax_A + myMax_B
    myDifference = myMax_A - myMax_B
    
    
    '7. Выводим результат на монитор.
    'Символ "&" используется для соединения фрагментов текста в одну строку.
    MsgBox "Сумма: " & mySum
    MsgBox "Разность: " & myDifference
 
 
End Sub
 
Sub Procedure_1(myArray() As Long)
 
    'Процедура, которая заполняет массив числами.
    'Числа нужны, чтобы было с чем работать.
    
    
    Dim i As Long, j As Long
 
    
    'Чтобы числа не придумывать, заполним массивы случайными
        'целыми числами по формуле, которая есть в VBA-справке.
        'Если поставить курсор на слово "Rnd" и нажать клавишу "F1",
        'то появится VBA-справка и в ней можно будет посмотреть эту формулу.
    'Заполню массив числами от - 100 до +100.
    
    'For ... To ... Step ... Next - это цикл. Цикл используется,
        'чтобы выполнять одну и ту же команду несколько раз.
    'С помощью "UBound" узнаём количество строк и столбцов:
        'myArray, 1 - количество строк;
        'myArray, 2 - количество столбцов.
    For i = 1 To UBound(myArray, 1) Step 1
        For j = 1 To UBound(myArray, 2) Step 1
            
            'Помещаем в элемент массива случайно целое число.
            myArray(i, j) = Int((100 - (-100) + 1) * Rnd + (-100))
            
        Next j
    Next i
    
End Sub
 
Sub Procedure_2(myArray() As Long, myOffset As Long)
 
    'Процедура, которая выводит массивы на Excel-лист,
        'чтобы пользователь мог посмотреть - что у него за числа в массиве.
    
    
    Dim i As Long, j As Long
    
    
    For i = 1 To UBound(myArray, 1) Step 1
        For j = 1 To UBound(myArray, 2) Step 1
            
            Cells(i, j + myOffset).Value = myArray(i, j)
            
        Next j
    Next i
 
End Sub
 
 
Sub Procedure_3(myArray() As Long, myMax As Long)
 
    'Процедура, которая находит максимальный элемент в массиве.
    
    
    Dim i As Long, j As Long
    
    
    'Сначала за максимальный элемент принимаем первый элемент
        'в массиве. Затем остальные элементы сравниваем с этим элементом.
        'Если элемент оказывает больше, то уже остальные элементы
        'сравниваются с этим новым числом.
    myMax = myArray(1, 1)
    
    For i = 1 To UBound(myArray, 1) Step 1
        For j = 1 To UBound(myArray, 2) Step 1
            
            'If ... Then ... End If - используется для выбора действия.
            'Если число в элементе массива больше числа, которое в переменной
                '"myMax", то помещаем в переменную "myMax" это новое число.
            If myArray(i, j) > myMax Then
                
                myMax = myArray(i, j)
                
            End If
            
        Next j
    Next i
 
End Sub