Сохранение формулы

[LENA_M]

Здравствуйте.
Я столкнулась стакой проблемой: у меня в задании( его прилагаю), когда ставишь флажки суммы и разности, исчезает формула в столбце "В".
Как можно сделать так, что бы формула сохранялась, при нажатии флажков?

[EducatedFool]

Сделать-то всё можно.
Хотя, формулы в столбце "В" абсолютно не нужны...

Почитайте пару последних постов в этой теме

Вы тратите своё и наше время.
Это уже 6-я тема по одному и тому же вопросу.

Один раз четко сформулируйте задание - и получите готовое решение.
Все можно реализовать при помощи макросов, причём кода будет меньше, чем уже присутствует в файле.
Да и реализовать всю функциональность "с нуля" намного быстрее, чем дорабатывать то, что уже есть.

[LENA_M]

Задание.
Даны 10 примеров,для них нужно
1.когда пишется ответ в столбце ответ, если он верный, в столбце ошибка ничего не пишется, если ответ не врный, то в столбце ошибка ставится 1.
2. Нужно сделать кнопку, нажав на которую столбец ответ и столбец ошибки очищались.
3. Нужно создать 2 флажка: разность и сумма. если будет активен только флажок разность, то все знаки в примерах. заменяются на минусы, если будет активен флажок только сумма, то все знаки в примерах заменяются на плюсы, если активны оба флажка, то примеры должны быть как на разность, так и на сумму.
4. Нужно, на листе, поставив в ящейке 30(т.е. сумма примеров не больше тридцати) сумма каждого примера не превосходила 30, если это не так, то каждое слагаемое должно уменьшиться, чтобы выполнялось условие.
5.поставив в столбце "примеры за ошибку", скажем 2, то если будет допущена ошибка и в столбуе ошибка будет стоять 1, количество примеров, должно увеличиться на 2, и в итоге их должно оказаться 12.
6.Поставив в столбце Кол-во примеров 15, примеров на листе должно стать 15

[EducatedFool]

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

Если устроит - доработаю пример под Ваши нужды.

[LENA_M]

Да, меня устраивает, только отчищаться должны столбцы ошибка и ответ

[EducatedFool]

В макросе Очистка

Sub Очистка()
    Application.EnableEvents = False
    [a6:f666].ClearContents:    [a6:f666].Interior.ColorIndex = 0
    Set coll = New Collection
    Application.EnableEvents = True
End Sub

замените строку

[a6:f666].ClearContents:    [a6:f666].Interior.ColorIndex = 0

на строку

[e6:f666].ClearContents:    [e6:f666].Interior.ColorIndex = 0

[LENA_M]

1.
мне не нужна кнопка "создание примеров", кнопка должна , по условию задачи, быть одна.
2. флажки разность и сумма не работают...
3. если я заменяю строку в макросе, то допутим если было 2 ошибки, примеров стало 14, при нажатии отчистка, ошибки и ответы стираются, а примеро остаётся 14, а надо, чтоб их снова стало 10.

[EducatedFool]

Без комментариев...

[LENA_M]

Спасибо!
Но у меня возникла проблема...
Я хочу изменить в макроcах русский шрифт на латиницу, когда ничинаю менять, выдаёт ошику "13".
Подскажите как можно исправить корректно, коментарии на русском в моей работе недопустимы...

[LENA_M]

В макросе main можно заменить КолвоПримеров, на kolvoprimerov, так, чтобы программа работала, у меня не получается, когда я ставлю латиницу?
Так же у меня не работает dobavkazaoshibku, sumaprimara...