Любителям СУДОКУ посвящается…


Кроссворд СУДОКУ — игровое поле представляет собой квадрат 9x9, разделённый более жирными линиями сетки на меньшие квадраты 3х3 клетки. В некоторых в начале игры стоят числа (от 1 до 9). Необходимо заполнить свободные клетки цифрами от 1 до 9 так, чтобы в каждой строке, столбце, а также малом квадрате 3x3, каждая цифра встречалась бы только один раз.
Мы всем отделом (я и мой начальник) решали кроссворды СУДОКУ ежедневно. Без этого рабочий день не начинался. Выпив чашку чая (или кофе) с шоколадкой и разгадав кроссворд мы приступали к выполнению служебных обязанностей. Тогда и возникла идея написать макрос по генерированию таких кроссвордов. Мое увлечение кроссвордами прошло, а макрос остался.
Скачать можно по ссылке www.weblancer.net/users/alyon_ka/portfolio/462260.html#item
Новый кроссворд можно генерировать сколько угодно раз, проверять и находить ошибки
  • +2
  • 5 августа 2010, 15:19
  • meg

Комментарии (12)

RSS свернуть / развернуть
+
0
а как подключать макросы?
avatar

degtyarchuk

  • 5 августа 2010, 15:54
+
+2
Если макросы отключены, то нужно в меню Сервис -> Макрос -> Безопасность -> Уровень безопасности выбрать Средний. Повторно открыть книгу и при загрузке нажать кнопку «Не отключать макросы»
avatar

meg

  • 5 августа 2010, 16:15
+
0
а в опенофисе? ;) Если Tools — Options — Security — Macro Security не выводит на экран нифига и макрос не включается.
avatar

yuginboy

  • 5 августа 2010, 16:58
+
0
а кто сказал, что они полность совместимы? )))
avatar

degtyarchuk

  • 5 августа 2010, 17:00
+
0
В общем так. Проблема с запуском скриптов решаема по ссыле.
Но вот какого черта оно не запускается и хочет в строке:
If sum_m = 0 Then MsgBox "Поздравляю, Вы выйграли", vbOKOnly, <b>"Результат"</b> Else MsgBox "есть ошибки"

на выделенном месте просит:
BASIC syntax error. Expected: ,.

avatar

yuginboy

  • 5 августа 2010, 17:07
+
0
в общем, автор может подправить и для опенофиса или это на нем тестилось? Потому как для 3.2.0.10 не фурычит. ((((
avatar

yuginboy

  • 5 августа 2010, 17:10
+
0
Онотоле-негодуе!!!
avatar

yuginboy

  • 5 августа 2010, 17:11
+
0
:)))
avatar

yuginboy

  • 5 августа 2010, 17:11
+
0
ну нет у меня Openоffice и не было никогда, а вот в 2003 и в 2007 работать будет точно
avatar

meg

  • 5 августа 2010, 17:47
+
0
пора повышать квалификацию. поставь ОО и делай ещё и для него. очень много пользователей.
avatar

degtyarchuk

  • 6 августа 2010, 10:24
+
0
Обязательно сделаю.
avatar

meg

  • 6 августа 2010, 12:15
+
0
Супер!
avatar

cyril

  • 5 августа 2010, 16:06

Только зарегистрированные и авторизованные пользователи могут оставлять комментарии.
Не забываем смотреть статистику:

Яндекс цитирования