日期更改时的增量编号

Question

美好的一天，

我有一个小问题。我有两个单元格：

B35是具有mmm-yy的日期单元格 和 B37是一个没有小数位的数字。

我想要一个公式，当日期变化时，将B37增加1，即 B35：3月13日 B37：4 当B35在4月13日输入时，B37自动变为5。

我希望我能够清楚地解决问题。 谢谢。

Answer 1

我想我已经明白了。

Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Target, Range("B35")) Is Nothing Then
      Application.EnableEvents = False
      Range("B37").Value = Range("B37").Value + 1
      Application.EnableEvents = True
   End If
End Sub

谢谢