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

Вход

Регистрация

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

 

= Мир MS Excel/Поиск значения в умной таблице - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск значения в умной таблице (Макросы/Sub)
Поиск значения в умной таблице
Sashagor1982 Дата: Воскресенье, 03.10.2021, 11:59 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 211
Репутация: 14 ±
Замечаний: 0% ±

Excel 2007
Добрый день, подскажите в чем ошибка
[vba]
Код
Private Sub InputComboFP(ByVal objectConbo As Control, ByRef inputConbo As Control)
        Dim znachen As Range
        Dim element As Variant
        inputConbo.Clear
        
    If (ComboBox_Pol.Value = "мужской") Then
        Set znachen = ThisWorkbook.Worksheets("HelpList").ListObjects("tblFP").ListColumns(objectConbo.Value).DataBodyRange
    Else
        Set znachen = ThisWorkbook.Worksheets("HelpList").ListObjects("tblFPwomen").ListColumns(objectConbo.Value).DataBodyRange
    End If
End Sub
[/vba]
При значении ComboBox_Pol.Value = "женский" возникает ошибка Subscript out of range, хотя с мужским все работает корректно
К сообщению приложен файл: program.xlsm(94.5 Kb)


Сообщение отредактировал Sashagor1982 - Воскресенье, 03.10.2021, 12:04
 
Ответить
СообщениеДобрый день, подскажите в чем ошибка
[vba]
Код
Private Sub InputComboFP(ByVal objectConbo As Control, ByRef inputConbo As Control)
        Dim znachen As Range
        Dim element As Variant
        inputConbo.Clear
        
    If (ComboBox_Pol.Value = "мужской") Then
        Set znachen = ThisWorkbook.Worksheets("HelpList").ListObjects("tblFP").ListColumns(objectConbo.Value).DataBodyRange
    Else
        Set znachen = ThisWorkbook.Worksheets("HelpList").ListObjects("tblFPwomen").ListColumns(objectConbo.Value).DataBodyRange
    End If
End Sub
[/vba]
При значении ComboBox_Pol.Value = "женский" возникает ошибка Subscript out of range, хотя с мужским все работает корректно

Автор - Sashagor1982
Дата добавления - 03.10.2021 в 11:59
Pelena Дата: Воскресенье, 03.10.2021, 13:36 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 17943
Репутация: 3997 ±
Замечаний: ±

Excel 2016 & Mac Excel
Здравствуйте.
У Вас в таблице tblFPwomen в шапке вместо обычных пробелов использованы неразрывные (символ с кодом 160). Перенаберите вручную № 2, № 41 и т.д. с обычным пробелом


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеЗдравствуйте.
У Вас в таблице tblFPwomen в шапке вместо обычных пробелов использованы неразрывные (символ с кодом 160). Перенаберите вручную № 2, № 41 и т.д. с обычным пробелом

Автор - Pelena
Дата добавления - 03.10.2021 в 13:36
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск значения в умной таблице (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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