Проверка существования объекта

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Проверка существования объекта (Макросы/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

Ответить

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]