Не выводит максимальный элемент из матрицы - VBA
Формулировка задачи:
Взять матрицу M x N. Определить максимальный элемент каждой строки. Выделить их цветом. M=4, N=6.
Все вроде работает, но, почему-то не выводит в E6 и F6, куда выходит максимальный элемент.Решение задачи: «Не выводит максимальный элемент из матрицы»
textual
Листинг программы
Sub laba12() ' ' laba12 ГЊГ*êðîñ ' adasdas ' Cells.Clear Dim rng_1 As Range Dim n As Byte Dim m As Byte Dim Max1 As Byte n = InputBox("кол-во в высоту", , 4) m = InputBox("в ширину", , 6) For i = 1 To n For j = 1 To m Cells(i, j) = Int(Rnd * 100) + 1 Next Next For i = 1 To m Set rng_1 = Range(Cells(1, i), Cells(n, i)) Max1 = Application.WorksheetFunction.Max(rng_1) Cells(n + 1, i) = "=" Cells(n + 2, i) = Max1 Next i End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д