Связь заголовка с Combobox

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Связь заголовка с Combobox (Макросы/Sub)

dmisviridov

Дата: Пятница, 06.05.2016, 09:51 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 59

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

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

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

К сообщению приложен файл: 0036916.xls (88.5 Kb)

Ответить

Manyasha

Дата: Пятница, 06.05.2016, 10:09 | Сообщение № 2

Группа: Модераторы

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

Сообщений: 2198

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

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

Excel 2010, 2016

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]

ЯД: 410013299366744 WM: R193491431804

Ответить

devilkurs

Дата: Пятница, 06.05.2016, 10:10 | Сообщение № 3

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

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

Сообщений: 167

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

Замечаний: 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]

Ответить

dmisviridov

Дата: Пятница, 06.05.2016, 10:44 | Сообщение № 4

Группа: Пользователи

Ранг: Участник

Сообщений: 59

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

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

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

Ответить

al-Ex

Дата: Пятница, 06.05.2016, 14:48 | Сообщение № 5

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

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

Сообщений: 190

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

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

Excel 2010

Цитата dmisviridov, 06.05.2016 в 10:44, в сообщении № 4

как свинья в апельсинах

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