0

再会,

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

B35 是带有 mmm-yy 的日期单元格,B37 是没有小数位的数字。

我想要一个公式,当日期更改时 B37 加 1,即 B35:Mar-13 B37:4 当 B35 输入为 Apr-13 时,然后 B37 自动更改为 5。

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

4

1 回答 1

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

谢谢你

于 2013-04-24T14:36:38.257 回答