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

最新推荐文章于 2023-07-13 16:32:01 发布

原创最新推荐文章于 2023-07-13 16:32:01 发布 · 1.4k 阅读

1 ·

CC 4.0 BY-SA版权

本文介绍了一个简单的 Excel VBA 脚本，该脚本可以实现在用户于 C 列输入值时自动将 D 列填充为当前用户名的功能。此功能通过监测单元格变化并使用 Application.UserName 获取当前用户名来实现。

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