Excel2003代码问题，非常感谢！

一把小刀闯天下

LSYYLW 发表于 2019-4-29 21:40
老师您好：我发的帖子被老师给删除了，我把附件发到19楼了，拜托老师您有时间帮我再看看，非常感谢！

'36->20,37->0 什么规则，你的条件是变化一次D2+1。先试一下，，，

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  If CDec(Target.Rows.Count) * Target.Columns.Count > 1 Then Exit Sub
  If Target.Address = "$F$2" Then
    If Len(Target.Value) = 0 Then [d2].Value = 0: Exit Sub
  End If
  If Target.Address = "$I$2" Then
    If Len([f2].Value) = 0 Then [d2].Value = 0: Exit Sub
    [d2].Value = [d2].Value + 1
  End If
End Sub

LSYYLW

一把小刀闯天下 发表于 2019-4-29 21:42
'36->20,37->0 什么规则，你的条件是变化一次D2+1。先试一下，，，

Option Explicit

非常感谢老师，用I2的数据这组代码是成功的，我想采用B2的含有公式的数据，不是I2的那个手工输入的数据，拜托老师您再帮我看看，怎样修改代码才能采用B2的含有公式的数据来实现我的问题，再次感谢！

一把小刀闯天下

LSYYLW 发表于 2019-4-29 22:04
非常感谢老师，用I2的数据这组代码是成功的，我想采用B2的含有公式的数据，不是I2的那个手工输入的数据， ...

Option Explicit

Dim lastvalue

Private Sub Worksheet_Change(ByVal Target As Range)
  If CDec(Target.Rows.Count) * Target.Columns.Count > 1 Then Exit Sub
  If Target.Address = "$D$2" Then Exit Sub
  If Target.Address = "$F$2" Then
    If Len(Target.Value) = 0 Then [d2].Value = 0
    Exit Sub
  End If
  If Len([f2].Value) = 0 Then [d2].Value = 0: Exit Sub
  If lastvalue <> [b2].Value Then
    [d2].Value = [d2].Value + 1
    lastvalue = [b2].Value
  End If
End Sub

LSYYLW

一把小刀闯天下 发表于 2019-4-29 22:15
Option Explicit

Dim lastvalue

万分的感谢老师，您完美的解决了我的问题，让您受累了。