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

Вход

Регистрация

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

 

= Мир MS Excel/Исключение элемента из списка ComboBox - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Исключение элемента из списка ComboBox
Sashagor1982 Дата: Четверг, 07.10.2021, 23:58 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 287
Репутация: -6 ±
Замечаний: 0% ±

Excel 2007
Добрый день, имеются 8 ComboBox заполненных программно с помощью RowSource, необходимо в последующих комбобоксах исключать элемент выбранный в предыдущем
[vba]
Код
Private Sub ConvertCombo(objectConbo As Control)
      Dim a() As String
      a = Split(objectConbo.name, "_")
        If (objectConbo.Value <> "не введено") Then            
            For n = CInt(a(2)) + 1 To 8
                Me.Controls("ComboBox_Predmet_" & (n)).RemoveItem objectConbo.ListIndex
            Next
        End if
End Sub
[/vba]
Приведенный код выдает ошибку, в чем ошибка и как решить задачу?


Сообщение отредактировал Sashagor1982 - Четверг, 07.10.2021, 23:59
 
Ответить
СообщениеДобрый день, имеются 8 ComboBox заполненных программно с помощью RowSource, необходимо в последующих комбобоксах исключать элемент выбранный в предыдущем
[vba]
Код
Private Sub ConvertCombo(objectConbo As Control)
      Dim a() As String
      a = Split(objectConbo.name, "_")
        If (objectConbo.Value <> "не введено") Then            
            For n = CInt(a(2)) + 1 To 8
                Me.Controls("ComboBox_Predmet_" & (n)).RemoveItem objectConbo.ListIndex
            Next
        End if
End Sub
[/vba]
Приведенный код выдает ошибку, в чем ошибка и как решить задачу?

Автор - Sashagor1982
Дата добавления - 07.10.2021 в 23:58
wild_pig Дата: Пятница, 08.10.2021, 23:03 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 518
Репутация: 97 ±
Замечаний: 0% ±

2003, 2013
в чем ошибка

Либо код так себе либо так и надо.
 
Ответить
Сообщение
в чем ошибка

Либо код так себе либо так и надо.

Автор - wild_pig
Дата добавления - 08.10.2021 в 23:03
  • Страница 1 из 1
  • 1
Поиск:

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