尝试运行工作表更改事件两次

我正在尝试为两个不同的列（A）和（I）运行此工作表更改事件...

    Private Sub Worksheet_Change(ByVal Target As Range)
        Dim A As Range, B As Range, Inte As Range, r As Range
        Set A = Range("A:A")
        Set Inte = Intersect(A, Target)
        If Inte Is Nothing Then Exit Sub
        Application.EnableEvents = False
            For Each r In Inte
                r.Offset(0, 1).Value = Date
            Next r
        Application.EnableEvents = True 
    End Sub

这个活动是我在这个论坛上找到的。其目的是使每当数据输入到“a”列时，它都会自动将日期输入到其右侧的单元格中。我希望这种情况在工作表上发生两次。我不知道如何更改/添加它。我试图让它在电子表格上运行 A 列和 I 列的逻辑。

只需扩大您为 A 变量设置的范围即可。

Set A = Range("A:A, I:I")

重写为，

Private Sub Worksheet_Change(ByVal Target As Range)
    if not intersect(range("A:A, I:I"), target) is nothing then
        'add error control
        on error goto safe_exit
        'don't do anything until you know something has to be done
        dim r as range
        Application.EnableEvents = False
        For Each r In intersect(range("A:A, I:I"), target)
            r.Offset(0, 1).Value = Date   'do you want Date or Now?
        Next r
    end if
safe_exit:
    Application.EnableEvents = True 
End Sub