Создание списка в Combobox с условием - Мир MS Excel

Регистрация

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

= Мир MS Excel/Создание списка в Combobox с условием - Мир MS Excel

Старая форма входа

Страница 1 из 2 1 2 »
Модератор форума: китин, _Boroda_

Создание списка в Combobox с условием (Макросы/Sub)

Создание списка в Combobox с условием

Дата: Суббота, 07.07.2018, 01:34 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 159

Репутация: 7 ±

Замечаний: 0% ±

Excel 2010

Доброго времени суток!

Необходимо создать список для combobox (Заготовительный склад: прием, № акта по ИБ "akt2") из столбца с листа Журнал ИБ столбец А, только тех значений, которых нет на листе Журнал ЗС столбце B.

В настоящее время, у меня создается полный список всего столбца, но с учетом роста базы, стало неудобно делать руками выборку. Хочется, чтобы уже обработанные акты не вылезали и не мешали.

К сообщению приложен файл: IB.xlsm (77.0 Kb)

Ответить

Дата: Суббота, 07.07.2018, 07:08 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 487

Репутация: 86 ±

Замечаний: 0% ±

Excel 2013

пожалуйста!

К сообщению приложен файл: 2736494.xlsm (76.5 Kb)

Благими намерениями выстелена дорога в АД.

Ответить

Дата: Суббота, 07.07.2018, 10:12 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 159

Репутация: 7 ±

Замечаний: 0% ±

Excel 2010

Благодарю!

А если нужно оставить только те значения в Combobox (Заготовительный склад: выдача: № "akt4") с листа "Журнал ЗС" столбец "А", которые имеют пустые ячейки в столбце "L"? К сожалению, пока так и не могу понять для себя обработку combobox. Файл тот же.

Ответить

Дата: Воскресенье, 08.07.2018, 20:18 | Сообщение № 4

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 159

Репутация: 7 ±

Замечаний: 0% ±

Excel 2010

K-SerJC, ошибка вылезла. Номера он оставляет правильные, а вот значения подтягивает не те. К примеру, в вашем файле остался акт с номером 1313, а значения он подставляет от 1293, т.е. как я понимаю первого по списку.

Ответить

Дата: Вторник, 10.07.2018, 08:34 | Сообщение № 5

Группа: Проверенные

Ранг: Обитатель

Сообщений: 487

Репутация: 86 ±

Замечаний: 0% ±

Excel 2013

Цитата Паштет, 08.07.2018 в 20:18, в сообщении № 4 ()

K-SerJC, ошибка вылезла. Номера он оставляет правильные, а вот значения подтягивает не те. К примеру, в вашем файле остался акт с номером 1313, а значения он подставляет от 1293, т.е. как я понимаю первого по списку.

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

надо немного переделать

Благими намерениями выстелена дорога в АД.

Ответить

Дата: Вторник, 10.07.2018, 08:59 | Сообщение № 6

Группа: Проверенные

Ранг: Обитатель

Сообщений: 487

Репутация: 86 ±

Замечаний: 0% ±

Excel 2013

так?

К сообщению приложен файл: 1301894.xlsm (70.7 Kb)

Благими намерениями выстелена дорога в АД.

Ответить

Дата: Вторник, 10.07.2018, 21:30 | Сообщение № 7

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 159

Репутация: 7 ±

Замечаний: 0% ±

Excel 2010

Да, так. Спасибо.
Только при попытке вставить код в полную версию файла, где только добавляются дополнительные листы и больше данных в таблицах, стала вылезать ошибка:

Цитата

run-time error 424 object required

Причем, если отменить действие строки:
[vba]

Код

cmbFilter.AddItem Sheets("Журнал ИБ").Cells(i, 1)

[/vba]
То форма без проблем запускалась. В итоге все скопировал в ваш файл и все стало работать как надо. Просто фантастика!

А с постом 3 данной темы не поможете?

Ответить

Дата: Среда, 11.07.2018, 08:54 | Сообщение № 8

Группа: Проверенные

Ранг: Обитатель

Сообщений: 487

Репутация: 86 ±

Замечаний: 0% ±

Excel 2013

Цитата Паштет, 10.07.2018 в 21:30, в сообщении № 7 ()

Только при попытке вставить код в полную версию файла,

это от того что я на форму добавил элемент управления
cmbFilter типа combobox

