Подсчет нажатий на кнопку.

[sergiksergik]

Подскажите ,пожалуйста, как сделать что бы подсчитывалось нажатие на кнопки...
Не на самой кнопке , а рядом... И если можно, так же, как обнулить эти подсчеты..
Буду благодарен!!!!

[EducatedFool]

Например, так: (см. вложение)

Если надо, чтобы счётчик обнулялся без подтверждения, замените код

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Address <> [k6].Address Then Exit Sub
    Cancel = True: If MsgBox("Обнулить значение счётчика?", vbQuestion + vbOKCancel) = vbOK Then [k6] = ""
End Sub

на

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Address = [k6].Address Then Cancel = True: [k6] = ""
End Sub

Впрочем, сбросить счётчик можно, просто выделив ячейку, и нажав клавишу Delete

[sergiksergik]

Спасибки....
А как убрать счетчик с самой кнопки..???

[EducatedFool]

Код же с комментариями...

Sub ПодсчётКоличестваНажатий()
    ' для вывода на кнопку'
    k = Val(ActiveSheet.Shapes("Rectangle 22").TextFrame.Characters.Text)
    ActiveSheet.Shapes("Rectangle 22").TextFrame.Characters.Text = k + 1 & " - СК"
    ' для вывода в соседнюю ячейку'
    Range("k6") = Val(Range("k6")) + 1
End Sub

Оставьте только последнюю строку:

Sub ПодсчётКоличестваНажатий()
    Range("k6") = Val(Range("k6")) + 1
End Sub

[sergiksergik]

Вопросов больше нет.....
Спасибо.