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

[GaS597]

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

[Alex_Gur]

Задавайте, пожалуйста, вопросы поточнее.
Вы хотите определить, есть ли на активном листе таблица с именем "Таблица"?

[GaS597]

Да нужно проверить есть ли на активном листе объект название которого содержит "Таблица". И еще в догонку. Как проверить закреплена ли нужная строка?
Как-то так...

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

If ActiveWindow.FreezePanes = True Then _
Range("Result!C13").Value = 1 Else Range("Result!C13").Value = 0
Но тут без номера строки...

[GaS597]

И еще подскажите пожалуйста как можно проверить правильная ли формула в ячейке? Сейчас я проверяю вот так

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

If ActiveSheet.Range("H10").HasFormula And _
ActiveSheet.Range("H10") = 54.03125 Then...
Это не совсем правильно, потому что предполагается, что в расчетах будет использоваться функция, а не просто формула.

[Alex_Gur]

Для имени диапазона у меня получилось как-то так:

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

Sub Test2()
   Dim blI As Boolean
   blI = False
   For Each objName In Application.Names
       MsgBox objName.RefersToRange.Parent.Name
       MsgBox ActiveSheet.Name
       If objName.RefersToRange.Name.Name = "Таблица" And objName.RefersToRange.Parent.Name = ActiveSheet.Name Then
           MsgBox "Объект найден!"
           blI = True
           Exit For
       End If
   Next
   If blI = False Then
       MsgBox "Объект не найден!"
   End If
End Sub

Думаю, что можно решить эту задачу как-то проще. Буду рад увидеть более простое решение.

[Alex_Gur]

И еще подскажите пожалуйста как можно проверить правильная ли формула в ячейке?

Формулу в ячейке Вы можете определить таким образом:

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

Sub Test3()
   Dim rngI As Range
   Set rngI = Range("A22")
   If rngI.HasFormula Then
       MsgBox rngI.Formula
   End If
End Sub
А затем Вы  можете искать в полученном выражении формулы нужную Вам функцию.

[vikttur]

GaS597, для  форматирования кода в сообщении служит кнопка "VB Code"
Alex_Gur, не нужно в цитату вставлять целые сообщения.

[GaS597]

Хм... когда я делаю так, то не работает...

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

Dim rng As Range
Set rng = ActiveSheet.Range("G3")
If ActiveSheet.Range("G3").HasFormula And _
rng.Formula = "=ВПР(F3,C4:D15,2,ЛОЖЬ)" Then _
Range("Result!C17").Value = 1 Else Range("Result!C17").Value = 0

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

rng.Formula = "=ВПР(F3,C4:D15,2,ЛОЖЬ)"

неверно, т.к. Formula содержит данные о формуле на английском языке. Так сработает:

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

rng.FormulaLocal = "=ВПР(F3;C4:D15;2;ЛОЖЬ)"
Но Вам так не очень покатит, если на двух языках делать - придется дублировать для каждого языка, что не есть удобно. Правильнее во всех смыслах:

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

rng.Formula = "=Vlookup(F3,C4:D15,2,false)"
плюс неплохо бы добавить, что диапазон аргумента Таблица должен быть закреплен, т.к. знающие люди часто это могут на автомате делать:

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

rng.Formula = "=Vlookup(F3,$C$4:$D$15,2,false)"
Или тогда уж убирайте все доллары принудительно:

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

s = Replace(rng.Formula,"$","")
If s = "=Vlookup(F3,C4:D15,2,false)" then
   msgbox "Все верно!"
end if

P.S. Зачем у Вас в коде Set rng = ActiveSheet.Range("G3"), если Вы это дальше не используете?

[Alex_Gur]

Alex_Gur, не нужно в цитату вставлять целые сообщения.

vikttur, мне нужно показать пользователю, на какой его вопрос я отвечаю. А как это еще можно сделать?
[gmod]Цитата - часть сообщения, на которой необходимо сделать ударение, которая облегчает понимание последующего текста. Никто не запрещает цитировать. Но не просто КОПИРОВАТЬ сообщения в цитату.[/gmod]

[Alex_Gur]

Зачем у Вас в коде Set rng = ActiveSheet.Range("G3"), если Вы это дальше не используете?

Совершенно верно.

GaS597, вместо:

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

Set rng = ActiveSheet.Range("G3") 
If ActiveSheet.Range("G3").HasFormula ...

лучше написать:

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

Set rng = ActiveSheet.Range("G3") 
If rng.HasFormula ...

[Alex_Gur]

Как проверить закреплена ли нужная строка?

Попробуйте так:

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

Sub Test4()
    With ActiveWindow
        If .FreezePanes Then
            MsgBox .Panes(1).VisibleRange.Address(0, 0)
        End If
    End With
End Sub

Данный макрос выдает адрес закрепленных строк.

[RAN]

Можно и еще на три листа тему раздуть, и не получить ответа.
Если на листе есть ListObject, то и работать с ним нужно его методами.
Но без файла все это ни о чем.

[Юрий М]

GaS597, не нужно все свои вопросы валить в одну кучу (тему).

[Alex_Gur]

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