можете форму smk скопировать в свой файл и тоже будет работать.

по посту №3
вот этот код:
[vba]

Код

i = 5
     Do While Sheets("Журнал ИБ").Cells(i, 1) <> 0
     akt2.AddItem Sheets("Журнал ИБ").Cells(i, 1)
        If Not НетЖурналЗС(Sheets("Журнал ИБ").Cells(i, 1).Value) Then
        cmbFilter.AddItem Sheets("Журнал ИБ").Cells(i, 1)
              End If
               i = i + 1
    Loop

[/vba]
заполняет список всеми значениями с листа Журнал ИБ
использует функцию НетЖурналЗС, которая проверяет есть ли этот номер в другом журнале и заполняет список cmbFilter
на форме вы кликаете по списку cmbFilter
а он выбранное значение передает в список акт2.

можно добавить нужный вам фильтр как еще одну функцию, или эту же расширить

Благими намерениями выстелена дорога в АД.

Ответить

Дата: Среда, 11.07.2018, 09:56 | Сообщение № 9

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 159

Репутация: 7 ±

Замечаний: 0% ±

Excel 2010

Цитата

это от того что я на форму добавил элемент управления
cmbFilter типа combobox

Понял, что чего-то не хватает, но не ожидал, что это будет в самой форме.

Сделал по аналогии по условию поста 3, добавив еще один Combobox и прописав код выше. Но не пошло
[vba]

Код

Function НетЖурналаЗС2(item As Variant) As Boolean
i = 5
     Do While Sheets("Журнал ЗС").Cells(i, 12).Value = 0

        i = i + 1
    Loop
End Function
Private Sub cmbFilter2_Change()
akt4.Text = cmbFilter2.Text
End Sub
Private Sub UserForm_Initialize()
i = 5
     Do While Sheets("Журнал ЗС").Cells(i, 1) <> 0
     akt4.AddItem Sheets("Журнал ЗС").Cells(i, 1)
        If Not НетЖурналЗС(Sheets("Журнал ЗС").Cells(i, 1).Value) Then
        cmbFilter.AddItem Sheets("Журнал ЗС").Cells(i, 1)
              End If
               i = i + 1
    Loop
End Sub

[/vba]

Ответить

Дата: Среда, 11.07.2018, 10:27 | Сообщение № 10

Группа: Проверенные

Ранг: Обитатель

Сообщений: 487

Репутация: 86 ±

Замечаний: 0% ±

Excel 2013

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

Благими намерениями выстелена дорога в АД.

Ответить

Дата: Среда, 11.07.2018, 10:50 | Сообщение № 11

Группа: Авторы

Ранг: Старожил

Сообщений: 1161

Репутация: 103 ±

Замечаний: 0% ±

Excel 2010

Цитата Паштет, 11.07.2018 в 09:56, в сообщении № 9 ()

item As Variant

Это ОЧЕНЬ плохая идея.

Интуитивно понятный код - это когда интуитивно понятно, что это код.

Ответить

Дата: Четверг, 12.07.2018, 19:26 | Сообщение № 12

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 159

Репутация: 7 ±

Замечаний: 0% ±

Excel 2010

Цитата StoTisteg, 11.07.2018 в 10:50, в сообщении № 11 ()

Это ОЧЕНЬ плохая идея.

Какую можете предложить альтернативу?

Цитата

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

Поле на странице формы Заготовительный склад: выдача -> № (самый верхний combobox на странице формы, называется akt4). Должен быть список с листа Журнал ЗС из значений столбца А, только тех, у которых в столбце L того же листа нет значений (ячейка пуста).

Ответить

Дата: Четверг, 12.07.2018, 19:47 | Сообщение № 13

Группа: Админы

Ранг: Местный житель

Сообщений: 16715

Репутация: 6504 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

В Private Sub UserForm_Initialize() начиная со строки 119
[vba]

Код

    Do While Sheets("Журнал ЗС").Cells(i, 1) <> 0
        If Sheets("Журнал ЗС").Cells(i, 12) = "" Then
            akt4.AddItem Sheets("Журнал ЗС").Cells(i, 1)
        End If
        i = i + 1
    Loop

[/vba]
Во вложении Ваш файл из поста №1 с указанной выше поправкой
лучше так
[vba]

