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

Вход

Регистрация

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

 

= Мир MS Excel/Уникальные значения в комбобоксах - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Уникальные значения в комбобоксах (Макросы/Sub)
Уникальные значения в комбобоксах
parovoznik Дата: Воскресенье, 08.05.2016, 14:04 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 450
Репутация: 26 ±
Замечаний: 0% ±

Excel 2013
Добрый день.
На форме есть три комбобокса и лист со списком. Как получить уникальные(неповторяющиеся) значения в комбобоксах?
Для первого код работает, а как прописать код ,что бы работало и для второго и третьего комбобоксов?
К сообщению приложен файл: __.xlsm (24.7 Kb)
 
Ответить
СообщениеДобрый день.
На форме есть три комбобокса и лист со списком. Как получить уникальные(неповторяющиеся) значения в комбобоксах?
Для первого код работает, а как прописать код ,что бы работало и для второго и третьего комбобоксов?
Автор - parovoznik
Дата добавления - 08.05.2016 в 14:04
wild_pig Дата: Воскресенье, 08.05.2016, 14:17 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 518
Репутация: 97 ±
Замечаний: 0% ±

2003, 2013
Вариант на словарях
К сообщению приложен файл: 6762917.xls (45.5 Kb)
 
Ответить
СообщениеВариант на словарях
Автор - wild_pig
Дата добавления - 08.05.2016 в 14:17
parovoznik Дата: Воскресенье, 08.05.2016, 14:42 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 450
Репутация: 26 ±
Замечаний: 0% ±

Excel 2013
wild_pig, спасибо вариант хорош.
А можно расшифровать эти строчки кода:
[vba]
Код
With CreateObject("Scripting.Dictionary")
For i = LBound(arr) To UBound(arr)
.Item(arr(i, 1)) = ""
Next
Me.ComboBox1.List = .Keys
End With
[/vba]
[moder]Оформите код тегами (кнопка #)[/moder]


Сообщение отредактировал parovoznik - Воскресенье, 08.05.2016, 21:12
 
Ответить
Сообщениеwild_pig, спасибо вариант хорош.
А можно расшифровать эти строчки кода:
[vba]
Код
With CreateObject("Scripting.Dictionary")
For i = LBound(arr) To UBound(arr)
.Item(arr(i, 1)) = ""
Next
Me.ComboBox1.List = .Keys
End With
[/vba]
[moder]Оформите код тегами (кнопка #)[/moder]
Автор - parovoznik
Дата добавления - 08.05.2016 в 14:42
wild_pig Дата: Воскресенье, 08.05.2016, 16:02 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 518
Репутация: 97 ±
Замечаний: 0% ±

2003, 2013
Удалено администрацией - ТС не исправил свой пост выше согласно замечанию модератора
[moder]Пост выше исправил. А ниже еще накосячил зачем-то.


Сообщение отредактировал _Boroda_ - Вторник, 10.05.2016, 13:25
 
Ответить
СообщениеУдалено администрацией - ТС не исправил свой пост выше согласно замечанию модератора
[moder]Пост выше исправил. А ниже еще накосячил зачем-то.
Автор - wild_pig
Дата добавления - 08.05.2016 в 16:02
parovoznik Дата: Воскресенье, 08.05.2016, 21:15 | Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 450
Репутация: 26 ±
Замечаний: 0% ±

Excel 2013
[vba]
Код
With CreateObject("Scripting.Dictionary")
For i = LBound(arr) To UBound(arr)
.Item(arr(i, 1)) = ""
Next
Me.ComboBox1.List = .Keys
End With
[/vba]
Прошу прокомментировать код


Сообщение отредактировал parovoznik - Понедельник, 09.05.2016, 07:42
 
Ответить
Сообщение[vba]
Код
With CreateObject("Scripting.Dictionary")
For i = LBound(arr) To UBound(arr)
.Item(arr(i, 1)) = ""
Next
Me.ComboBox1.List = .Keys
End With
[/vba]
Прошу прокомментировать код
Автор - parovoznik
Дата добавления - 08.05.2016 в 21:15
wild_pig Дата: Воскресенье, 08.05.2016, 21:49 | Сообщение № 6
Группа: Проверенные
Ранг: Обитатель
Сообщений: 518
Репутация: 97 ±
Замечаний: 0% ±

2003, 2013
Выделяем написанное и тогда жмём кнопочку "#" :)
 
Ответить
СообщениеВыделяем написанное и тогда жмём кнопочку "#" :)
Автор - wild_pig
Дата добавления - 08.05.2016 в 21:49
parovoznik Дата: Понедельник, 09.05.2016, 07:43 | Сообщение № 7
Группа: Проверенные
Ранг: Обитатель
Сообщений: 450
Репутация: 26 ±
Замечаний: 0% ±

Excel 2013
With CreateObject("Scripting.Dictionary")
For i = LBound(arr) To UBound(arr)
.Item(arr(i, 1)) = ""
Next
Me.ComboBox1.List = .Keys
End With
[moder]Чтобы оформить код тегами, надо его выделить и нажать кнопку #. И зачем в третий раз дублировать свой пост?[/moder]


Сообщение отредактировал Pelena - Понедельник, 09.05.2016, 08:16
 
Ответить
СообщениеWith CreateObject("Scripting.Dictionary")
For i = LBound(arr) To UBound(arr)
.Item(arr(i, 1)) = ""
Next
Me.ComboBox1.List = .Keys
End With
[moder]Чтобы оформить код тегами, надо его выделить и нажать кнопку #. И зачем в третий раз дублировать свой пост?[/moder]
Автор - parovoznik
Дата добавления - 09.05.2016 в 07:43
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Уникальные значения в комбобоксах (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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