Форум » Форум, сайт и общие вопросы » Answers XLS, самопроверка » Ответить

Answers XLS, самопроверка

infpvt: Добрый. Спасибо за answers.xls Благодаря xls легко реализуется макрос самопроверки учениками в режиме "верно/неверно", без сообщения ответа. Пример на скриншоте Код [more] Sub my_true_false() If Cells(ComboBox2.ListIndex + 2, ComboBox1.ListIndex + 2) = TextBox1.Text Then TextBox1.BackColor = &HC000& If Cells(ComboBox2.ListIndex + 2, ComboBox1.ListIndex + 2) <> TextBox1.Text Then TextBox1.BackColor = &HFF& If TextBox1.Text = "" Then TextBox1.BackColor = &HFF& End Sub Private Sub ComboBox1_Change() my_true_false End Sub Private Sub ComboBox2_Change() my_true_false End Sub Private Sub TextBox1_Change() my_true_false End Sub Private Sub TextBox1_Enter() UserForm1.SetDefaultTabOrder End Sub Private Sub UserForm_Activate() ComboBox1.List = Application.Transpose(Range("b1:ac1")) ComboBox1.ListIndex = 0 ComboBox2.List = Application.Transpose(Range(Cells(2, 1), Cells(469, 1))) ComboBox2.ListIndex = 0 my_true_false End Sub [/more] Изменённый файл xls, содержит макросы https://yadi.sk/i/B5zvH5-ZIMoOqQ

Ответов - 3

Поляков: infpvt пишет: Благодаря xls легко реализуется макрос самопроверки учениками в режиме "верно/неверно", без сообщения ответа. Спасибо, штука неплохая. Но меня сначала сбила с толку - с одной стороны, разрешается вводить номера задания и задачи вручную, но макрос на это не реагирует, нужно обязательно выбрать из списка. Это можно поправить?

infpvt: Сделано

infpvt: https://yadi.sk/i/ghNWIkJrm8885g




полная версия страницы