Excel VBA 当C列输入值时自动填写D列为用户名

Excel VBA 当C列输入值时自动填写D列为用户名

Private Sub Worksheet_Change(ByVal Target As Range)
        If (Target.Column = 3 And Target.Value <> "") Then
            Sheet1.Cells(Target.Row, 4).Value = Application.UserName
        ElseIf (Target.Column = 3 And Target.Value = "") Then
            Sheet1.Cells(Target.Row, 4).Value = ""
        Else
            'Sheet1.Cells(Target.Row, 4).Value = " "
        End If
End Sub