VBA. Excel. Задан массив E(5, 5) и число а. Найти количество элементов, равных по значению а. Элементы массива из ячеек таблицы Excel. Значение a - ввод на клавиатуре (MsgBox). Вывод также в MsgBox

Для контроля массив заполняется случайными числами. Если заполнять автоматически не надо, то выделенные строки можно исключить, размерность массива изменить и вводить вручную (или считывать из файла)
DIM A(5, 5)
RANDOMIZE TIMER
FOR I = 1 TO 5
    FOR J = 1 TO 5
        A(I, J) = RND(1) * 10 -  RND(1)*5
        PRINT A(I, J); " ";
        IF I = 1 AND J = 1 THEN
            MAX = A(I, J)
            MIN = A(I, J)
        END IF       
        IF MIN > A(I, J) THEN MIN = A(I, J)
        IF MAX < A(I, J) THEN MAX = A(I, J)
    NEXT J
    PRINT
NEXT I
PRINT "MAX="; MAX, "MIN="; MIN
L = INT(MAX) - ABS(FIX(MIN))
PRINT "L="; L

Считаем, сколько пройдёт минут после 2N+1 урока: 
(2N + 1)*45 - число минут собственно на учёбу
N * 15 - число минут на длинные перерывы
N * 5 - число минут на короткие перерывы

Считаем, сколько пройдёт минут после 2N уроков: 
2N*45 - число минут собственно на учёбу
(N - 1) * 15 - число минут на длинные перерывы
N * 5 - число минут на короткие перерывы

В общем случае, после M уроков (сравниваем ответы):
M*45 - число минут собственно на учёбу
(M div 2 - (M+1) mod 2) * 15 - число минут на длинные перерывы
(M div 2) * 5 - число минут на короткие перерывы

Т.о., время T (в минутах) можно найти по формуле:
T = M*45 + (M div 2 - (M+1) mod 2) * 15 + (M div 2) * 5

Если нужно привести к формату H:M, то
H = 9 + (T div 60)
M = T mod 60