Вывод значений отсортированного массива в ячейку.

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Вывод значений отсортированного массива в ячейку. (Формулы/Formulas)

ant6729

Дата: Четверг, 27.07.2017, 21:32 | Сообщение № 1

Группа: Проверенные

Ранг: Ветеран

Сообщений: 533

Репутация: 2 ±

Замечаний: 40% ±

Excel 2010

Добрый вечер, есть не отсортированные данные в массиве
Как их вывести в отсортированном варианте в произвольную ячейку, например, в A1?

[vba]

Код

Public Sub tm()

time = Array("2:45:00", "1:02:24", "3:01:12")

End Sub

[/vba]

Чтобы там получилось "1:02:24", "2:45:00", "3:01:12"

Просьба перенести тему в VBA
PS поменяйте форму изображение для ввода пароля на отправку сообщений модератору...ничего не различить...

Сообщение отредактировал ant6729 - Четверг, 27.07.2017, 22:50

Ответить

InExSu

Дата: Четверг, 27.07.2017, 22:53 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 648

Репутация: 96 ±

Замечаний: 0% ±

Excel 2010, 365

[vba]

Код

Public Sub tm_InExSu()
  Dim arr, вЯчейку, СимволРазделитель
  СимволРазделитель = "; "
  arr = Array("2:45:00", "1:02:24", "3:01:12")

  For i& = LBound(arr) To UBound(arr) - 1 'http://excelvba.ru/code/SortArray
    For j& = LBound(arr) To UBound(arr) - 2 - i
      If arr(j) > arr(j + 1) Then Tmp = arr(j): arr(j) = arr(j + 1): arr(j + 1) = Tmp
    Next j
  Next i

  For i& = LBound(arr) To UBound(arr)
    вЯчейку = arr(i) & СимволРазделитель & вЯчейку
  Next
  Range("a1").Value = вЯчейку
End Sub

[/vba]