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

Вход

Регистрация

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

 

= Мир MS Excel/Проверка существования объекта - Мир MS Excel

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

Excel 2007
Добрый день, необходимо заполнить ComboBox с определенным названием данными из соответствующей таблицы, однако возникает ошибка, если такой таблицы нет, подскажите как правильно организовать проверку
[vba]
Код
If TypeName(objControlChecked) = "ComboBox" Then
            Dim tbl() As String
            tbl = Split(objControlChecked.Name, "_")
                If UBound(tbl) > 0 Then
                    If objControlChecked.Name = ("ComboBox_" & tbl(1)) Then
                        If ThisWorkbook.Worksheets("HelpList").ListObjects("tbl" & tbl(1)) Is Not Nothing Then
                            objControlChecked.RowSource = ThisWorkbook.Worksheets("HelpList").ListObjects("tbl" & tbl(1))
                        End If
                    End If
                End If
        End If
[/vba]


Сообщение отредактировал Sashagor1982 - Пятница, 17.09.2021, 11:57
 
Ответить
СообщениеДобрый день, необходимо заполнить ComboBox с определенным названием данными из соответствующей таблицы, однако возникает ошибка, если такой таблицы нет, подскажите как правильно организовать проверку
[vba]
Код
If TypeName(objControlChecked) = "ComboBox" Then
            Dim tbl() As String
            tbl = Split(objControlChecked.Name, "_")
                If UBound(tbl) > 0 Then
                    If objControlChecked.Name = ("ComboBox_" & tbl(1)) Then
                        If ThisWorkbook.Worksheets("HelpList").ListObjects("tbl" & tbl(1)) Is Not Nothing Then
                            objControlChecked.RowSource = ThisWorkbook.Worksheets("HelpList").ListObjects("tbl" & tbl(1))
                        End If
                    End If
                End If
        End If
[/vba]
Автор - Sashagor1982
Дата добавления - 17.09.2021 в 11:56
Erjoma1981 Дата: Пятница, 17.09.2021, 13:36 | Сообщение № 2
Группа: Проверенные
Ранг: Участник
Сообщений: 66
Репутация: 25 ±
Замечаний: 0% ±

Excel 2010, 2019
Добрый день.
[vba]
Код
Function СуществуетЛиТаблицаНаЛисте(ByVal Лист As Worksheet, ByVal ИмяТаблицы As String)
    Dim Таблица As Object
    
    СуществуетЛиТаблицаНаЛисте = False
    For Each Таблица In Лист.ListObjects
        If Таблица.Name = ИмяТаблицы Then
            СуществуетЛиТаблицаНаЛисте = True
            Exit For
        End If
    Next Таблица
    
End Function
[/vba]
 
Ответить
СообщениеДобрый день.
[vba]
Код
Function СуществуетЛиТаблицаНаЛисте(ByVal Лист As Worksheet, ByVal ИмяТаблицы As String)
    Dim Таблица As Object
    
    СуществуетЛиТаблицаНаЛисте = False
    For Each Таблица In Лист.ListObjects
        If Таблица.Name = ИмяТаблицы Then
            СуществуетЛиТаблицаНаЛисте = True
            Exit For
        End If
    Next Таблица
    
End Function
[/vba]
Автор - Erjoma1981
Дата добавления - 17.09.2021 в 13:36
bmv98rus Дата: Пятница, 17.09.2021, 16:38 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4106
Репутация: 768 ±
Замечаний: 0% ±

Excel 2013/2016
ну так обработаете ошибку
Если известно что может быть то просто
[vba]
Код
on error resume next
objControlChecked.RowSource = ThisWorkbook.Worksheets("HelpList").ListObjects("tbl" & tbl(1))
on error goto 0
[/vba]

Замечательный Временно просто медведь , процентов на 20.
 
Ответить
Сообщениену так обработаете ошибку
Если известно что может быть то просто
[vba]
Код
on error resume next
objControlChecked.RowSource = ThisWorkbook.Worksheets("HelpList").ListObjects("tbl" & tbl(1))
on error goto 0
[/vba]
Автор - bmv98rus
Дата добавления - 17.09.2021 в 16:38
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Проверка существования объекта (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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