日期事件

永魂

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 1 Then
a = Target.Row
b = Target.Column
    Set rng2 = Range(Cells(a, b), Cells(a + Target.Rows - 1, b))
   
    For Each rng1 In rng2
    If Cells(rng1.Row, 4) = "" Then
        Cells(rng1.Row, 4) = Now()
    End If
    Next
End If
Application.EnableEvents = True
End Sub
这是自动设置日期的事件
如果rng2换成targe就可以成功
否则就会提示类型不匹配
请问这是问什么呢

永魂

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = "$A:$A" Then Exit Sub
    If Target.Column = 1 Then
    a = Target.Row
        Set rng2 = Range(Cells(a, 1), Cells(a + Target.Rows.Count - 1, 1))
        
        For Each rng1 In rng2
        If Cells(rng1.Row, 4) = "" Then
            Cells(rng1.Row, 4) = Now()
        End If
        Next
    End If

Application.EnableEvents = True
End Sub
为什么不行啊  求指点

永魂

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address <> "$A:$A" Then
    If Target.Column = 1 Then
    a = Target.Row
        Set rng2 = Range(Cells(a, 1), Cells(a + Target.Rows.Count - 1, 1))
        
        For Each rng1 In rng2
        If Cells(rng1.Row, 4) = "" Then
            Cells(rng1.Row, 4) = Now()
        End If
        Next
    End If
End If
Application.EnableEvents = True
End Sub
难道非要这样写才行吗

永魂

永魂 发表于 2020-7-25 17:48
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Add ...

这段代码删除a列以后 然后在a列输入 事件就不会响应了

永魂

有人帮忙给看下吗 是是不是worksheet change
事件中不能用exit sub

leroy

Target.Rows
是不是这里多了最后的字母s