Автор | Сообщение |
|
Отправлено: 21.12.18 20:19. Заголовок: Answers XLS, самопроверка
Добрый. Спасибо за answers.xls Благодаря xls легко реализуется макрос самопроверки учениками в режиме "верно/неверно", без сообщения ответа. Пример на скриншоте Код Скрытый текст 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
| Изменённый файл xls, содержит макросы https://yadi.sk/i/B5zvH5-ZIMoOqQ
|
![](//forum24.ru/gif/img/pg.gif) |
![Профиль](http://jpe.ru/gif/1/pr.gif)
|
Ответов - 3
[только новые]
|
|
|
| Администратор
|
Сообщение: 1778
|
|
Отправлено: 21.12.18 20:34. Заголовок: infpvt пишет: Благод..
infpvt пишет: цитата: | Благодаря xls легко реализуется макрос самопроверки учениками в режиме "верно/неверно", без сообщения ответа. |
|
Спасибо, штука неплохая. Но меня сначала сбила с толку - с одной стороны, разрешается вводить номера задания и задачи вручную, но макрос на это не реагирует, нужно обязательно выбрать из списка. Это можно поправить?
|
![](//forum24.ru/gif/img/pg.gif) |
![Профиль](http://jpe.ru/gif/1/pr.gif)
|
|
Отправлено: 29.12.18 21:54. Заголовок: Сделано..
Сделано
|
![](//forum24.ru/gif/img/pg.gif) |
![Профиль](http://jpe.ru/gif/1/pr.gif)
|
|
Отправлено: 08.11.20 08:41. Заголовок: Обновлено
|
![](//forum24.ru/gif/img/pg.gif) |
![Профиль](http://jpe.ru/gif/1/pr.gif)
|
|