Разработать макрос для определения максимального числа - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 4.222 из 5
Похожие ответы