Question

我想知道是否有一种有效的方法可以使用Worksheet_SelectionChange事件在vba上创建计数机制？我想计算选择特定细胞的次数。如果选择了单元格，则变量将增加1，否则不会对变量进行任何更改。

Dim S As String
Dim count As Integer

count = 0
S = "$" & "D" & "$" & ActiveCell.Row

If ActiveCell.Address = S Then
    count = count + 1
Else
    count = count
End If

Answer 1

这对你有用。将此代码放在要跟踪的工作表的代码隐藏模块中。适当更改地址字符串。请注意，它是aboslute表示法，因此A1不起作用，但$A$1会起作用。

Option Explicit

Private count As Long

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Debug.Print Target.Address
    If Target.Address = "$A$1" Then
        count = count + 1
        MsgBox count
    End If
End Sub

另请注意，您必须在模块级别声明count，以便它不会超出范围并重置。

在VBA中创建计数器

1 个答案: