Обратный порядок элементов списка ComboBox'a - VBA
Формулировка задачи:
Здравствуйте уважаемые гуру.
Собрал из нескольких источников функцию сортировки по порядку элементов списка комбобокса (список берется из ячеек).
Не хватает знаний сделать так, чтобы список был в обратном порядке.
В идеале, конечно, чтобы можно было выбрать - прямой (по алфавиту) или обратный порядок.
Файл с функцией, примером и комментариями прикрепил.
Буду рад за любую оказанную помощь... (ну или наводку)
P.S. Так на всякий случай, чтобы с толку не сбило, там еще прикручена функция сортировки уникальных (не повторяющихся) значений.
Решение задачи: «Обратный порядок элементов списка ComboBox'a»
textual
Листинг программы
Private Sub CheckBox1_Click() Dim i%, lb2() ReDim lb2(0 To UBound(ComboBox1.List)) For i = UBound(ComboBox1.List) To 0 Step -1 lb2(n) = ComboBox1.List(i): n = n + 1 Next ComboBox1.List = lb2 End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д