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

[GaS597]

Стоит задача разработать программку для тестирования сотрудников на знание Excel. Всего 10 задач с разными условиями. Несколько задач на оформление стиля таблицы, несколько задач на логические функции и еще несколько на арифметические. При запуске файла запускается UserForm1 где пользователь вводит свои данные ФИО, которые записываются в листе Result. На последней задаче пользователь нажимает кнопку "Завершить тест", появляется UserForm2 где с помощью label'ов выводится ФИО пользователя и его оценка, которые берутся с листа Result. Собственно я все это набросал. Осталось самое сложное. Как определить правильно решил пользователь задачу или нет? Я создал дополнительные листы с ответами. Там те же самые таблицы с такими же стилями, но с уже проставленными функциями, цифрами и примененными стилями. Это ответы. Я их потом скрою от пользователя. Вопрос: как сравнить лист, с которым работает пользователь с листом шаблона? В листе Result нужно указать результат сравнения true или false.

[vikttur]

Название темы не соответствует содержанию. Переименуйте или предложите название, отражающее суть задачи.

Собственно я все это набросал

Пример нужно показывать.

[GaS597]

Извините. Но я нигде не могу найти меню для редактирования темы поста...

[Юрий М]

Кнопка "Правка", но есть ограничение по времени...

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

Здесь очень похожее - Сравнение двух диапазонов:
http://www.excel-vba.ru/forum/index.php?topic=3865.0

Диапазоны могут быть на разных листах.

[GaS597]

Скачать файл можно отсюда https://dropmefiles.com/q0X7w

[Alex_Gur]

Со своей стороны, могу порекомендовать Вам следующие методические материалы:
Создание интерактивных тестов в программе MS Excel
Веретенникова И.А. Как сделать тест в программе Excel?

Также мне встречалось очень подробное описание работы над макросом теста в Excel, но с ходу пока не могу его найти.
Если найду - также размещу ссылку в данной ветке.

[GaS597]

Не могу зарегистрироваться, чтобы скачать файлы. Если не затруднит, выложите пожалуйста на другой файлообменник?

[Alex_Gur]

Тогда попробуйте скачать эти файлы здесь:
Создание интерактивных тестов в программе MS Excel
Веретенникова И.А. Как сделать тест в программе Excel?

[GaS597]

Здесь идет сравнение по ячейке. Например, для арифметической задачки это подходит, но как сравнить стили? Например, задача по форматированию таблицы. Нужно, чтобы было сравнение отформатированной таблицы с шаблоном. Или например, задача "добавить строку между строками 2 и 3". Как сравнить такую таблицу или лист?...

[Alex_Gur]

На самом деле в интернете много и других методических материалов о тестах в Excel:
Попробуйте сами поискать в Яндексе, например, по такому критерию:

макросы VBA excel ++тесты

[Alex_Gur]

Нашел тот материал, который я хотел Вам порекомендовать
http://kitkitch.narod.ru/articles/vbatut/07_part_II.html
Очень подробное описание формирования теста на Excel, составленное в расчете на начинающего пользователя.

[Alex_Gur]

Здесь идет сравнение по ячейке. Например, для арифметической задачки это подходит, но как сравнить стили? Например, задача по форматированию таблицы. Нужно, чтобы было сравнение отформатированной таблицы с шаблоном. Или например, задача "добавить строку между строками 2 и 3". Как сравнить такую таблицу или лист?...

Одно из возможных решений этой проблемы - сопоставление параметров объекта (таблицы, ячейки и т.д.) с тем, который должен быть у эталона.
Во многих случаях, как мне кажется, нет необходимости формировать эталонный объект на другом листе и т.д.
Нужно лишь знать, каковы должны быть те или иные параметры эталонного объекта, и сравнивать получившиеся параметры с эталонными - на уровне макроса.
При таком подходе для каждого конкретного задания необходимо проверять свои специфические параметры.
В принципе, для такого решения Вы должны хорошо знать программирование на VBA и объектную модель Excel. В некоторых случаях Вам может помочь макрорекордер.

Если Вы желаете, мы можем разобрать один или два конкретных примера.

[Alex_Gur]

Для начала желательно разобрать задачу попроще.
Предложите, пожалуйста, такую задачу из Вашего теста.

[Alex_Gur]

Для примера можно разобрать вариант задания:
Добавить строку между строками 2 и 3.

Исходный файл с макросом прилагается.

Исходные условия:
Имеется таблица A2:B5, заполненная, например, числами.
Значение правой нижней ячейки B5 равно 6.

Возможный способ решения:
Пользователь выделяет строку 3 и нажимает на кнопку Вставить
(или другое аналогичное решение).

Альтернативный неправильный способ решения:
Пользователь выделяет часть таблицы A3:B5 и переносит ее на ячейку ниже.

Проверка условий решения:
1) Ячейка A3 является пустой.
2) Значение правой нижней ячейки таблицы B6 равно 6.
3) Строка 3 является пустой.

Для отсечения альтернативного неправильного способа решения в ячейку XEK3 ставим точку.

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

Sub Test1()
    'В ячейке XEK3 стоит точка
    Dim rngI As Range
    Dim intA As Integer
    Range("A3").Select
    Set rngI = Range(Selection, Selection.End(xlToRight))
    intA = rngI.Count
    If Range("A3") <> "" Or Range("B6") <> 6 Or intA <> 16384 Then
        MsgBox "Вы допустили ошибку!"
        'Для пустой строки intA = 16384; для строки с точкой intA = 16365
    Else
        MsgBox "Правильный ответ!"
    End If
