单击以递增顺序显示数字的不同单元格

由 tfugit发布于 2020-05-09 12:29:48

我试图设置具有以下特征的VBA代码：当我单击任何单元格时，数字“ 1”出现。然后，当我单击另一个单元格时，我会得到数字“ 2”，依此类推。有什么办法吗？

这是我的尝试，但是显然它的工作方式与我想做的非常不同。在这里，当我单击一个单元格时，它总是从1开始

Private Sub Worksheet_BeforeDoubleClick(ByVal countCell As Range, Cancel As Boolean)
Cancel = True
countCell = countCell + 1
End Sub

1+1=3

2020-05-09 12:29:48

如果我正确理解了您的问题，那么下面的代码应该可以为您提供所需的信息。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range(Cells.Address), Target) Is Nothing Then
LastClick = Application.WorksheetFunction.Max(Range(Cells.Address))
ActiveCell.Value = LastClick + 1
End If
End Sub

tfugit

这家伙很懒，什么都没留下

积分
0
话题
0
评论
3178
注册排名
1584