Обратный порядок элементов списка 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 4.4 из 5