Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
сортировка в комбобокс
 
#1
28.12.2008 13:36:09
извеняюсь если было но найти не смог  
возможна ли сделать чтобы отображаемые данные в комбо бокс  
сортировались независимо от данных из исходного диапазона  
т.е. допустим у мня на листе 1,5,8,3, так и должно остаться  
а в комбо соответстно 1,3,5,8 и т.п.
 
 
 
#2
28.12.2008 13:41:46
все нашел    
разбираться пошел
 
 
 
#3
28.12.2008 13:47:20
блин вопрос назад  
не работает то что нашел
 
 
 
#4
28.12.2008 13:54:20
как всегда, пример в студию.
 
 
 
#5
28.12.2008 14:15:48
вот пример соорудил  
спасибо заранее
 
 
 
#6
28.12.2008 15:02:33
Выкладываю пример удаления дубликатов из Боксов.  
Т.к. метода Sort у ComboBox-в в VBA нет, я думаю есть смысл Вам помещать уникальные значения на др. лист, там сортировать и потом заносить в ComboBox.  
Но может, кто на форуме знает другой способ.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#7
28.12.2008 15:15:17
Вот вместе с сортировкой. Сортирует, как я и описыва выше - методом копирования на др.лист
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#8
28.12.2008 15:33:04
на последний ругается  
Run-time error '438':  
Object doesn't support this property or method  
посылает на  
Next Item  
   ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Clear  
   ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Add Key:=Range("A1"), _
 
 
 
#9
28.12.2008 15:50:25
Посмотрите пример
 
 
 
#10
28.12.2008 15:52:49
Наверное методы сортировки в Excel 2007 и 2003 различаются. У меня 2007.  
Попробуйте записать сортировку диапазаона макрорекордером и результат вставить в макрос.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#11
28.12.2008 16:16:54
Вот пример от Уокенбаха. Сортирует и отображает только уникальные.
 
 
 
#12
28.12.2008 17:09:48
Юрий, отличный пример!
 
 
 
#13
28.12.2008 18:09:44
Вы меня извините что не в тему... но как Вы делаете такие  не редактируемые кнопки, даже в режиме конструктора,  научите :-)
 
 
 
#14
28.12.2008 18:13:14
{quote}{login=Verba}{date=28.12.2008 06:09}{thema=}{post}Вы меня извините что не в тему... но как Вы делаете такие  не редактируемые кнопки, даже в режиме конструктора,  научите :-){/post}{/quote}  
Разобрался , оказывается она реагирует на ПКМ
 
 
 
#15
28.12.2008 19:11:07
Это кнопка не с панели инструментов "Элементы управления", а с панели инструментов "Формы". Она поактивней реагирует на нажатие мыши и её сразу можно привязать к какому-нибудь макросу. Для её свойств щёлкните на ней правой клавишей мыши (как вы уже сказали)
 
 
 
#16
29.12.2008 06:57:16
в общем такой вопрос на листе ПЧД есть два списка один не изменяемый  
второй такой же только имеет возможность добавления через юзерформ7  
т.е. дописывает в конец  
мне необходима сортировка  по комбо 9.10.11 (сопровождение)  
по списку 2 (b34:b150)  
 
все выложеные примеры в итоге выдают type mismath  
помогите господа
 
 
 
#17
29.12.2008 06:58:00
извиняюсь забыл вложение
 
 
 
#18
29.12.2008 10:43:12
{quote}{login=Юрий М}{date=28.12.2008 04:16}{thema=}{post}Вот пример от Уокенбаха. Сортирует и отображает только уникальные.{/post}{/quote}  
Я только не очень понимаю КАК его можно применить в жизни.. может кто подскажет.. хотя пример действительно очень красивый.
 
 
 
#19
29.12.2008 15:47:49
пример утрированый  
в проекте документов гораздо больше  
но те примеры которые выложены у меня почему то не хотят работать
 
 
 
#20
29.12.2008 16:07:35
{quote}{login=Микки}{date=29.12.2008 10:43}{thema=Re: }{post}{quote}{login=Юрий М}{date=28.12.2008 04:16}{thema=}{post}Вот пример от Уокенбаха. Сортирует и отображает только уникальные.{/post}{/quote}  
Я только не очень понимаю КАК его можно применить в жизни.. может кто подскажет.. хотя пример действительно очень красивый.{/post}{/quote}  
вот еще    
 
For i = 1 To UBound(Massiv0)  
For j = i + 1 To UBound(Massiv0)  
'"<" - ïî óáûâàíèþ;  
'">" - ïî âîçðàñòàíèþ  
If Massiv0(i) > Massiv0(j) Then  
n = Massiv0(i)  
Massiv0(i) = Massiv0(j)  
Massiv0(j) = n  
End If  
Next j  
Next i
 
 
 
#21
29.12.2008 16:08:47
'"<" - ïî óáûâàíèþ;  
'">" - ïî âîçðàñòàíèþ  
 
 
не обращайте на это внимание :)  
это коменты  
'"<" - по убыванию;  
'">" - по возрастанию
 
 
 
#22
29.12.2008 16:14:18
Посмотрите список в первом КомбоБоксе
 
 
 
#23
30.12.2008 04:17:02
всем огромное спасибо  
я еще не совсем разбираюсь в VBA  
дело было в  
Call FillCombo  
тему можно закрывать  
все получилось
 
 
 
Страницы: 1
Читают тему
Наверх