Sub Mas6()
Dim i As Integer
Dim j As Integer
Dim x(1 To 30, 1 To 11) As Single
Dim S As Single
Worksheets("Лист1").Activate
For i = 1 To 30
For j = 1 To 11
x(i, j) = Cells(i, j)
Next j
Next i
maximal = x(1, 1)
For i = 1 To 30
For j = 1 To 11
If x(i, j) > maximal And x(i, j) > 0 Then maximal = x(i, j)
Next j
Next i
MsgBox maximal
For i = 1 To 30
For j = 1 To 11
If Cells(i, j) = maximal Then
Range(Cells(i, 1), Cells(i, 11)).Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End If
Next j
Next i
End SubЗадание звучит так: Найти максимальное число в каждой строке. Выбрать строку с наибольшим максимальным. Покрасить в другой цвет. Домножить содержимое ячеек этой строки, начиная со столюца I на содержимое ячейки G.
вот нужно ещё сделать : домножить содержимое ячеек этой строки, начиная со столюца I на содержимое ячейки G.Помоги те люди
