Макрос для прибавления 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

0/0


0/0

0/0

0/0