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

Вход

Регистрация

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

 

= Мир MS Excel/Связь заголовка с Combobox - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Связь заголовка с Combobox (Макросы/Sub)
Связь заголовка с Combobox
dmisviridov Дата: Пятница, 06.05.2016, 09:51 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 55
Репутация: 0 ±
Замечаний: 0% ±

"После нажатия кнопки ""Найти"" появляется Userform. В строке ""Где искать"" должны отображаться названия столбцов: ""Артикул"", ""Наименование продукции"", ""Ед."" и т.д.
"

К сообщению приложен файл: 0036916.xls(88Kb)
 
Ответить
Сообщение"После нажатия кнопки ""Найти"" появляется Userform. В строке ""Где искать"" должны отображаться названия столбцов: ""Артикул"", ""Наименование продукции"", ""Ед."" и т.д.
"


Автор - dmisviridov
Дата добавления - 06.05.2016 в 09:51
Manyasha Дата: Пятница, 06.05.2016, 10:09 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 1587
Репутация: 669 ±
Замечаний: 0% ±

Excel 2007, 2010
dmisviridov, так можно
[vba]
Код
Private Sub UserForm_Initialize()
    Dim lc%, j%
    lc = Range("b5").CurrentRegion.Columns.Count
    For j = 2 To lc
        Me.ComboBox1.AddItem Cells(5, j)
    Next j
End Sub
[/vba]


marinamorozova_box@mail.ru
ЯД: 410013299366744 WM: R193491431804
 
Ответить
Сообщениеdmisviridov, так можно
[vba]
Код
Private Sub UserForm_Initialize()
    Dim lc%, j%
    lc = Range("b5").CurrentRegion.Columns.Count
    For j = 2 To lc
        Me.ComboBox1.AddItem Cells(5, j)
    Next j
End Sub
[/vba]

Автор - Manyasha
Дата добавления - 06.05.2016 в 10:09
devilkurs Дата: Пятница, 06.05.2016, 10:10 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 141
Репутация: 38 ±
Замечаний: 0% ±

Excel 2007, 2010
Куча примеров замечательных любой сложности выдают поисковики. А Вы ленитесь.
[vba]
Код
Private Sub UserForm_Initialize()
    Dim v
    For Each v In Range("B5:H5")
        If v.Value <> "" Then ComboBox1.AddItem v.Value
    Next
End Sub
[/vba]


 
Ответить
СообщениеКуча примеров замечательных любой сложности выдают поисковики. А Вы ленитесь.
[vba]
Код
Private Sub UserForm_Initialize()
    Dim v
    For Each v In Range("B5:H5")
        If v.Value <> "" Then ComboBox1.AddItem v.Value
    Next
End Sub
[/vba]

Автор - devilkurs
Дата добавления - 06.05.2016 в 10:10
dmisviridov Дата: Пятница, 06.05.2016, 10:44 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 55
Репутация: 0 ±
Замечаний: 0% ±

Я не ленюсь, просто я в макросах разбираюсь, как свинья в апельсинах.
 
Ответить
СообщениеЯ не ленюсь, просто я в макросах разбираюсь, как свинья в апельсинах.

Автор - dmisviridov
Дата добавления - 06.05.2016 в 10:44
al-Ex Дата: Пятница, 06.05.2016, 14:48 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 147
Репутация: 53 ±
Замечаний: 20% ±

Excel 2010
как свинья в апельсинах
С макросами как с девушками, сначала вы немножко смотрите как это устроено, потом пробуете запустить и смотрите что получилось. Меняете что-либо и опять пробуете и смотрите результат, так до получения требуемого результата.


Сообщение отредактировал al-Ex - Пятница, 06.05.2016, 18:42
 
Ответить
Сообщение
как свинья в апельсинах
С макросами как с девушками, сначала вы немножко смотрите как это устроено, потом пробуете запустить и смотрите что получилось. Меняете что-либо и опять пробуете и смотрите результат, так до получения требуемого результата.

Автор - al-Ex
Дата добавления - 06.05.2016 в 14:48
krosav4ig Дата: Пятница, 06.05.2016, 15:41 | Сообщение № 6
Группа: Друзья
Ранг: Старожил
Сообщений: 1347
Репутация: 547 ±
Замечаний: 0% ±

Excel 2007, 2013
до кучи, варианты без циклов
если просто впихнуть в combobox все из диапазона, то можно так
[vba]
Код
ComboBox1.List = [B5:H5&""]
[/vba]
если делать с проверкой на пустоту (как у devilkurs), можно так
[vba]
Код
ComboBox1.List = Filter([if(isblank(B5:H5),"ў",B5:H5)], "ў", 0, 1)
[/vba]



(_)Õvõ(_)
 
Ответить
Сообщениедо кучи, варианты без циклов
если просто впихнуть в combobox все из диапазона, то можно так
[vba]
Код
ComboBox1.List = [B5:H5&""]
[/vba]
если делать с проверкой на пустоту (как у devilkurs), можно так
[vba]
Код
ComboBox1.List = Filter([if(isblank(B5:H5),"ў",B5:H5)], "ў", 0, 1)
[/vba]


Автор - krosav4ig
Дата добавления - 06.05.2016 в 15:41
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Связь заголовка с Combobox (Макросы/Sub)
Страница 1 из 11
Поиск:

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