如何计算我在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