excel - 如何计算我单击形状的次数？

Question

我创建了一个简单的瞄准练习游戏，你点击一个圆圈，当你点击它时会传送。

我想数一数你点击了多少次圆圈。

Answer 1

将您的形状添加到工作表中，然后右键单击并“分配宏”。例如，它可能如下所示：

然后您在 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

Answer 2

您需要从开发人员选项中插入命令按钮并将其用作形状。这是计算点击次数的代码。

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