Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сортировка элементов листбокса (Макросы/Sub)
Сортировка элементов листбокса
Asretyq Дата: Суббота, 09.03.2019, 18:10 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 180
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Добрый вечер
Можно ли отсортировать уже имеющийся набор элементов в листбоксе??
Плохо что в vba нету функции как в некоторых языках [vba]
Код
list1.sorted = True
[/vba] :)
Заранее извиняюсь, но я реально не нашел конкретно, что мне нужно
К сообщению приложен файл: 4634807.xlsm(20.3 Kb)


Сообщение отредактировал Asretyq - Суббота, 09.03.2019, 18:11
 
Ответить
СообщениеДобрый вечер
Можно ли отсортировать уже имеющийся набор элементов в листбоксе??
Плохо что в vba нету функции как в некоторых языках [vba]
Код
list1.sorted = True
[/vba] :)
Заранее извиняюсь, но я реально не нашел конкретно, что мне нужно

Автор - Asretyq
Дата добавления - 09.03.2019 в 18:10
Asretyq Дата: Суббота, 09.03.2019, 18:29 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 180
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
ААА, почему когда я создал тему, потом только решается самостоятельно этот вопрос)))
скинул файл
К сообщению приложен файл: 0842061.xlsm(21.5 Kb)
 
Ответить
СообщениеААА, почему когда я создал тему, потом только решается самостоятельно этот вопрос)))
скинул файл

Автор - Asretyq
Дата добавления - 09.03.2019 в 18:29
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]
 
Ответить
СообщениеВыгрузить в массив, отсортировать, вернуть обратно.
Сортировка одномерки вставками:
[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]

Автор - Anchoret
Дата добавления - 14.03.2019 в 14:42
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сортировка элементов листбокса (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!