Код

    With Sheets("Журнал ЗС")
        Do While .Cells(i, 1) <> 0
            If .Cells(i, 12) = "" Then
                akt4.AddItem .Cells(i, 1)
            End If
            i = i + 1
        Loop
    End With

[/vba]

К сообщению приложен файл: IB_1.xlsm (70.1 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Дата: Четверг, 12.07.2018, 21:05 | Сообщение № 14

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 159

Репутация: 7 ±

Замечаний: 0% ±

Excel 2010

Список получается то что надо, но значения, который он подтягивал теперь поплыли

Ответить

Дата: Пятница, 13.07.2018, 16:18 | Сообщение № 15

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 159

Репутация: 7 ±

Замечаний: 0% ±

Excel 2010

По выбору значения в combobox в соседних textbox подставляются значения с листа (аля ВПР). Теперь они не верно сопоставляются. Кусок кода private sub akt4_change.

Ответить

Дата: Воскресенье, 15.07.2018, 21:39 | Сообщение № 16

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 159

Репутация: 7 ±

Замечаний: 0% ±

Excel 2010

Справился сам, сделав по аналогии, что предлагал K-SerJC в моем первом случае. Вышло следующее:
[vba]

Код

Private Sub cmbFilter2_Change()
akt4.Text = cmbFilter2.Text
End Sub
Private Sub UserForm_Initialize()
i = 5
    Do While Sheets("Журнал ЗС").Cells(i, 1) <> 0
       akt4.AddItem Sheets("Журнал ЗС").Cells(i, 1)
        If Sheets("Журнал ЗС").Cells(i, 12) = "" Then
        cmbFilter2.AddItem Sheets("Журнал ЗС").Cells(i, 1)
        End If
        i = i + 1
    Loop
end sub
Private Sub Akt4_Change()

Dim iRow As Long
    iRow = 5 + akt4.ListIndex
    With Sheets("Журнал ЗС")
        Akt5 = Sheets("Журнал ЗС").Cells(iRow, "b")
        nomen4 = Sheets("Журнал ЗС").Cells(iRow, "D")
        name4 = Sheets("Журнал ЗС").Cells(iRow, "E")
        tip4 = Sheets("Журнал ЗС").Cells(iRow, "F")
        ntd4 = Sheets("Журнал ЗС").Cells(iRow, "G")
        Data5 = Format(Sheets("Журнал зс").Cells(iRow, 3), "dd.mm.yyyy")
    End With
End Sub

[/vba]

Спасибо всем, кто откликнулся!

Ответить

Дата: Понедельник, 16.07.2018, 10:01 | Сообщение № 17

Группа: Админы

Ранг: Местный житель

Сообщений: 16715

Репутация: 6504 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Не заметил сразу Вашего вопроса.
Может, просто вот так написать?
[vba]

Код

iRow = Sheets("Журнал ЗС").Columns("A:A").Find(What:=akt4.Value).Row

[/vba]
Финд можно с бОльшим количеством аргументов на всякий случай написать, типа
[vba]

Код

.Find(What:="1306", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)

[/vba]

К сообщению приложен файл: IB_2.xlsm (69.8 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Дата: Понедельник, 16.07.2018, 18:52 | Сообщение № 18

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 159

Репутация: 7 ±

Замечаний: 0% ±

Excel 2010

_Boroda_, думаю Вы правы. Так и сделаю. Спасибо.

Ответить

Дата: Понедельник, 16.07.2018, 20:26 | Сообщение № 19

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 159

Репутация: 7 ±

Замечаний: 0% ±

Excel 2010

Кстати не пройдет, если у акта будет номер 1. Нужно, чтобы Find только с пятой строки делал выборку.
Попробовал так видоизменить строчку, но вылетаю с ошибкой
[vba]

Код

iRow = Sheets("Журнал ЗС").Range(Cells(4, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1)).Find(What:=akt4.Value).Row

[/vba]

Ответить

Дата: Понедельник, 16.07.2018, 21:30 | Сообщение № 20

Группа: Админы

Ранг: Местный житель

Сообщений: 16715

Репутация: 6504 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Правильно. На Range имя листа пишете, а на Cells нет - и по умолчанию идет на текущий лист
Напишите просто
[vba]

Код

Sheets("Журнал ЗС").Range(Cells(4, 1).resize(999)

[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Создание списка в Combobox с условием (Макросы/Sub)

Страница 1 из 2
1
2
»

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