Как посчитать, сколько раз я нажимал на конкретную фигуру в 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