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

Вход

Регистрация

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

 

= Мир MS Excel/По значениям 2-x combobox из листа в textboxы - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » По значениям 2-x combobox из листа в textboxы (Макросы/Sub)
По значениям 2-x combobox из листа в textboxы
Liberia Дата: Суббота, 27.05.2017, 15:10 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Здравствуйте. Помогите с решением задачи.
Есть форма и на ней 2 combobox и 4 textbox. Combobox заполняются значениями с листа в неограниченном количестве.
Задача: в зависимости от выбранных аргументов\значений по ListIndex в выпадающем списке на форме необходимо выбрать значение из столбцов на листе1 и вставить в текстовое поле на форме. Как-то так.
Пример: Если в Combobox1 выбран аргумент\значение 2,а в Combobox2 выбран аргумент\значение 3, то значит в textbox4 вставляется из столбца "D" кабинет "кабинет тех", а в TextBox3 из столбца соответственно "С" двери "стеклянные", и т.д.
На форуме искал подобное не нашел, если знаете где лежит ответ, дайте ссылку. Спасибо.
К сообщению приложен файл: 7278111.xlsm (19.0 Kb)
 
Ответить
СообщениеЗдравствуйте. Помогите с решением задачи.
Есть форма и на ней 2 combobox и 4 textbox. Combobox заполняются значениями с листа в неограниченном количестве.
Задача: в зависимости от выбранных аргументов\значений по ListIndex в выпадающем списке на форме необходимо выбрать значение из столбцов на листе1 и вставить в текстовое поле на форме. Как-то так.
Пример: Если в Combobox1 выбран аргумент\значение 2,а в Combobox2 выбран аргумент\значение 3, то значит в textbox4 вставляется из столбца "D" кабинет "кабинет тех", а в TextBox3 из столбца соответственно "С" двери "стеклянные", и т.д.
На форуме искал подобное не нашел, если знаете где лежит ответ, дайте ссылку. Спасибо.

Автор - Liberia
Дата добавления - 27.05.2017 в 15:10
Manyasha Дата: Суббота, 27.05.2017, 16:37 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 898 ±
Замечаний: 0% ±

Excel 2010, 2016
Liberia, зачем Вы по 2 раза комбобоксы заполняете? При инициализации формы вполне достаточно.
Если правильно поняла:
[vba]
Код
Private Sub ComboBox1_Change()
'ComboBox1.List = Array("Кабинет1", "Кабинет2", "Кабинет3") 'любое количество аргументов
fillForm
End Sub
Private Sub ComboBox2_Change()
'ComboBox2.List = Array("Окно", "Дверь", "Стол") 'любое количество аргументов
fillForm
End Sub
[/vba]
[vba]
Код
Sub fillForm()
    Dim r%
    If ComboBox1 <> "" And ComboBox2 <> "" Then
        r = ComboBox1.ListIndex + 1
        With ThisWorkbook.Sheets(1)
            TextBox1 = .Cells(r, 1)
            TextBox2 = .Cells(r, 2)
            TextBox3 = .Cells(r, 3)
            TextBox4 = .Cells(r, 4)
        End With
    End If
End Sub
[/vba]
К сообщению приложен файл: 7278111-1.xlsm (23.0 Kb)


ЯД: 410013299366744 WM: R193491431804
 
Ответить
СообщениеLiberia, зачем Вы по 2 раза комбобоксы заполняете? При инициализации формы вполне достаточно.
Если правильно поняла:
[vba]
Код
Private Sub ComboBox1_Change()
'ComboBox1.List = Array("Кабинет1", "Кабинет2", "Кабинет3") 'любое количество аргументов
fillForm
End Sub
Private Sub ComboBox2_Change()
'ComboBox2.List = Array("Окно", "Дверь", "Стол") 'любое количество аргументов
fillForm
End Sub
[/vba]
[vba]
Код
Sub fillForm()
    Dim r%
    If ComboBox1 <> "" And ComboBox2 <> "" Then
        r = ComboBox1.ListIndex + 1
        With ThisWorkbook.Sheets(1)
            TextBox1 = .Cells(r, 1)
            TextBox2 = .Cells(r, 2)
            TextBox3 = .Cells(r, 3)
            TextBox4 = .Cells(r, 4)
        End With
    End If
End Sub
[/vba]

Автор - Manyasha
Дата добавления - 27.05.2017 в 16:37
Liberia Дата: Суббота, 27.05.2017, 17:13 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
зачем Вы по 2 раза комбобоксы заполняете?

Спасибо. Я строитель, а не писатель программ. :D Вот приходится немного программировать, чтобы вести учет. Еще раз спасибо за подсказку. Буду дальше лепить.
 
Ответить
Сообщение
зачем Вы по 2 раза комбобоксы заполняете?

Спасибо. Я строитель, а не писатель программ. :D Вот приходится немного программировать, чтобы вести учет. Еще раз спасибо за подсказку. Буду дальше лепить.

Автор - Liberia
Дата добавления - 27.05.2017 в 17:13
Мир MS Excel » Вопросы и решения » Вопросы по VBA » По значениям 2-x combobox из листа в textboxы (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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