如何在一张工作表上运行 2 个 Private Sub Worksheet_Change？

Question

我对 VBA 知之甚少，所以请寻求一些指导。

我有以下内容，效果很好，在 1 列中更改一个数字，右侧的列添加日期和时间。 我还想在第 6 列上运行此代码，尝试了很多东西Else ， ElseIf ， End If等，没有运气，最接近我管理的是第二个代码，有人可以告诉我我错过了正确的代码请。

1.  Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 3 Then Exit Sub With Target.Offset(0, 1).Value = Now.NumberFormat = "MM/DD/YYYY hh:mm AM/PM" End With End Sub

2.  Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 3 Then Exit Sub With Target.Offset(0, 1).Value = Now.NumberFormat = "MM/DD/YYYY hh:mm AM/PM" End With If Target.Column <> 6 Then Exit Sub With Target.Offset(0, 1).Value = Now.NumberFormat = "MM/DD/YYYY hh:mm AM/PM" End With End Sub

Answer 1

如果目标列不是 3，您的第一个“如果”会阻止脚本继续，因此当列是 6 时它不会执行。

您所要做的就是改变主意，并为所需的执行创造条件。

If Target.Column = 3 Then
    With Target.Offset(0, 1)
    .Value = Now
    .NumberFormat = "MM/DD/YYYY hh:mm AM/PM"
    'End With
Elseeif Target.Column = 6 Then
    With Target.Offset(0, 1)
    .Value = Now
    .NumberFormat = "MM/DD/YYYY hh:mm AM/PM"
    'End With
End If