+1 кликом

[Connector]

Предложите формулу, что бы по клику по ячейке значение в соседней прибавлялось (или вычиталось) на еденицу. И так во всём столбце.

[IgorGO]

предложу метод.
в любую ячейку пишете 1, отмечаете необходимые ячейки, правая кнопка, "специальная вставка", операция "сложить", Ок.

[пасечник]

Формулы в ячейках – хоть какая-то автоматизация.
Да и автор писал: «кликом» (а не пятью кликами).
Но формулы тут не помогут.
События листа, хоть и противная на мой взгляд вещь, помогут запросто.
Worksheet_BeforeRightClick, Worksheet_SelectionChange – и если плюнуть на условие «кликом»,
еще Worksheet_BeforeDoubleClick.
Вот для Worksheet_BeforeRightClick:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim R As Range
Set R = Intersect(Target, Range("a:a"))
If R Is Nothing Then Exit Sub
Cancel = True
Set R = Target.Offset(, 1)
R = R + 1 ' R = R - 1
End Sub

Предполагалось, речь идет о ячейке в смежном столбце, поэтому в примере правый клик в столбе А будет менять значение в столбе B. Хотя Offset(row, column) справится и с другими вариантами. Есть и нюансы – слишком часто кликать не выйдет, но это уже другая, более запутанная история.

[Connector]

Спасибо, друзья, за подсказки.
Однако, не удалось воспользоваться предложенным макросом. Не прибавляет, ни убавляет. В чём может быть засада?

[doober]

Макрос работает прекрасно.
Автор забыл подсказать,что все справедливо для первого столбца(А:А)
Это по тексту макроса видно

[Connector]

Сообщение от пасечник

...правый клик в столбе А будет менять значение в столбе B....

Странно, клацал по всем ячейкам вокруг и правой кнопкой и левой по-всякому, ничего не происходит

[SAS888]

Еще вариант с простым выделением ячейки в столбце "A" и защитой от возможных ошибок. Код должен находиться в модуле листа.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column <> 1 Then Exit Sub
    If Target.Cells.Count > 1 Then Exit Sub
    Target.Next = Target.Next + 1
End Sub

Пример файла во вложении.

[Connector]

Друзья, большое спасибо, всё работает, просто не туда совал код ))
Отсутствие опыта, однако

[Connector]

Не сочтите за труд подсказать, как сделать, чтобы клик на А прибавляла, клик на В убавляла значение в С.

[FormAlDeGid]

Суперский макрос!!!