Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
 
Рейтинг 4.55/11: Рейтинг темы: голосов - 11, средняя оценка - 4.55
0 / 0 / 0
Регистрация: 20.12.2018
Сообщений: 139

Условие исчезновения цифры и реакция на остановку цифры

19.04.2019, 11:45. Показов 2382. Ответов 26
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Здравствуйте, уважаемые форумчане.

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

Как изменить макрос, чтобы при вынужденной остановке, в столбце AI5 напротив соответствующего числа - появлялась бы 1 ?
(В данном случае - такую вынужденную остановку совершит цифра 88 - когда наткнется на препятствие из девяток. В этом случае в ячейке AI8 - должна появится цифра "1")
Вложения
Тип файла: xls 111.xls (87.5 Кб, 3 просмотров)
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
19.04.2019, 11:45
Ответы с готовыми решениями:

Сколькими способами можно переставить цифры в числе 12324225, чтобы 4 цифры 2 не шли подряд цифры
Моё решение: 8!/(4!*4!*2!)=35 8!-35=40285 Поправь пожалуйста, если не прав Добавлено через 21 минуту я не прав выше. вот так...

Как выполнять условие если в строке только цифры
Здравствуйте Вот есть массив string str={"fdsg123", "21" , "ышфлв", "isa82jjd" , "89"} А вот цикл ...

Напечатать текст < условие А>, удалив из него все цифры
Задана последовательность символов за которой следует точка( в суму последовательность точка не входит ) Напечатать текст &lt; условие...

26
0 / 0 / 0
Регистрация: 20.12.2018
Сообщений: 139
22.04.2019, 12:54  [ТС]
Студворк — интернет-сервис помощи студентам
Burk, спасибо.
Сейчас уже все намного лучше.

Но вот когда в прикрепленном файле - цифра 88 - начинает движение, то в ячейке AI8 стоит значение "".
Хотя должно быть "-1".

Потом когда 88 встречает препятствие - то в AI8 - появляется значение "2". (Так и должно быть).
Но если убрать препятствие, чтобы цифра 88 могла двигаться дальше - то значение "2" из ячейки AI8 - никуда не исчезает.
Хотя по идее - там должно появиться число "-1".
Вложения
Тип файла: xls Snake(5).xls (89.0 Кб, 1 просмотров)
0
1847 / 1162 / 354
Регистрация: 11.07.2014
Сообщений: 4,107
22.04.2019, 16:39
Лучший ответ Сообщение было отмечено SkyGreen как решение

Решение

SkyGreen, по второму вопросу - вставьте после проверки 9 следующую за ней строку
Visual Basic
1
2
  If Cells(cr, cc).Value = 9 Then Cells(I, "AI") = 2: GoTo NextI
  Cells(I, "AI") = -1
Тогда и первая должна убраться. А что там были просто кавычки?
1
0 / 0 / 0
Регистрация: 20.12.2018
Сообщений: 139
22.04.2019, 16:56  [ТС]
Теперь все работает хорошо.
Огромное Вам человеческое спасибо.

У меня есть один вопрос по этому макросу.
Как выборочно отключить движение одной из цифр ?
Чтобы она остановилась не встречая препятствия. Просто не двигалась бы и все.

Вот допустим как заставить этот макрос - реагировать на наличие 1 в столбце AJ ?
(Например если в ячейке AJ8 стоит 1, то цифра 88 двигается, если в ячейке AJ8 стоит 0 - то для цифры 88 - не выполняется и она просто замирает)
Вложения
Тип файла: xls Snake(6).xls (89.5 Кб, 2 просмотров)
0
1847 / 1162 / 354
Регистрация: 11.07.2014
Сообщений: 4,107
22.04.2019, 18:17
SkyGreen, ну это просто - добавьте вторую строку
Visual Basic
1
2
Forward:
  If Cells(I, "AJ") = 0 Then GoTo NextI
идея такая, если какое-то условие выполняется, то уходим на конец цикла для данного значения I. Обходим все дальнейшие действия
1
0 / 0 / 0
Регистрация: 20.12.2018
Сообщений: 139
22.04.2019, 18:35  [ТС]
Burk, а куда именно эту строку добавлять ?

Что-то я куда ее не добавлю - ничего не происходит.
(Хотя в ячейке AJ11 - стоит 0 и это значит что цифра 22 должна застыть на месте)
0
1847 / 1162 / 354
Регистрация: 11.07.2014
Сообщений: 4,107
22.04.2019, 19:15
SkyGreen, ну вы даете, уважаемый! Там же всё написано, находите строку Forward: и после неё вклиниваете вторую строку из моего сообщения. И число 22 застывает без проблем.
0
0 / 0 / 0
Регистрация: 20.12.2018
Сообщений: 139
23.04.2019, 00:45  [ТС]
Burk, я все понял.
Но тут почему-то действует такой эффект:

Если убрать 0 из ячейки AJ (заменив его 1) - то двигаемая цифра дублируется.
То есть на листе образуется две одинаковые цифры - одна двигается, а другая нет.

Добавлено через 5 часов 30 минут
Burk, ага, все - разобрался.
Все работает
Спасибо вам большое - еще раз.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
23.04.2019, 00:45

Трёхзначные числа, у которых произведение 1 и 3 цифры равно квадрату 2 цифры​
Ввести на экран такие трёхзначные числа ,у которых произведение 1 и 3 цифры равно квадрату 2 цифры​

Сгруппировать в выходном файле вначале числа, начинающие с цифры 1, затем с цифры 2, 3, 4 и т.д.,
Здравствуйте, помогите мне пожалуйста с задачкой. Исходный текст содержит список целых десятичных чисел. Сгруппировать в выходном...

Вытащить цифры из текста Word и сохранить документ используя эти цифры
Здравствуйте! Я очень не силен в VBA. Несколько дней бьюсь. Помогите пожалуйста с макросом. Необходимо выделенный номер в тексте Word и...

Сгрупировать в выходном файле вначале числа, начинающиеся с цифры 1, затем с цифры 2, 3, 4
сделайте программу кто может, пожалуйста. Очень сильно прошу! Условие: Исходный текст содержит список целых десятичных чисел....

В введенном тексте найти цифры и изменить цвет фона данной цифры
Написать COM программу, которая будет выполнять следующие операции: 1. Ожидать ввода текста с клавиатуры. 2. Найти в тексте цифры. 3....


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

Или воспользуйтесь поиском по форуму:
27
Ответ Создать тему
Новые блоги и статьи
Генератор паролей
Maks 29.10.2026
Реализация из решения ниже выполнена исключительно по моей инициативе. Самым главным критерием для меня было создание паролей, в котором отсутствуют знаки: | 1 l I Обработка содержит реквизиты: -. . .
Установка ChatGPT (Codex) на Windows без использования Microsoft Store
Fabien159 28.10.2026
Здравствуйте всем читающим! Опишу процесс установки ChatGPT (Codex) на Windows, если по каким-то причинам у вас не получается устанавить его через Microsoft Store. И так: 1. Скачиваем с. . .
Программное добавление префикса в нумерацию документов
Maks 27.10.2026
Реализация из решения ниже выполнена в самописной конфигурации на БСП (помощь начинающему коллеге). Задача: Программно добавить префикс в нумерацию документов. Решение: В модуле объекта. . .
После закрытия оутлука продолжает висеть процесс в диспетчере задач
Maks 27.10.2026
С недавнего времени в продакшене возникла проблема: при закрытии оутлука в диспетчере задач продолжал висеть процесс outlook. exe. Проблема возникла после установки MS Office 2021 LTSC на машинах, под. . .
Baragoz - DPS/HPS бот для WoW 3.3.5a, многоязычный
AmbA 26.10.2026
Хотите ещё ботов? У меня есть один! А я пока отдохну от него. https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=12062&stc=1&d=1793007952 Инструкция внутри. https:/ / youtu. be/ VpfFZSUDGnQ. . .
Особенности gif сгенерированных в Си
russiannick 21.10.2026
Рассмотрим генерацию gif файлов, которые в Си имеют свои особенности. Gif представляет собой графический формат популярный в интернете. Посмотрим на палитру. Gif файл сгенерированный в си отличается. . .
FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3)
8Observer8 18.10.2026
Содержание блога | English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .
Локальный http сервер
Argus19 17.10.2026
Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru