Связанные выпадающие списки и значение переменной

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

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

Связанные выпадающие списки и значение переменной (Менять значение в зависимости от выбранного слова в списке)

Связанные выпадающие списки и значение переменной

madroof

Дата: Суббота, 22.12.2012, 20:08 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 5

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

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

Добрый день. Прошу помощи, как новичек в VBA.

Есть два выпадающих списка:

1. Список регионов РФ.
2. Список нужных городов в каждом регионе.

Первый список заполнен с помощью ListFillRange в свойствах ComboBox1, второй заполняется так:

[vba]

Код

Private Sub ComboBox1_Change()
Select Case ComboBox1.Value
        Case "Республика Адыгея"
           ComboBox2.ListFillRange = "Лист3!A1:A2"
        Case "Республика Алтай"
           ComboBox2.ListFillRange = "Лист3!A3:A4"
        Case "Республика Башкортостан"
           ComboBox2.ListFillRange = "Лист3!A5:C17"
        Case "Республика Бурятия"
           ComboBox2.ListFillRange = "Лист3!A18:A19"
         .................
End Select

[/vba]

Каждому городу соответствует определенный числовой коэфициент, нужно сделать так, чтобы при выборе определенного города переменной присваивалось его значение. Например при выборе "Улан-Удэ" переменная примет значение koef=1.0, "Уфа" koef=0.85 и т.д. Не обязательно самое короткое решение, можно самое простое.
Пример файла прилагаю.

Заранее спасибо! smile