Разработать макрос для определения максимального числа - VB

Формулировка задачи:

Разместить в диапазоне ячеек B5 - I5 целые положительные и отрицательные числа. Разработать макрос для определения максимального числа. Вывести на рабочий лист найденное значение и сумму максимальных значений.

                    Листинг программы
                
 
                        
                          
                    
Option Explicit
Public Sub searchMax()
Dim rg As Range
Set rg = Range("B5:I5")
Dim i As Integer, maxNum As Integer
maxNum = rg.Cells(1, 1)
For i = 1 To rg.Columns.Color = vbWhite
Next i
For i = 1 To rg.Columns.Count
If rg.Cells(1, i).Value < maxNum Then
maxNum = rg.Cells(1, i).Value
End If
Next i
For i = 1 To rg.Columns.Count
If rg.Cells(1, i).Value = maxNum Then
rg.Cells(1, i).Interior.Color = vbGreen
End If
Next i
End Sub

Решение задачи: «Разработать макрос для определения максимального числа»

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы