Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
 
Рейтинг 4.67/18: Рейтинг темы: голосов - 18, средняя оценка - 4.67
369 / 11 / 1
Регистрация: 23.08.2013
Сообщений: 174

Головоломка с цифрами

07.09.2013, 18:22. Показов 4390. Ответов 38
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Примитивная логическая головоломка на VBA. для открытия файла нужен Office 2007. После открытия файла отключить защиту.
А вы догадаетесь какова цель данной головоломки?
Вложения
Тип файла: rar Головол.rar (22.2 Кб, 27 просмотров)
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
07.09.2013, 18:22
Ответы с готовыми решениями:

Напечатать число в интервале от 1 до 999, заданное арабскими цифрами, римскими цифрами
Напечатать число в интервале от 1 до 999, заданное арабскими цифрами, римскими цифрами.

Пусть число записано римскими цифрами, выведите его запись арабскими цифрами
Помогите сделать, пожалуйста)!!! 1) Пусть число записано римскими цифрами: М — 1000, D — 500, С — 100, L — 50, X — 10, V — 5, I — 1....

Запись любого данного числа n (n <3999 ) арабскими цифрами перевести в запись римскими цифрами
Нужна помощь в решении програмы на С !!(Пожалуйста) Для записи римскими цифрами используются символы I, V, X, L, C, D, M,...

38
 Аватар для Sasha_Smirnov
5562 / 1370 / 150
Регистрация: 08.02.2009
Сообщений: 4,109
Записей в блоге: 30
10.09.2013, 12:49
Студворк — интернет-сервис помощи студентам
Цитата Сообщение от Alex77755 Посмотреть сообщение
Ну и в чём прикол?
А в самом деле! Ну «расклад» сменяется. А голову-то над чем ломать?

Поставил улучшенный код формы от korvindeson — и даже расклад не меняется при его запуске.

А в авторском варианте (где он благополучно сменялся и подрагивал) — кнопки для чего?
Вложения
Тип файла: xls Головол.xls (54.5 Кб, 7 просмотров)
1
369 / 11 / 1
Регистрация: 23.08.2013
Сообщений: 174
10.09.2013, 13:55  [ТС]
Цитата Сообщение от Sasha_Smirnov Посмотреть сообщение
А голову-то над чем ломать?
Я же говорю, что головоломка примитивная. Нужно просто расставить цифры в порядке возрастания. А чтобы создать действительно интересную головоломку нужно быть хорошим математиком...

Добавлено через 3 минуты
Цитата Сообщение от Sasha_Smirnov Посмотреть сообщение
А в авторском варианте (где он благополучно сменялся и подрагивал) — кнопки для чего?
Нажмите две кнопки над цифрами, которые хотите обменять.
0
369 / 11 / 1
Регистрация: 23.08.2013
Сообщений: 174
12.09.2013, 06:59  [ТС]
Цитата Сообщение от korvindeson Посмотреть сообщение
напрашивается не дублировать кучу раз один и тот же код, а для начала сделать функцию, передавать в неё необходимые параметры.
Спасибо, что научили сокращать код. Может быть в дальнейшем мне это пригодиться...
Но вопрос в другом. Поняли ли вы "принцип работы" моей головоломки? Вы заметили несовершенство в кодах процедур, но основное значение здесь придается ссылкам и формулам. А ведь именно они делают файл таким громоздким. Изучая язык VBA, я хотел бы научиться создавать похожие программы только с помощью кодов, не прибегая к таблицам. Я уверен, что это возможно.
Как бы вы написали эту программу на Visual Basic, не пользуясь Excel?

Добавлено через 10 минут
Цитата Сообщение от Sasha_Smirnov Посмотреть сообщение
Поставил улучшенный код формы от korvindeson — и даже расклад не меняется при его запуске.
korvindeson не дописал процедуры для 10-й кнопки и кнопки "сменить расклад". Возможно специально для того, чтобы я исправил ошибку и научился самостоятельно сокращать код...

Скачал ваш измененный файл, там потеряно форматирование. а я специально подгонял выделенный диапазон, чтобы при открытии User форма была точно под ним. Поэтому и стоит изучить VBA так, чтобы можно было отображать данные не в таблице, а прямо в диалоговом окне.

Добавлено через 9 часов 22 минуты
Цитата Сообщение от korvindeson Посмотреть сообщение
Как перенесёте в код головоломку в код или если проблемы возникнут, пишите.
Что то совсем интерес к моей теме пропал
0
 Аватар для Апострофф
9912 / 3933 / 743
Регистрация: 11.10.2011
Сообщений: 5,916
12.09.2013, 11:58
Лучший ответ Сообщение было отмечено как решение

Решение

Попробуйте без форм и формул, если я правильно понял суть игрушки?
Миниатюры
Головоломка с цифрами  
Вложения
Тип файла: xls ГоловолM.xls (38.5 Кб, 19 просмотров)
4
369 / 11 / 1
Регистрация: 23.08.2013
Сообщений: 174
12.09.2013, 12:13  [ТС]
Цитата Сообщение от Апострофф Посмотреть сообщение
Попробуйте без форм и формул
эти области экрана срабатывают на нажатие? И это в обычном файле xls!? Круто!

Я сейчас с телефона, но вечером скачаю. Если я нажму alt+F11 я увижу код?
0
 Аватар для Sasha_Smirnov
5562 / 1370 / 150
Регистрация: 08.02.2009
Сообщений: 4,109
Записей в блоге: 30
12.09.2013, 12:27
Цитата Сообщение от Softkhoz Посмотреть сообщение
И это в обычном файле xls!? Круто!
С обычных программ пакета Office 95 это и началось. За почти 20 лет до многих дошло!
1
369 / 11 / 1
Регистрация: 23.08.2013
Сообщений: 174
12.09.2013, 19:34  [ТС]
Цитата Сообщение от Апострофф Посмотреть сообщение
если я правильно понял суть игрушки?
Да! Все правильно! Много времени вам понадобилось для усовершенствования?

Добавлено через 2 минуты
Полагаю это предел совершенства, до которого можно довести код этой головоломки. Да... пройдет много времени, прежде чем я смогу понять его...
0
 Аватар для Sasha_Smirnov
5562 / 1370 / 150
Регистрация: 08.02.2009
Сообщений: 4,109
Записей в блоге: 30
12.09.2013, 21:39
Кстати, в своё время я несколько дней ломал голову над изображением, которое поставил в аватар.

Вас, мне кажется, порадует, что это тоже результат выполнения ВБА-кода.
0
1261 / 147 / 32
Регистрация: 11.02.2011
Сообщений: 418
13.09.2013, 00:56
Лучший ответ Сообщение было отмечено как решение

Решение

Цитата Сообщение от Softkhoz Посмотреть сообщение
Да... пройдет много времени, прежде чем я смогу понять его...
Добавил комментарии, думаю поможет
Вложения
Тип файла: xls ГоловолM.xls (31.0 Кб, 10 просмотров)
2
369 / 11 / 1
Регистрация: 23.08.2013
Сообщений: 174
13.09.2013, 18:09  [ТС]
Цитата Сообщение от korvindeson Посмотреть сообщение
Добавил комментарии, думаю поможет
Этот код разрабатывал Апострофф. Пусть он и комментирует...
0
1261 / 147 / 32
Регистрация: 11.02.2011
Сообщений: 418
13.09.2013, 19:42
Softkhoz, внезапно
0
369 / 11 / 1
Регистрация: 23.08.2013
Сообщений: 174
13.09.2013, 19:48  [ТС]
Я сначала подумал, что вы и Апострофф - одно лицо. А раз не так...
0
1261 / 147 / 32
Регистрация: 11.02.2011
Сообщений: 418
14.09.2013, 00:17
Вот и твори добро после этого.
0
369 / 11 / 1
Регистрация: 23.08.2013
Сообщений: 174
14.09.2013, 09:55  [ТС]
Цитата Сообщение от korvindeson Посмотреть сообщение
Вот и твори добро после этого.
Извините.

Добавлено через 1 час 8 минут
А в самом деле, куда пропал модератор, он же создатель ГоловолМ.xls?
0
369 / 11 / 1
Регистрация: 23.08.2013
Сообщений: 174
15.09.2013, 22:43  [ТС]
Зачем обижаться то?

Добавлено через 4 часа 17 минут
Раз уж все такие обиженные, то закрывайте тему, модератор.
0
16.09.2013, 07:25

Не по теме:

Цитата Сообщение от Softkhoz Посмотреть сообщение
Пусть он и комментирует...
Softkhoz, мне (и не только мне, похоже) непонятны Ваши претензии?
Код есть, откомментирован более чем достаточно (ещё раз спасибо, korvindeson)
Изучайте, задавайте вопросы, а не устраивайте разборки на пустом месте=-O

1
369 / 11 / 1
Регистрация: 23.08.2013
Сообщений: 174
16.09.2013, 11:12  [ТС]
Цитата Сообщение от Апострофф Посмотреть сообщение
Код есть, откомментирован более чем достаточно
Да, но кто из вас автор этого кода?
0
16.09.2013, 11:16

Не по теме:

Цитата Сообщение от Softkhoz Посмотреть сообщение
кто из вас автор этого кода?
Вот автор - https://www.cyberforum.ru/ и заканчивайте бессмысленный базар:wall:

1
369 / 11 / 1
Регистрация: 23.08.2013
Сообщений: 174
16.09.2013, 11:20  [ТС]
Составил код один программист, а откомментировал его другой. Всегда ли вы так понимаете друг друга?

Добавлено через 1 минуту
Цитата Сообщение от Апострофф Посмотреть сообщение
Вот автор - https://www.cyberforum.ru/ и заканчивайте бессмысленный базар
Кажется, сейчас я обижусь...
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
16.09.2013, 11:20

Является ли текст правильной записью римскими цифрами целого числа от 1 до 999, и, если является, распечатать это число арабскими цифрами
1) алг Дума (цел n,k) арг k рез n нач цел i n:=0 i:=0 нц пока i&lt;k n:=n+2*i+1 i:=i+1 кц

Запись числа арабскими цифрами перевести в запись римскими цифрами
Для записи римскими цифрами используются символы I, V, X, L, C, D, M, обозначающие соответственно числа 1, 5, 10, 50, 100, 500, 1000....

Головоломка
Товарищи помогите пожалуйста ! Для матрицы В (5 строк, 4 столбца) вычислить выражение Y = 5M1 + 4M2 +...+ 1M5 , где Mk - значение ...

Головоломка
Проблема такая Команда echo a=2&gt;1.log Ничего ничего не записывает в лог, так как 2 интерпретируется как указание писать поток ошибок(2)...

гОЛОВОЛОМКа
Создай головоломку....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
39
Закрытая тема Создать тему
Новые блоги и статьи
ИИ не может найти нужный язык в списке
Supersumestria 05.10.2026
Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .
Новая последняя моя музыка в SUNO
zorxor 05.10.2026
Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .
Программный домашний кинотеатр
russiannick 27.09.2026
Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого
zorxor 21.09.2026
Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .
Мобильное приложение ColorStep
pavlinmavlin 17.09.2026
Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .
Запрет дублирования строк в табличной части
Maks 13.09.2026
Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр.
Jin X 06.09.2026
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .
Программа опроса у.з. расходомера SLS-720F
Argus19 02.09.2026
Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru