点击不同的单元格，显示数字依次递增。

Question

我试图设置一个具有这种特性的vba代码。当我点击任何一个单元格，数字 "1 "就会出现。然后，当我点击另一个单元格时，我得到数字 "2"，以此类推。有什么方法可以做到这一点吗？

这是我的尝试，但很明显，它的工作原理与我想做的很不一样。

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

Answer 1

如果我对你的问题理解正确的话，那么下面的代码应该能给你你想要的东西。

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

EDIT: 如果用方向键选择了一个新的单元格，上面的代码也会触发一个新的值，这可能不是你想要的。 下面的代码将在鼠标双击后工作，不幸的是，我无法解决如何在单次点击时触发事件。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, cancel As Boolean)
    LastClick = Application.WorksheetFunction.Max(Range(Cells.Address))
    ActiveCell.Value = LastClick + 1
End Sub