Form

[maksimla]

Некогда незанимался в excel и сейчас запутался
у меня в sheet1 A1 вопросы есть и так далее в B1 ответы а в С1 балл за ответ
у меня в sheet2 ответы

вот сама форма и код
с sheet1 какой вариант ответа будит в В такое и c1 передать в sheet2 c1
у меня чего то не получается

[EducatedFool]

у меня чего то не получается

И у нас тоже не получится...

Мы привыкли работать с книгами Excel (прикреплёнными к сообщению в виде архива),
а не с картинками (с ними вам путь на форум по Фотошопу)

[maksimla]

исправил я

[EducatedFool]

Весьма оригинальное решение...
Есть много способов решить задачу, но до такого я бы не додумался.

Вот вам первый пришедший на ум вариант:

Private Sub CommandButton1_Click()
    a = a + 4
    If a > 20 Then End
    ListBox1.RowSource = "Sheet1!a" & a
    ListBox2.RowSource = "sheet1!b" & a & ":b" & a + 3
    CommandButton1.Tag = CommandButton1.Tag + 1
    ListBox1.ControlSource = "sheet2!a" & CommandButton1.Tag
    ListBox2.ControlSource = "sheet2!b" & CommandButton1.Tag
    On Error Resume Next
    Application.Evaluate(ListBox2.ControlSource).Next = Application.Evaluate(ListBox2.RowSource).Find(ListBox2).Next
End Sub

PS: Только не спрашивайте, как это работает... сам не понимаю)

[maksimla]

это все вставил и нечего в sheet2 c столбики непоивилось
после второго запуска в столбике с что то появились числа но неправильно

[maksimla]

чегото нето неполучилось

[Arigato]

Сообщение от maksimla

чегото нето неполучилось

Двойное отрицание => получилось что-то то => проблема решена?