Использовать Командную кнопку для ввода значения

Пользователь

Сообщений: 33 Регистрация: 10.05.2016

19.02.2020 23:11:09

Добрый день,
пробовал писать макро-рекордером, но так и не смог достичь желаемого результата.
Подскажите, пожалуйста, в прикрепленном файле, или любом другом вновь созданном, как можно для командной кнопки в зависимости от того в какую ячейку она помещена, назначить действие чтобы в соседнюю ячейку (справа) вводилось число "1"?

Прикрепленные файлы

set value thru bttn.xlsm (20.04 КБ)

Изменено: sunnyb - 19.02.2020 23:23:26

БМВ

Модератор

Сообщений: 23297 Регистрация: 28.12.2016

Excel 2013, 2016

19.02.2020 23:24:06

Код
CommandButton1.TopLeftCell.Offset(, 1) = 1

И так для каждой кнопке, а вот если использовать другой тип кнопки то
код один

Код
Sub Write1() ActiveSheet.Shapes(Application.Caller).TopLeftCell.Offset(, 1) = 1 End Sub

А все кнопки запускают его.

По вопросам из тем форума, личку не читаю.

sunnyb Пользователь Сообщений: 33 Регистрация: 10.05.2016	#3 19.02.2020 23:36:49 БМВ, большое Спасибо! Тестирую и все работает! Код1 работает, очень помогло Личный вопрос не связанный с темой, как овладеть (с чего начать) синтаксисом ВБА? Периодически крайне необходимо и, всегда поражаюсь, как на форуме Вам удается решать любые задачи в excel