Добавление 1 в одной ячейке при нажатии на фигуру в другой

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Добавление 1 в одной ячейке при нажатии на фигуру в другой (Макросы/Sub)

bazanski

Дата: Среда, 15.11.2023, 07:42 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 24

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Добрый день.
Помогите.

У меня на листе находится столбец E и таблица K11:U35.
У столбца по левую сторону - идет желтый столбец, а у таблицы - по левую сторону и по верхнюю сторону - идет желтый столбец и желтая строка.
И в столбце E и в таблице K11:U35. - в ячейке стоят фигуры в виде плюса.

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

К сообщению приложен файл: 0066057.xls (291.5 Kb)

Ответить

msi2102

Дата: Среда, 15.11.2023, 09:27 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 415

Репутация: 129 ±

Замечаний: 0% ±

Excel 2007

Для таблицы K11:U35.
[vba]

Код

Sub Макрос1()
    aCal = Application.Caller
    Cells(ActiveSheet.Shapes(aCal).TopLeftCell.Row - 1, 10) = 1
    Cells(8, ActiveSheet.Shapes(aCal).TopLeftCell.Column) = 1
End Sub

[/vba]