Помогите, пожалуйста!
Не могу справится с программированием в Excel. (((((
Матрица A(m,n) задана произвольным образом. Нужно упорядочить каждую строку матрицы по возрастанию.
Подкиньте хоть какие то идейки, если есть.
корявенько так слеплено за пару минут, но ты посмотри - может и пригодится
Private Sub CommandButton1_Click()
'Заполняем случайную матрицу (для наглядности - целыми числами)
For i = 1 To 5
Range("A" & i).Formula = CInt(Rnd() * 10)
Range("B" & i).Formula = CInt(Rnd() * 10)
Range("C" & i).Formula = CInt(Rnd() * 10)
Range("D" & i).Formula = CInt(Rnd() * 10)
Range("E" & i).Formula = CInt(Rnd() * 10)
Next i
'*********
MyMsg = MsgBox("Сортируем?", vbCritical)
'*********
'Сортируем построчно по возрастанию
For i = 1 To 5
Rows(i & ":" & i).Select
Selection.Sort Key1:=Range("A" & i), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight
Next i
End Sub
ЗЫ Вопрос к админам: пытался загрузить в посте экселевский файл с кодом - грят " Вам запрещено загружать файлы данного типа" - это че за фигня??? :huh:
