Ігор Гончаренко, огромное спасибо!

Добрый день!)

Моя задача. Создать таблицу 10 на 10 (условно), где каждая ячейка взаимосвязана с соседними. ( по итогу будет лабиринт )

Начал думать над реализацией:

При работе макроса cоздается объект равный диапазону:

Set example = Range("A1:C4")



В дальнейшем при работе макроса планируется каждую ячейку пройтись при помощи оператора For Each.

но за одно прохождение заполниться лишь часть ячеек. ( при первом прохождение 4 ячейки заполниться, при втором от 4 до 12 и тд)

хочется облегчить жизнь программе и не удалить из example лишние ячейки.

Вот суть вопроса, как удалить из ранее созданного объекта Set example = Range("A1:C4"), уже не нужные ячейки?

или можно как то по другому это обыграть?

Юрий М, нет, к сожалению не подходит такой вариант...=(

RAN , огромное спасибо!) сработало как надо!!!
прям очень благодарен

Добрый день!)

Есть макрос, что создает кнопку. Так же есть макрос, что выводит сообщение.
Помогите мне сделать так, что когда кнопка создавалась, к ней был привязан макрос (программно сразу), что выводит сообщение.

Файл с макросами во вложении.  

из основного цикла выйти можно введя 0=)

Do While A <> 0

Select Case A
   Case 1
       MsgBox "Побег"
   Case 2
       MsgBox "бой"
   Case 3
       MsgBox "торг"

End Select

я похоже суть донести не могу=(((( мне нужно избавиться от inputbox, и чтобы вместо него были кнопки userform...но чую я,это  не возможно =(

, , нет =(

окошко новое не должно высвечиваться...то есть то что мы в inputBox должны ввести(первый вариант) в идеале должно вводиться при нажатии кнопки, но цикл должен работать дальше...
То есть ввод в inputBox значения 1, это должно быть кнопка 1,
ввод в inputBox значения 2, это должно быть кнопка 2....
Сделал блок схемку(слево было) справа как хотел бы=) и нужен именно цикл.

В будущем в каждой процедуре будут еще ветвления...

Nordheim,  любые 4 кнопке в блоке из 6 =)

Для примера мне будет двух достаточно)
CommandButton CB1
CommandButton CB2

, честно признаюсь, я не вижу разницы... это одно и тоже...
Я конечно чайник, но суть задачи сводится к тому чтобы impubox заменить на кнопки в форме UserForm....все выше сказанное лишь заход к проблеме с разных сторон....=( переименовывать не нужно более=)

, не сразу понял о чем вы) Модераторы подсказали...

Выкладываю фаил с UserFormой, при запуске макроса откроется сама форма. При ее закрытие запуститься цикл игры...вот его нужно реализовать как то в VBA без всплывающих окон =)

Мне помощь нужна не в создании юзер формы. А в примере кода кнопок/userformы
Как я знаю кнопка запускает какую то процедуру...а мне нужно:
1) появляется юзер форма, ожидает выбор пользователя
2) пользователь жмет кнопку 1 или 2 или 3 и в этот момент в код оператора Case делается выбор 1.
3)и так по кругу  в цикле Do While  

Добрый день!

Делаю "Игру" на VBA. Первоначально планировал делать при помощи InputBox.
Пример кода:Позже решил сделать через форму UserForm. Сделал следующую форму:(пример в загруженных файлах)

Суть вопроса: Подскажите, как можно реализовать нажатие кнопок в UserForm, чтобы они отрабатывали как A = InputBox("что сделать хочешь?")

Возможность сделать 1 кнопка = 1 выбор на всегда отсутствует, тк в будущем смысл кнопок будет меняться при работе. А вся логика работает на цикле While