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

Вход

Регистрация

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

 

= Мир MS Excel/Связанные выпадающие списки и значение переменной - Мир MS Excel

Старая форма входа
  • Страница 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
К сообщению приложен файл: 5219057.xls (30.0 Kb)


Никого не трогаю, починяю примус.
 
Ответить
СообщениеДобрый день. Прошу помощи, как новичек в 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

Автор - madroof
Дата добавления - 22.12.2012 в 20:08
DJ_Marker_MC Дата: Суббота, 22.12.2012, 20:20 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 991
Репутация: 213 ±
Замечаний: 0% ±

Excel 2019
Вы об этом?
К сообщению приложен файл: 7232658.xls (46.0 Kb)
 
Ответить
СообщениеВы об этом?

Автор - DJ_Marker_MC
Дата добавления - 22.12.2012 в 20:20
madroof Дата: Суббота, 22.12.2012, 20:25 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

А ларчик просто открывался! Я думаю, то, что нужно! Большое спасибо! smile


Никого не трогаю, починяю примус.
 
Ответить
СообщениеА ларчик просто открывался! Я думаю, то, что нужно! Большое спасибо! smile

Автор - madroof
Дата добавления - 22.12.2012 в 20:25
  • Страница 1 из 1
  • 1
Поиск:

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