日期更改时的增量编号

时间:2013-04-24 08:25:24

标签: excel excel-formula

美好的一天,

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

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

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

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

1 个答案:

答案 0 :(得分:0)

我想我已经明白了。

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

谢谢