ComboBox - выбор отсортированных, неповторяющихся данных / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / ComboBox - выбор отсортированных, неповторяющихся данных

14 сообщений из 14, страница 1 из 1

ComboBox - выбор отсортированных, неповторяющихся данных

#37384037

Участник

Сообщения: 89

Рейтинг: 0 / 0

Добрый день!
W7, Excel 2003
Подскажите как можно реализовать по другому (более продуктивно)?

Ситуация следущая:
Для выбора неповторяющихся данных использую процедуру

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.

Private Sub UniqueItems()
    With Me.modelTS
         iMassiv = .List
         For iCount& = .ListCount -  1  To  0  Step - 1 
             If iCount& <> Application.Match(iMassiv(iCount&,  0 ), _
             iMassiv,  0 ) -  1  Then .RemoveItem iCount&
         Next
    End With
End Sub

Для сортировки этих данных (именно по столбцу G), записал с помощью мастера, макрос

Код: plaintext

1.
2.
3.
4.
5.
6.
7.

Sub sortirovkaG()
    ActiveWindow.SmallScroll Down:=- 12 
    Cells.Select
    Selection.Sort Key1:=Range("G1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:= 1 , MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortTextAsNumbers
    Range("G1").Select
End Sub

Для подстановки данных в combobox использую

Код: plaintext

1.
2.
3.
4.
5.
6.
7.

Private Sub UserForm_Initialize()
    HideTitleBar Me
    sortirovkaG
'    modelTS.List = Range("base!E1:E150").Address
    iMassiv = Range("base!G1:G50").Value
    modelTS.List = iMassiv
    UniqueItems
End Sub

вроде бы все работает, но меня смущает сортировка, а вдруг понадобится из этого же листа еще один (в другом комбобоксе) отсортированный список другого столбца, что делать?

Подскажите какие либо идеи.

Спасибо.

...

Рейтинг:

0 / 0

07.08.2011, 14:02

| Ответить | Цитировать | Написать

ComboBox - выбор отсортированных, неповторяющихся данных

#37384169

kuklp

Гость

G., Для КБ вполне подойдет пузырек:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.

Function BubbleSort(ByRef vArr As Variant)
    Dim q&, j&, vTemp$: j =  0 
    On Error GoTo L1
    For q =  1  To UBound(vArr)
        If vArr(j) > vArr(q) Then
            vTemp = vArr(j)
            vArr(j) = vArr(q)
            vArr(q) = vTemp
            q = q -  2 : j = j -  2 
        End If
        j = j +  1 
    Next
L1:     If Err >  0  Then j =  0 : q =  1 : Resume
    BubbleSort = vArr
End Function

Передаете в нее массив - на выходе получаете отсортированный.

...

Рейтинг:

0 / 0

07.08.2011, 16:50

| Ответить | Цитировать | Написать

ComboBox - выбор отсортированных, неповторяющихся данных

#37384174

Участник

Сообщения: 89

Рейтинг: 0 / 0

kuklp, спасибо, что отозвались, можно поподробней, я только начинаю изучать.

...

Рейтинг:

0 / 0

07.08.2011, 16:55

| Ответить | Цитировать | Написать

ComboBox - выбор отсортированных, неповторяющихся данных

#37384306

kuklp

Гость

G.,
Да объяснять-то в общем нечего. Например:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.

Private Sub UserForm_Initialize()
    HideTitleBar Me
    sortirovkaG
'    modelTS.List = Range("base!E1:E150").Address
    iMassiv = Range("base!G1:G50").Value
    iMassiv =BubbleSort(iMassiv)' или сразу iMassiv = BubbleSort(Range("base!G1:G50").Value)
    modelTS.List = iMassiv
    UniqueItems
End Sub

П.С. я бы сначала выбрал уникальные, отсортировал, а только потом совал бы их в .list. Быстрей и технологичней.

...

Рейтинг:

0 / 0

07.08.2011, 20:27

| Ответить | Цитировать | Написать

ComboBox - выбор отсортированных, неповторяющихся данных

#37384760

Игорь Горбонос

Участник

Откуда: Днепропетровск

Сообщения: 4 416

Рейтинг: 0 / 0

> Автор: G.
> Добрый день!
> W7, Excel 2003
> Подскажите как можно реализовать по другому (более продуктивно)?
> Для выбора неповторяющихся данных использую процедуру
> Подскажите какие либо идеи.

Можно попробовать дать задание Екселю выбрать уникальные:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.

Private Sub UniqueList()
Dim r As Range
Dim s As Worksheet, sh As Worksheet, w1 As Workbook

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

Set sh = Application.ActiveSheet
If sh.AutoFilter Is Nothing Then
    MsgBox "Установите автофильтр"
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    Exit Sub
End If

Set w1 = Application.Workbooks.Add

Set s = w1.Worksheets.Add

' Получаем список уникальных комбинаций
Set r = s.Range("a1")
sh.Range("A:C").AdvancedFilter xlFilterCopy, , r, True
' В новой книге будет список уникальных комбинаций данных из столбцов А, В и С

Application.DisplayAlerts = True
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

End Sub

Posted via ActualForum NNTP Server 1.4

...

Рейтинг:

0 / 0

08.08.2011, 10:46

| Ответить | Цитировать | Написать

ComboBox - выбор отсортированных, неповторяющихся данных

#37389525

Участник

Сообщения: 89

Рейтинг: 0 / 0

Спасибо всем.

...

Рейтинг:

0 / 0

10.08.2011, 16:07

| Ответить | Цитировать | Написать

ComboBox - выбор отсортированных, неповторяющихся данных

#37391208

-O_o-

Участник

Откуда: Киев

Сообщения: 920

Рейтинг: 0 / 0

День добрый всем! У меня подобная ситуация НО:
Делаю сейчас БД в ЕКСЕЛЬ для автоматизации своей работы. Сейчас есть у меня вопрос. Как в Комбобокс загнать массив данных который все время будет изменяться увеличиваться и уменьшаться. Что бы в Комбобокс отображались только значения без пустых ячеек. Я указал в Комбобокс rowsource =aaa
Спасибо.

...

Рейтинг:

0 / 0

11.08.2011, 15:34

| Ответить | Цитировать | Написать

ComboBox - выбор отсортированных, неповторяющихся данных

#37391270

kuklp

Гость

-O_o-, так.

...

Рейтинг:

0 / 0

11.08.2011, 16:01

| Ответить | Цитировать | Написать

ComboBox - выбор отсортированных, неповторяющихся данных

#37391293

kuklp

Гость

Убрал лишнее.

...

Рейтинг:

0 / 0

11.08.2011, 16:08

| Ответить | Цитировать | Написать

ComboBox - выбор отсортированных, неповторяющихся данных

#37391337

-O_o-

Участник

Откуда: Киев

Сообщения: 920

Рейтинг: 0 / 0

kuklp,
Спасибо!!! когда вижу столько переменных, да еще и действия над и с ними, то голова идет кругом не программер я!!!! ну да ладно.
А подскажите еще такое... по тому же примеру. Ели я хочу записать значение которое выбрано в combobox в какую-то ячейку, то он записывает только первый столбец с лева. В моем случае это ID. А как сделать так что бы записывал name?

...

Рейтинг:

0 / 0

11.08.2011, 16:27

| Ответить | Цитировать | Написать

ComboBox - выбор отсортированных, неповторяющихся данных

#37391352

kuklp

Гость

-O_o-,

Код: plaintext

1.
2.

Private Sub ComboBox1_Change()
    [c1].Value = ComboBox1.Value
End Sub

...

Рейтинг:

0 / 0

11.08.2011, 16:33

| Ответить | Цитировать | Написать

ComboBox - выбор отсортированных, неповторяющихся данных

#37391365

-O_o-

Участник

Откуда: Киев

Сообщения: 920

Рейтинг: 0 / 0

kuklp,
спасибо. оно и так стало добавлять после создания списка. спс

...

Рейтинг:

0 / 0

11.08.2011, 16:40

| Ответить | Цитировать | Написать

ComboBox - выбор отсортированных, неповторяющихся данных

#37391377

kuklp

Гость

-O_o-,
в Вашем Варианте для отображения значений надо было:

Код: plaintext

1.
2.

Private Sub ComboBox1_Change()
    [c1].Value = ComboBox1.List(ComboBox1.ListIndex,  1 )
End Sub

...

Рейтинг:

0 / 0

11.08.2011, 16:46

| Ответить | Цитировать | Написать

ComboBox - выбор отсортированных, неповторяющихся данных

#37391380

-O_o-

Участник

Откуда: Киев

Сообщения: 920

Рейтинг: 0 / 0

kuklp,
у меня чуть-чуть другая форма... все пока что работает нормалек.

...

Рейтинг:

0 / 0

11.08.2011, 16:48

| Ответить | Цитировать | Написать

14 сообщений из 14, страница 1 из 1

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / ComboBox - выбор отсортированных, неповторяющихся данных

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&fpage=123&tid=2176597]:	0ms
get settings:	11ms
get forum list:	16ms
check forum access:	4ms
check topic access:	4ms
track hit:	45ms
get topic data:	8ms
get forum data:	2ms
get page messages:	51ms
get tp. blocked users:	2ms
others:	240ms

total:	383ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы