"Судоку Калькулятор" причесать

[TenRa]

Здравствуйте, господа гуру.
Я новичок в программировании.
Вот моя программа "Судоку Калькулятор". Работает.
Но скорее всего ее можно "причесать", "украсить" (в смысле красивого кода), сделать компактнее.
Буду рада всем вашим комментариям.

[Skif-F]

Вот, маленько поджал код. Посмотрите, проверьте.

[TenRa]

Спасибо.
Я как раз и не знала, как эти Checkbox'сы в цикле проверять.
И как избавиться от 6 функций для суммы. Красиво. Буду разбираться.
Еще раз спасибо.

[TenRa]

Нашлась ошибочка. Если интересно - проверьте. Сумма 18, число цифр - 3 , исключить 3 4 6 . Выдает :
На Вашем коде : "нет вариантов"
На моем коде : 1 8 9 ; 2 7 9.

[Skif-F]

Прежде, чем смотреть мой код, попробуйте сами!

Ошибку, вроде, исправил. Заодно убрал лишние проходы по циклу.

[TenRa]

Сообщение от Skif-F

Прежде, чем смотреть мой код, попробуйте сами!

Ошибку, вроде, исправил. Заодно убрал лишние проходы по циклу.

Да, сработало без ошибок. Спасибо.
Попробую поискать, но уже не сегодня. (Хотя очень велико искушение заглянуть все-таки в исправленный код)

[Skif-F]

Рекомендую внести такие изменения:

Private Sub Workbook_Open()
    If Workbooks.Count = 1 Then 'Если открыта только одна книга
        Application.Visible = False  'Прячем окно Excel
        UserForm1.Show
        Application.Quit             'Закрываем приложение
    Else     'Иначе, открыто несколько книг и поэтому нельзя прятать окно Excel
        UserForm1.Show
        Me.Close saveChanges:=False 'Закрываем только себя без сохранения результата
    End If
End Sub

Private Sub UserForm_Initialize()
    Me.TextBox1.MultiLine = True
End Sub

[kuklp]

Здесь обсуждалось

[Skif-F]

И что?
Здесь обсуждаются технические вопросы конкретной программы, при чём "Судоку"? Я даже "не знаю" что это!
TenRa попросила помощи в реализации программы, я подсказал. Потом, когда потерял результат работы в Excel, запустив вариант TenRa, решил дополнить, чтобы другие не пострадали.

[kuklp]

Skif-F, я не Вам отвечал:-)