excel - 根据单元格值在特定列和行中填写日期

Question

我收到了根据在代表该状态的列中选择的特定状态(单元格值)填写日期的请求。
例如，如果我从下拉列表中选择 A 列中的状态“Event_1”，宏应找到具有相同名称 (Event_1) 的列，并在该列中为状态更改的行填写日期。

我只用更改所述单元格的日期填充相邻单元格。我知道我可能应该将偏移量调整为代表我状态的列号，但是我不确定如何实现这一点。

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Dim ColNum As Integer
    
    With Target
        If .Count > 1 Then Exit Sub
        If Not Intersect(Range("A:A"), .Cells) Is Nothing Then
            Application.EnableEvents = False
            If IsEmpty(.Value) Then
                .Offset(0, 1).ClearContents
            Else
                With .Offset(0, 1)
                    .NumberFormat = "dd mmm yyyy"
                    .Value = Now
                End With
            End If
            Application.EnableEvents = True
        End If
    End With
End Sub

Answer 1

那这个呢？

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ColNum As Integer

With Target
    If .Count > 1 Then Exit Sub
    If Not Intersect(Range("A:A"), .Cells) Is Nothing Then
        Application.EnableEvents = False
        If IsEmpty(.Value) Then
            '.Offset(0, 1).ClearContents
            'Why???
        Else
            ColNum = Application.WorksheetFunction.Match(Target.Value, Range("1:1"), 0)
            With .Offset(0, ColNum - 1)
                .NumberFormat = "dd mmm yyyy"
                .Value = Now
            End With
        End If
        Application.EnableEvents = True
    End If
End With

End Sub

我唯一没有得到的部分是这个:

If IsEmpty(.Value) Then
            .Offset(0, 1).ClearContents

为什么？当没有选择任何选项时，您应该指定要执行的操作。