Отображаемое значение в ComboBox на UserForm.

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

Отображаемое значение в ComboBox на UserForm. (Макросы/Sub)

damask_86ru

Дата: Вторник, 13.01.2015, 11:19 | Сообщение № 1

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

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

Сообщений: 60

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

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

Excel 2010

Всем привет!
На листе Excel имеются кнопки изменения языка, и вызова формы.
Форма имеет ComboBox1 который наполняется данными из таблицы на листе "список" в зависимости от выбранного языка (Russian из столбца "B", English из столбца "C").
Таблица имеет три столбца с данными. Столбец "B" - названия городов на русском, столбец "C" - транслитерация этих городов на английский, и столбец "D" - аббревиатура.
Вопрос заключается в следующем: возможно ли при выборе любого языка список ComboBox1 отображал бы соответствующий ему диапазон, но при выборе значения из списка, в ComboBox1 отобразилось бы значение из столбца "D" (аббревиатура)?

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

Сообщение отредактировал damask_86ru - Вторник, 13.01.2015, 11:20

Ответить

Cheshir0067

Дата: Вторник, 13.01.2015, 13:10 | Сообщение № 2

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

Ранг: Новичок

Сообщений: 35

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

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

Excel 2010

Если я Вас правильно понял то ловите :
[vba]

Код

Private Sub ComboBox1_Change()
Dim q As String
Dim a
Dim z As String
q = Me.ComboBox1.Value
   Set a = Worksheets("список").Cells.Find(q)
z = Worksheets("список").Cells(a.Row, 4)

   Me.ComboBox1.Value = z

End Sub

[/vba]

irelandzp@gmail.com

Сообщение отредактировал Cheshir0067 - Вторник, 13.01.2015, 13:10

Ответить

damask_86ru

Дата: Вторник, 13.01.2015, 14:08 | Сообщение № 3

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

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

Сообщений: 60

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

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

Excel 2010

Cheshir0067, Спасибо Вам!
Вы меня правильно поняли, помогло.
Вопрос закрыт.

Ответить

Отображаемое значение в ComboBox на UserForm. (Макросы/Sub)

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