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

Вход

Регистрация

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

 

= Мир MS Excel/Объединение данных из 2-ух Combobox-ов - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Объединение данных из 2-ух Combobox-ов (Макросы Sub)
Объединение данных из 2-ух Combobox-ов
Stormy Дата: Пятница, 14.02.2014, 22:24 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 366
Репутация: 12 ±
Замечаний: 0% ±

Excel 2010
Добрый вечер, уважаемые форумчане.
Столкнулся с вроде простой проблемой, но решить ее никак не могу.

Есть два Combobox-а , в каждом свой список.
Хочу сделать, чтобы при выборе пункта test в первом Combobox-е , в ячейку D8 попадало объединенное значение с обоих Combobox.
То бишь в моем случае будет test (vvvv1) .
К сообщению приложен файл: probnik.xls (44.0 Kb)

Место для рекламы.
 
Ответить
СообщениеДобрый вечер, уважаемые форумчане.
Столкнулся с вроде простой проблемой, но решить ее никак не могу.

Есть два Combobox-а , в каждом свой список.
Хочу сделать, чтобы при выборе пункта test в первом Combobox-е , в ячейку D8 попадало объединенное значение с обоих Combobox.
То бишь в моем случае будет test (vvvv1) .
Автор - Stormy
Дата добавления - 14.02.2014 в 22:24
Serge_007 Дата: Пятница, 14.02.2014, 22:39 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2750 ±
Замечаний: ±

Excel 2016
[vba]
Код
Private Sub ComboBox1_Change()
If ComboBox1.Value = "test" Then [d8] = ComboBox1 & "(" & ComboBox2 & ")"
End Sub
[/vba]

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение[vba]
Код
Private Sub ComboBox1_Change()
If ComboBox1.Value = "test" Then [d8] = ComboBox1 & "(" & ComboBox2 & ")"
End Sub
[/vba]
Автор - Serge_007
Дата добавления - 14.02.2014 в 22:39
Stormy Дата: Пятница, 14.02.2014, 22:44 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 366
Репутация: 12 ±
Замечаний: 0% ±

Excel 2010
Serge_007,
Спасибо, Сергей. Если не сложно, посвятите.
строка
[vba]
Код
If ComboBox1.Value = "test" Then [d8] = ComboBox1 & "(" & ComboBox2 & ")"
[/vba]
может быть написана так
[vba]
Код
If ComboBox1.Value = "test" Then
[d8] = ComboBox1 & "(" & ComboBox2 & ")"
[/vba]
Простоя именно так и пытался сделать.

Место для рекламы.
 
Ответить
СообщениеSerge_007,
Спасибо, Сергей. Если не сложно, посвятите.
строка
[vba]
Код
If ComboBox1.Value = "test" Then [d8] = ComboBox1 & "(" & ComboBox2 & ")"
[/vba]
может быть написана так
[vba]
Код
If ComboBox1.Value = "test" Then
[d8] = ComboBox1 & "(" & ComboBox2 & ")"
[/vba]
Простоя именно так и пытался сделать.
Автор - Stormy
Дата добавления - 14.02.2014 в 22:44
Serge_007 Дата: Пятница, 14.02.2014, 22:48 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2750 ±
Замечаний: ±

Excel 2016
Что конкретно не получается?
К сообщению приложен файл: Stormy_CB.xls (48.5 Kb)

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеЧто конкретно не получается?
Автор - Serge_007
Дата добавления - 14.02.2014 в 22:48
Stormy Дата: Пятница, 14.02.2014, 22:52 | Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 366
Репутация: 12 ±
Замечаний: 0% ±

Excel 2010
Я до того как написать на форум, пытался сделать вторым способом, выдавал ошибку. Отчасти понял почему. После Вашего примера (без использования End If) совсем запутался. в учебниках пишут про необходимость использования, а тут *живой* работающий пример без него.

Место для рекламы.
 
Ответить
СообщениеЯ до того как написать на форум, пытался сделать вторым способом, выдавал ошибку. Отчасти понял почему. После Вашего примера (без использования End If) совсем запутался. в учебниках пишут про необходимость использования, а тут *живой* работающий пример без него.
Автор - Stormy
Дата добавления - 14.02.2014 в 22:52
wild_pig Дата: Пятница, 14.02.2014, 23:26 | Сообщение № 6
Группа: Проверенные
Ранг: Обитатель
Сообщений: 518
Репутация: 97 ±
Замечаний: 0% ±

2003, 2013
Будет работать, если в одну строку If /Then.
 
Ответить
СообщениеБудет работать, если в одну строку If /Then.
Автор - wild_pig
Дата добавления - 14.02.2014 в 23:26
Stormy Дата: Суббота, 15.02.2014, 09:15 | Сообщение № 7
Группа: Проверенные
Ранг: Обитатель
Сообщений: 366
Репутация: 12 ±
Замечаний: 0% ±

Excel 2010
Спасибо за науку и пример hands

Место для рекламы.
 
Ответить
СообщениеСпасибо за науку и пример hands
Автор - Stormy
Дата добавления - 15.02.2014 в 09:15
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Объединение данных из 2-ух Combobox-ов (Макросы Sub)
  • Страница 1 из 1
  • 1
Поиск:

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