Щелкая по разным ячейкам, показывающие числа в возрастающем порядке

Question

Я пытаюсь настроить код vba со следующими характеристиками: Когда я нажимаю на любую ячейку, появляется цифра «1». А затем, когда я нажимаю на другую ячейку, я получаю цифру «2» и так далее. Есть ли способ сделать это?

Это моя попытка, но она явно работает совсем не так, как то, что я хочу сделать. Здесь, когда я нажимаю на ячейку, она всегда начинается с 1

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

Answer 1

• 1000 ключи, что, вероятно, не совсем то, что вам нужно. Следующий код будет работать после двойного щелчка мышью, к сожалению, я не могу понять, как вызвать событие одним щелчком.

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