Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 30.11.2012, 06:13   #1
Trimbl
Форумчанин
 
Регистрация: 11.08.2009
Сообщений: 135
По умолчанию Связанные списки в ComboBox

Здравстуйте уважаемые форумчане!
Прошу помощи в создании двух взаимосвязанных ComboBox.
Требуется, чтобы каждому выбранному значению ComboBox1 в ComboBox2 отображался соответствующий список т.е. ComboBox1-месяц, тогда в ComboBox2 - список 12 месяцев, ComboBox1-Квартал, тогда в ComboBox2 - список I II III IV, и т. д.
Благодарю за внимание.
Вложения
Тип файла: rar Книга1.rar (29.3 Кб, 63 просмотров)
Trimbl вне форума Ответить с цитированием
Старый 30.11.2012, 11:00   #2
VictorM
Старожил
 
Аватар для VictorM
 
Регистрация: 15.05.2008
Сообщений: 2,058
По умолчанию

Можно так сделать
Код:
Private Sub CommandButton1_Click()'оставил для кнопки
    If Me.ComboBox1 = "" Then MsgBox "Введите планируемый период", vbCritical, "Ошибка": Exit Sub
End Sub
Private Sub ComboBox1_Change()'сделано для Месяц, дальше по аналогии
If Me.ComboBox1.Value = "Месяц" Then
    ComboBox2.List = Array("Январь", "Февраль", "Март", "Апрель", "Май", "Июнь", "Июль", "Август", "Сентябрь", "Октябрь", "Ноябрь", "Декабрь")
    ComboBox2.ListIndex = 0
        Sheets("ШППМ").Select
     ElseIf Me.ComboBox1 = "Квартал" Then
          Sheets("ШППК").Select
     ElseIf Me.ComboBox1 = "Год" Then
          Sheets("ШППГ").Select
            Else
              Sheets("ШППП").Select
    End If
End Sub
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499
VictorM вне форума Ответить с цитированием
Старый 30.11.2012, 12:31   #3
Trimbl
Форумчанин
 
Регистрация: 11.08.2009
Сообщений: 135
По умолчанию

VictorM, спасибо за помощь, как бы все понятно
Trimbl вне форума Ответить с цитированием
Старый 30.11.2012, 13:02   #4
VictorM
Старожил
 
Аватар для VictorM
 
Регистрация: 15.05.2008
Сообщений: 2,058
По умолчанию

Цитата:
как бы все понятно
Так понятнее?
Код:
Private Sub ComboBox1_Change()
    If Me.ComboBox1.Value = "Месяц" Then
        ComboBox2.List = Array("Январь", "Февраль", "Март", "Апрель", "Май", "Июнь", "Июль", "Август", "Сентябрь", "Октябрь", "Ноябрь", "Декабрь")
        ComboBox2.ListIndex = 0
        Sheets("ШППМ").Select
    ElseIf Me.ComboBox1 = "Квартал" Then
        ComboBox2.List = Array("I", "II", "III", "IV")
        ComboBox2.ListIndex = 0
        Sheets("ШППК").Select
    ElseIf Me.ComboBox1 = "Год" Then
        ComboBox2.List = Array("2010", "2011", "2012", "2013", "2014", "2015")
        ComboBox2.ListIndex = 0
        Sheets("ШППГ").Select
    Else
        'и т.д.
        Sheets("ШППП").Select
    End If
End Sub
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499
VictorM вне форума Ответить с цитированием
Старый 01.12.2012, 04:15   #5
Trimbl
Форумчанин
 
Регистрация: 11.08.2009
Сообщений: 135
По умолчанию

VictorM, да, я действительно так и сделал, но Sheets("ШППМ").Select как и других листов "отдал" кнопке т.к. в противном случае листы грузятся по данным ComboBox1 настроенного по умолчанию.
Еще раз, спасибо за внимание и терпение. Всех Вам благ.
Trimbl вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Связанные списки в C++ Rembo Общие вопросы C/C++ 47 11.07.2016 12:45
Связанные списки ((((((((( !!!!!! cj_loman Помощь студентам 2 27.05.2011 07:19
связанные списки nikulia Microsoft Office Excel 4 20.02.2011 23:56
Связанные списки Shoosh Общие вопросы C/C++ 11 02.10.2010 16:24
Связанные списки Лешка Помощь студентам 1 30.09.2010 21:31