End Sub

[RAN]

Стоит задача разработать программку для тестирования сотрудников на знание Excel.

Вопрос: как сравнить лист, с которым работает пользователь с листом шаблона? В листе Result нужно указать результат сравнения true или false.

Вопрос. Каковы ваши познания Excel по вашей шкале?
Если хотя бы 2, то шкала должна иметь верхний предел не менее 100.

[Alex_Gur]

Вопрос. Каковы ваши познания Excel по вашей шкале?
Если хотя бы 2, то шкала должна иметь верхний предел не менее 100.

Уважаемый коллега RAN, зачем так говорить? Человек пришел к нам за помощью, а мы... 
Попытка написать такой тест уже вызывает уважение, не так ли?

[RAN]

Вы случаем не хирург?
Если нет, то не напишите ли тест по хирургии?

PS Просто я сейчас спорю с человеком, хорошо знающим Excel, относительно написанного им теста по Excel.

[Юрий М]

Попытка написать такой тест уже вызывает уважение, не так ли?

А что, была попытка? ))

[Alex_Gur]

А чего? Весьма красивый тест! И задания довольно интересные, на мой взгляд.
Свежие идеи.
Мне кажется, человек, который составил такой тест, разбирается в Экселе очень даже неплохо.
По хирургии мы такой не напишем, если мы, конечно, не хирурги...

[RAN]

Может и красивый.
Я в теме ни одного не увидел, хоть красивого, хоть нет.

[Alex_Gur]

Я в теме ни одного не увидел, хоть красивого, хоть нет.

А файл https://dropmefiles.com/q0X7w скачали?
Мне как-то все попадались гораздо хуже сделанные и более скучные. Например, здесь:
http://www.twirpx.com/files/informatics/newbie/office/excel/ft.test/.
А Вам встречались хорошо сделанные примеры тестов по Excel?

[RAN]

Посетите Excelworld.ru

PS по поводу скачиваний - не скачивал.
Я (и Юрий М) утверждаем, что в теме нет ни одного теста.
И  кокое отношение ваши ссылки имеют к тесту ТС. (Не говоря уже о заданных им вопросах?)

[Alex_Gur]

Посетите Excelworld.ru

Красивый сайт, ничего не скажешь!
Стало быть, http://www.excelworld.ru/tests/?
И зарегистрироваться...

[GaS597]

Извините, что не отвечал. У меня разница +4 мск. Excel я знаю довольно-таки поверхностно. Дальше сводных таблиц делать как-то не приходилось и то для своих, так скажем хозяйственных нужд. Например, сделать прогноз по зарплате на год и рассчитать ипотеку по квартире. Ну или другое. Макросы руками вообще не писал, либо просто записывал рекодером. Я вообще больше по части ASP.NET MVC )))) Рук-во поставило задачу на тестирование кандидатов на должность знаний по Excel и дали для примера тест, который разрабатывался для ТНК-ВР. Там 40 вопросов, половина вопросов из моего теста взята оттуда. Предложили сделать в виде test-online или в виде файла Excel. Я посмотрел тесты онлайн и понял, что они вообще не подходят. Например, мне очень сложно было пройти даже самый простой тест выбирая варианты ответов, потому что работая, я не думаю куда я нажимаю и как пишу синтаксис. Решил сделать как у ТНК в виде задач. Тест ТНК не применили у себя, потому что нужно два теста. Я работаю в двуязычной компании и нужен тест для английской и русской версий Excel. Так что я так сказать с ходу пытаюсь решить задачу, как вы правы зная Excel примерно на 2+ ))) Есть такое понятие: "Не нуачо? Тыж программист!"  Вот я и делаю

[GaS597]

А что, была попытка? ))

Нет. Это вообще впервые )))

[GaS597]

Для того чтобы проверять задания и заполнять лист с результатом добавил еще одну кнопку на форму "Выполнено". Кнопка на каждом листе с задачей. При нажатии отрабатывает макрос с условиями проверки, в случае успешной проверки заносит в лист Result 1 в противном случае 0 и меняет цвет формы на зеленый. Минус в том что на каждую задачу нужна отдельная кнопка с отдельным макросом. Но это не так ужасно ))) Подумал, что нужно добавить возможность отката задания или листа до исходного состояния. Как это сделать? По поиску вылезает только как отменить выполнение макроса. Приходит на ум только сделать листы с шаблонами и копировать данные на лист с заданием... Например, нажимает на кнопку "Очистить", отрабатывает макрос копирования с листа шаблона... Может есть какие-то другие идеи?

[GaS597]

Но минус этого метода, что он не работает со скрытыми листами

[GaS597]

Помогите решить вопрос с синтаксисом. Пишу проверку задачи по стилям. Проверяю стиль, шрифт, размер шрифта. Не могу понять как поставить условие на проверку, что были нарисованы границы таблицы?

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

Sub Finish3()
'Проверка задачи 3

If ActiveSheet.Range("A1").Style.Name = "Название" And _
ActiveSheet.Range("A2").Style.Name = "Заголовок 1" And _
ActiveSheet.Range("A2").Font.Name = "Cambria" And _
ActiveSheet.Range("A2").Font.Size = 14 Then _
Range("Result!C12").Value = 1 Else Range("Result!C12").Value = 0

End Sub

[GaS597]

Вопрос отпал. Записал макрос и скопировал оттуда.

[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 далее создавать по каждому вопросу отдельную тему.

[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)]

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