Сортировка элементов листбокса

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Сортировка элементов листбокса - Мир MS Excel

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сортировка элементов листбокса (Макросы/Sub)

Сортировка элементов листбокса

Asretyq

Дата: Суббота, 09.03.2019, 18:10 | Сообщение № 1

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

Ранг: Форумчанин

Сообщений: 200

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

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

Excel 2013

Добрый вечер
Можно ли отсортировать уже имеющийся набор элементов в листбоксе??
Плохо что в vba нету функции как в некоторых языках [vba]

Код

list1.sorted = True

[/vba]

Заранее извиняюсь, но я реально не нашел конкретно, что мне нужно

К сообщению приложен файл: 4634807.xlsm (20.3 Kb)

Сообщение отредактировал Asretyq - Суббота, 09.03.2019, 18:11

Ответить

Asretyq

Дата: Суббота, 09.03.2019, 18:29 | Сообщение № 2

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

Ранг: Форумчанин

Сообщений: 200

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

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

Excel 2013

ААА, почему когда я создал тему, потом только решается самостоятельно этот вопрос)))
скинул файл

К сообщению приложен файл: 0842061.xlsm (21.5 Kb)

Ответить

Anchoret

Дата: Четверг, 14.03.2019, 14:42 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

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

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

Excel 2016

Выгрузить в массив, отсортировать, вернуть обратно.
Сортировка одномерки вставками:
[vba]

Код

Private Sub InsSort(arr)
Dim a&, b&, dd, mm
dd = arr
For a = LBound(arr) + 1 To UBound(arr)
  b = a: mm = arr(a)
  Do While dd(b - 1) > mm
    dd(b) = dd(b - 1): b = b - 1
    If b = LBound(arr) Then Exit Do
  Loop
  dd(b) = mm
Next
arr = dd
End Sub

[/vba]

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сортировка элементов листбокса (Макросы/Sub)

Страница 1 из 1
1