Цитата:
Комбинатор:
Как в экселе сделать
чтоб при клике по ячейке, к числу в ячейке прибaвлялась единица
|
в модуле листа следующий кусок
If IsEmpty(Target) Then
Target.Value = 1
Else
Target.Value = Target.Value + 1
End If
можно вставить в любую процедуру
Если вставишь в процедуру:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
любое перемещение по ячейкам. Не только мышкой но и стрелками
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) по правой клавише мыши
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) по двойному нажатию
PS и не забудь, что сработает как ошибка на любое другое значение кромечисла и пустоты
Это самые простые, можно усложнить - но надо ли?