Как посчитать, сколько раз я нажимал на конкретную фигуру в VBA?

Question

Я работаю над проектом, и я создал очень простую игру для прицеливания, где вам нужно щелкнуть по кругу, который постоянно телепортируется при нажатии на него. Я хочу добавить оценку, которая подсчитывает, сколько раз вы успешно нажали на круг, но я не знаю как. Кто-нибудь может помочь? Кстати, я делаю это в Excel VBA.

Answer 1

Вам нужно будет вставить командную кнопку из опции разработчика и использовать ее в качестве фигуры. Вот код, который будет подсчитывать количество нажатий.

Private Sub CommandButton1_Click()
Static cnt As Long
cnt = cnt + 1
Me.CommandButton1.Caption = "I have been clicked " & cnt & " times"
End Sub

Answer 2

Добавьте фигуры на лист, затем щелкните правой кнопкой мыши и "Назначьте макрос". Как пример, это может выглядеть так:

Затем ваш код в модуле VBA ловит события щелчка по фигурам (потому что вы связали фигуру с макросом на предыдущем шаге):

Option Explicit

Sub Oval1_Click()
    Dim countCell As Range
    Set countCell = ActiveSheet.Range("D7")
    countCell = countCell + 1
End Sub

Sub Oval2_Click()
    Dim countCell As Range
    Set countCell = ActiveSheet.Range("D7")
    countCell = 0
End Sub