Найти наибольший и наименьший элемент заштрихованной части произвольно сформированной квадратной матрицы

[SkyGir]

Здравствуйте, пожалуйста помогите разобраться с этой нелегкой задачей. Язык VBA, заранее спасибо!Скриншот 2019-05-26 17_00_24.png

[Aleksandr H.]

На форуме гдето даже таблица была определения сегментов этих, так что ни.а она не сложная

[ViktorR]

В этом же разделе есть тема: Важно:Типичные задачи и примеры. Теория. см. 4-ю строку
Тут есть необходимое для начала.
А вот какие условия выставить для индексов элементов вашей задачи - следует подумать, но это не сложно.

[SkyGir]

Я конечно понимаю, что для Вас, опытных программистов, это не сложно, но для меня, человека, который 23 дня всего изучает эту тему, она сложная, но все равно спасибо

[SkyGir]

8.

Sub VAR_8()
    Range("A1:K11").Interior.ColorIndex = xlNone
    Min = Cells(1, 1)
    Max = Cells(1, 1)
    For i = 1 To 6
        For j = i To 12 - i
            Cells(i, j).Interior.ColorIndex = 15
            If Cells(i, j).Value <= Min Then Min = Cells(i, j).Value
            If Cells(i, j).Value >= Max Then Max = Cells(i, j).Value
        Next
    Next
    [o2].Value = Min
    [p2].Value = Max
End Sub

9.

Sub VAR_9()
    Range("A1:K11").Interior.ColorIndex = xlNone
    Min = Cells(1, 11)
    Max = Cells(1, 11)
    For j = 11 To 6 Step -1
        For i = 12 - j To j
            Cells(i, j).Interior.ColorIndex = 15
            If Cells(i, j).Value <= Min Then Min = Cells(i, j).Value
            If Cells(i, j).Value >= Max Then Max = Cells(i, j).Value
        Next
    Next
    [o2].Value = Min
    [p2].Value = Max
End Sub

10.

Sub VAR_10()
    Range("A1:K11").Interior.ColorIndex = xlNone
    Min = Cells(11, 1)
    Max = Cells(11, 1)
    For i = 6 To 11
        For j = 12 - i To i
            Cells(i, j).Interior.ColorIndex = 15
            If Cells(i, j).Value <= Min Then Min = Cells(i, j).Value
            If Cells(i, j).Value >= Max Then Max = Cells(i, j).Value
        Next
    Next
    [o2].Value = Min
    [p2].Value = Max
End Sub

11.

Sub VAR_11()
    Range("A1:K11").Interior.ColorIndex = xlNone
    Min = Cells(1, 1)
    Max = Cells(1, 1)
    For i1 = 1 To 6
        For j1 = i1 To 12 - i1
            Cells(i1, j1).Interior.ColorIndex = 15
            If Cells(i1, j1).Value <= Min Then Min = Cells(i1, j1).Value
            If Cells(i1, j1).Value >= Max Then Max = Cells(i1, j1).Value
        Next
    Next
    For i = 6 To 11
        For j = 12 - i To i
            Cells(i, j).Interior.ColorIndex = 15
            If Cells(i, j).Value <= Min Then Min = Cells(i, j).Value
            If Cells(i, j).Value >= Max Then Max = Cells(i, j).Value
        Next
    Next
    [o2].Value = Min
    [p2].Value = Max
End Sub

12.

Sub VAR_12()
    Range("A1:K11").Interior.ColorIndex = xlNone
    Min = Cells(1, 1)
    Max = Cells(1, 1)
    For j1 = 1 To 6
        For i1 = j1 To 12 - j1
            Cells(i1, j1).Interior.ColorIndex = 15
            If Cells(i1, j1).Value <= Min Then Min = Cells(i1, j1).Value
            If Cells(i1, j1).Value >= Max Then Max = Cells(i1, j1).Value
        Next
    Next
    For j2 = 11 To 6 Step -1
        For i2 = 12 - j2 To j2
            Cells(i2, j2).Interior.ColorIndex = 15
            If Cells(i2, j2).Value <= Min Then Min = Cells(i2, j2).Value
            If Cells(i2, j2).Value >= Max Then Max = Cells(i2, j2).Value
        Next
    Next
    For i = 6 To 11
        For j = 12 - i To i
            Cells(i, j).Interior.ColorIndex = 15
            If Cells(i, j).Value <= Min Then Min = Cells(i, j).Value
            If Cells(i, j).Value >= Max Then Max = Cells(i, j).Value
        Next
    Next
    [o2].Value = Min
    [p2].Value = Max
End Sub

13.

Sub VAR_13()
    Range("A1:K11").Interior.ColorIndex = xlNone
    Min = Cells(1, 1)
    Max = Cells(1, 1)
    For i = 1 To 11
        For j = 1 To 12 - i
            Cells(i, j).Interior.ColorIndex = 15
            If Cells(i, j).Value <= Min Then Min = Cells(i, j).Value
            If Cells(i, j).Value >= Max Then Max = Cells(i, j).Value
        Next
    Next
    [o2].Value = Min
    [p2].Value = Max
End Sub

Вот решение для всех этих задач. Может кому поможет в учебе