+1 кликом

[Connector]

Пожалуйста подскажите, как сделать, чтобы клик на ячейке столбца А прибавляла, а клик на ячейку столбца В убавляла значение в ячейке столбца С?

[пасечник]

SelectionChange будет реагировать на программный Select.
«If Target.Cells.Count > 1 Then Exit Sub» в SelectionChange нужно поставить первой строкой, но лучше вместо Target там использовать ActiveCell: тогда при групповом Select будет считаться, что клик был на ячейке, которая выделена первой.
BeforeRightClick для конкретного случая (столбы A,B,C, изменение на 1):

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column > 2 Then Exit Sub
Cancel = True
With Cells(Target.Row, 3): .Value = .Value + 3 - 2 * Target.Column: End With
End Sub

[Connector]

пасечник
Большое спасибо за оказанную помощь, всё работает исправно. Но, возможно ли макрос сделать более гибким, чтобы можно было бы менять и переназначать колонки +/- и результирующую более конкретно?
Например, H (+1); I (-1); G (Result).

[пасечник]

Да, это возможно!

[Connector]

Если не очень затруднит, покажите какое-нибудь решение.
С уважением!

[пасечник]

Зачем это надо?

[Connector]

Это очень просто
Хочу составить таблицу расходных материалов. Точнее, она уже составлена. В неё уже включены некоторые несложные формулы исключающие повторения кодов, индикации по различным условиям итд. Нехватает только изменения имеющегося количества кликом для удобства.

[пасечник]

Не правильнее будет просто разнести + и - в разные события?
Столбы H и I отпадают, достаточно кликать только по нужной ячейке с количеством (BeforeRightClick минус, BeforeDoubleClick плюс) независимо от того, где на листе она находится (диапазон местоположения можно ограничить).

[Connector]

Думаю, это было бы лучше. Не затруднит показать пример такого решения?

[пасечник]

В модуль нужного листа:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = F(Target, -1) ' -1
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = F(Target, 1) ' +1
End Sub
Private Function F(ByVal R As Range, x As Integer) As Boolean
'для любой ячейки листа RightClick=-1, DoubleClick=+1
'работать не будет, если в ячейке текст
'если пусто или меньше 1 - не будет работать минус
If Not IsNumeric(R.Value) Or (R.Value = "" Or R.Value < 1) * (Sgn(x) - 1) _
Then Exit Function
R = R + x
F = True
End Function