e ("G4") = "Рядок
" Sheet4.Range ("H4") = "Max"
For i = 1 To n
s = A (i, 1) 'max
Sheet4.Cells (i + 4, 7) = i
For j = 2 To n
If s
s = A (i, j)
End If
Next j
Sheet4.Cells (i + 4, 9) = s
Next i
End Sub
В
Sub rab6 (n As Variant)
Call getA
Sheet4.Activate
Call InitS
Sheet4.Range ("H3") = "Max елементи по
стовпцями "
Sheet4.Range ("G4") = "Стовпець "
Sheet4.Range ("H4") = "Max"
For j = 1 To n
s = A (1, j) 'max
Sheet4.Cells (j + 4, 7) = j
For i = 2 To n
If s
s = A (i, j)
End If
Next i
Sheet4.Cells (j + 4, 9) = s
Next j
End Sub
Список використаної літератури
А.Васильєв, А.Андреев. VBA в Office 2000. Навчальний курс. С-Пб.: "Пітер", 2001
Білліг В.А. Засоби розробки VBA-програміста. Офісне програмування. Том 1. М.: Видавничо-торговий дім "Російська Редакція" , 2001 .
Білліг В.А. Світ об'єктів Excel 2000. М.: Видавничо-торговий дім "Російська Редакція ", 2001.
В . І . Король . Visual Basic 6.0, Visual Basic for Applications 6.0. Мова програмування. Довідник з прикладами. М.: Видавництво КУДИЦ , 2000.
