excel - 一个PS下的2个对话框功能

Question

我试图让两个对话框在 下工作Private Sub Worksheet_Change(ByVal Target as Range)，只要有人在范围内输入某个值，它们就会弹出。下面是我正在使用的代码。

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 289 Then Exit Sub
    If Target.Cells.Count > 1 Then Exit Sub

    With Target.Offset(0, 69)
        .Value = Now
        .NumberFormat = "hh:mm"


    If Target.Column <> 290 Then Exit Sub
    If Target.Cells.Count > 1 Then Exit Sub
    With Target.Offset(0, 72)
        .Value = Now
        .NumberFormat = "hh:mm"
    End With
End Sub

标签： excelvba