Сортировка

Тема в разделе "Visual Basic", создана пользователем kriSstina, 25 май 2009.

  1. kriSstina

    kriSstina Гость

    Помогите, пожалуйста!
    Не могу справится с программированием в Excel. (((((
    Матрица A(m,n) задана произвольным образом. Нужно упорядочить каждую строку матрицы по возрастанию.
    Подкиньте хоть какие то идейки, если есть. :)
     
  2. SERGMov

    SERGMov Гость

    корявенько так слеплено за пару минут, но ты посмотри - может и пригодится ;)


    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:
     
Загрузка...

Поделиться этой страницей