Как сделать сверку шаблона и листа с ответами? (тестирование)

[Alex_Gur]

как правильно написать такое условие?
If ActiveSheet.ListObjects.Name Like "Таблица" Then...

Если на листе есть ListObject, то и работать с ним нужно его методами.

Как точно указал RAN, если имеется именованная таблица (а не диапазон), то можно будет обратиться к объекту ListObject.
Вот неплохая статья об использовании этого объекта (правда на английском языке):
The VBA Guide To ListObject Excel Tables

[vikttur]

все вопросы, заданные GaS597, относятся к одному тесту.

Неправильно.
Если  автору придумается форматировать лист в тесте, применять, потот менять формулы, Изменять форматы данных - все в одну тему? Ведь все относится к тесту?
В одной теме следует задавать только ТЕМАТИЧЕСКИ связанные вопросы, но не темой автора.
ошибочное мнение, что создание новых тем загромождает форум. В теме с множеством вопросов трудно найти ответ на единственный вопрос, который интересует.

[Alex_Gur]

Я и говорю: давайте просить пользователя далее создавать для каждого вопроса новую тему. Я с Вами согласен - так будет лучше.

[Дмитрий Щербаков(The_Prist)]

Уважаемый Юрий, это специфическая тема - все вопросы, заданные GaS597, относятся к одному тесту.

Ага. А если расширить тест до 100 вопросов - то будет в этой теме свалка из всего подряд. При таком подходе на форуме можно вообще одну тему оставить - "Вопрос по Excel". Туда все подходит и вроде как отражает суть
Одно дело пара-тройка вопросов, связанные одной тематикой, и совсем другое, связанные одной глобальной задачей. Это разные вещи.

Даже просматривая данную тему: автор сам уже запутался на какой вопрос получил ответ и какой ответ требует внимания. Все от того, что нет порядка.

Так что автору темы: изначальный вопрос решен. По другим вопросам(как тот или иной шаг теста проверить или реализовать) - новые темы.

[Alex_Gur]

Поиск именованной таблицы, имя которой включает слово "Таблица" (вместо ранее предложенного аналогичного макроса для именованных диапазонов (http://www.excel-vba.ru/forum/index.php?topic=3955.msg21379#msg21379)):

Код (vb) Выделить Развернуть

Sub Test5()
    Dim blI As Boolean
    blI = False
    For Each objName In ActiveSheet.ListObjects
        If InStr(objName.Name, "Таблица") > 0 Then
            MsgBox "Объект найден!"
            blI = True
            Exit For
        End If
    Next
    If blI = False Then
        MsgBox "Объект не найден!"
    End If
End Sub

Объект ListObjects очень удобен для работы с ним! Программа стала гораздо короче.

[RAN]

Да ничего списфиского.
Обычная свалка.
Еще спасибо надо сказать, что не забанили.

PS чтой-то у меня последние сообщения не отобразились....

[RAN]

Alex_Gur, ну как вы до сих пор не поймете, что все ваши упражнения в определении имени таблицы вообще ни зачем?
Это просто не правильное использование таблицы.
Что дает информация, что в имени таблицы есть слово "Таблица"? По умолчанию Excel именует все таблицы "Таблица#".

[Alex_Gur]

Alex_Gur, ну как вы до сих пор не поймете, что все ваши упражнения в определении имени таблицы вообще ни зачем?... По умолчанию Excel именует все таблицы "Таблица#".

Соверешенно верно.
В данном случае, человеку нужно проверить, что тестируемый создал именно именуемую таблицу. Поэтому GaS597, как я понимаю, и просит проверить имя таблицы, а именно, что в него входит слово "Таблица".
С другой стороны, GaS597 просит проверить это слово, а я стараюсь по возможности выполнить его пожелания.
Я не очень задумываюсь, для чего ему это нужно. Нужно, и все...

[RAN]

Я не очень задумываюсь, для чего ему это нужно. Нужно, и все...

У вас случайно нет рецепта изготовления ядрёной бомбы на кухне? Очень нужно.

GaS597 просит проверить это слово, а я стараюсь по возможности выполнить его пожелания.

[Alex_Gur]

У вас случайно нет рецепта изготовления ядрёной бомбы на кухне? Очень нужно.

Это, кажется, не имеет отношения к Excel. Возможно, из какого-то другого форума.

[RAN]

Alex_Gur, вы (НЕ, ТС) уже превратили эту тему в помойку. 
Удачи! 

[Alex_Gur]

RAN, Вы первый принялись обсуждать профессиональную квалификацию пользователя (http://www.excel-vba.ru/forum/index.php?topic=3955.msg21355#msg21355) (что, мне кажется, нежелательно, даже исходя из Правил форума).
А затем написали про какую-то бомбу...
В результате мы с Вами совместно превратили эту интересную ветку в "помойку".
Теперь придется просить уважаемых модераторов почистить эти "авгиевы конюшни".
Я Вам тоже желаю успеха и благодарю за поданные интересные идеи!
Мяу!...

[Дмитрий Щербаков(The_Prist)]

Все перепалки в курилке или в личке, тем более спорить не о чем. Тему закрываю.