Макрос для прибавления 1 к значению в ячейке для Excel

код: Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Excel.Range, Cancel As Boolean) r = ActiveCell.Row c = ActiveCell.Column Cells(r, c) = Cells(r, c) + 1 End Sub

Источник: rutube.ru