В VBA

дана матрица. размерности 5 на 5. Поменять в каждой строке минимальный и максимальный элементы.

ввод с клавиатуры в лист exel

не нужны кнопки и лишние атрибуты, просто код на уровне дет. сада

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

Sub abc ()

a = Selection. Value

For i = 1 To UBound (a, 1)

aMin = a (i, 1) : aMax = aMin

jMin = 1: jMax = 1

For j = 2 To UBound (a, 2)

If aMin > a (i, j) Then

aMin = a (i, j) : jMin = j

End If

If aMax < a (i, j) Then

aMax = a (i, j) : jMax = j

End If

Next j

Cells (i, jMin). Value = aMax

Cells (i, jMax). Value = aMin

Next i

End Sub