Пример матрицы (написать код на VB)

[Masha1990]

Тему можна закрить!!!
Всех благодарю.

[motorway]

Ну что, получилось сдать экзамен-таки (и на сколько)?

[Masha1990]

завтра на 8-00
Просто в меня не все задания были)

[Masha1990]

ище одно осталось задания доделать

[Masha1990]

Сообщение от motorway

Ну что, получилось сдать экзамен-таки (и на сколько)?

блин не получилось сдать препод сказал чтоб я обяснила каждую строку. Мож обяснить?

[Masha1990]

Люди напишите пожалуста коментари к коду етой программы.

[motorway]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' начало цикла
For i = 1 To 10
' добавляем формулы для определения максимумов по строкам
Cells(i, 11).Formula = "=MAX(A" & i & ":J" & i & ")"
' добавляем формулы для определения максимумов по столбцам
Cells(11, i).Formula = "=MAX(" & Chr(64 + i) & "1:" & Chr(64 + i) & "10)"
' добавляем в отдельную колонку значения для последующей сортировки
Cells(i, 13).Value = Cells(i, 11).Value
Cells(i + 10, 13).Value = Cells(11, i).Value
' увеличение счетчика в цикле
Next i

' начало сортировки, выделение диапазона
   Range("M1:M20").Select
    ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Clear
' добавление полей для сортировки
    ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Add Key:=Range("M1"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Лист1").Sort
        .SetRange Range("M1:M20")
' доп. параметры сортировки
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

' определение массива b
Dim b(1 To 5) As Variant
' цикл - присвоение наименьших элементов элементам массива
For j = 1 To 5
b(j) = Cells(j, 13).Value
Next j

' конец процедуры
End Sub

P.S. Понятно, что до таких ситуаций не надо доводить - ведь ему видно насквозь, если не знаете

[Masha1990]

Сообщение от motorway

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' начало цикла
For i = 1 To 10
' добавляем формулы для определения максимумов по строкам
Cells(i, 11).Formula = "=MAX(A" & i & ":J" & i & ")"
' добавляем формулы для определения максимумов по столбцам
Cells(11, i).Formula = "=MAX(" & Chr(64 + i) & "1:" & Chr(64 + i) & "10)"
' добавляем в отдельную колонку значения для последующей сортировки
Cells(i, 13).Value = Cells(i, 11).Value
Cells(i + 10, 13).Value = Cells(11, i).Value
' увеличение счетчика в цикле
Next i

' начало сортировки, выделение диапазона
   Range("M1:M20").Select
    ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Clear
' добавление полей для сортировки
    ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Add Key:=Range("M1"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Лист1").Sort
        .SetRange Range("M1:M20")
' доп. параметры сортировки
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

' определение массива b
Dim b(1 To 5) As Variant
' цикл - присвоение наименьших элементов элементам массива
For j = 1 To 5
b(j) = Cells(j, 13).Value
Next j

' конец процедуры
End Sub

P.S. Понятно, что до таких ситуаций не надо доводить - ведь ему видно насквозь, если не знаете

БЛАГОДАРЮ, ТЕПЕРЬ ТОЧНО СДАМ)