Разработать макрос для определения максимального числа - VB
Формулировка задачи:
Разместить в диапазоне ячеек B5 - I5 целые положительные и отрицательные числа. Разработать макрос для определения максимального числа. Вывести на рабочий лист найденное значение и сумму максимальных значений.
Решение задачи: «Разработать макрос для определения максимального числа»
textual
Листинг программы
Sub Main() Dim i As Integer, max As Single, sum As Single max = Range("B5") For i = 1 To Range("B5:I5").Columns.Count If Cells(5, 1 + i) > max Then max = Cells(5, 1 + i) Next i For i = 1 To Range("B5:I5").Columns.Count If Cells(5, 1 + i) = max Then sum = sum + Cells(5, 1 + i) Next i Cells(3, 1) = "Sum=" & sum: Cells(3, 2) = "Max = " & max End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д