记录用户名

Peny2020

请问当Z 列有用户输入内容，就在ab列记录下其用户名。这个代码要放在哪个点来运行才可以达到效果？
谢谢各位。

slonby

你是想说Z列输入后用户名后存入AB列，还是Z列输入前把之前的用户名存入AB列？

Peny2020

slonby 发表于 2023-5-26 15:16
你是想说Z列输入后用户名后存入AB列，还是Z列输入前把之前的用户名存入AB列？

Z列输入内容后在AB列存入用户名

吴中泉

如图所示,看看是否符合你的要求?

slonby

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not Intersect(tartget.Columns("z")) Is Nothing And Target.Count = 1 Then
    Target.Offset(, 2) = Target.Text
End If
End Sub

全党

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Application.Intersect(Target, Columns("z:z")) Then
Target.Offset(0, 2).Value = Target.Value
End If
Application.EnableEvents = True
End Sub

Peny2020

吴中泉 发表于 2023-5-26 15:24
如图所示,看看是否符合你的要求?

对的，就是这个结果，但我发现，当我把这个代码运行在实际上的文件时，一打开，全显示的是我的名字。因为这个是共享文件，有好几个部门的人做的，那这个代码就不能真正记录改动者的名字了,这可怎么搞？

tanglf188

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Column = 26 Then Target.Offset(0, 2) = Application.UserName
End Sub

tangdeng520

前面加个判断试一试，if cells(i,28)="" then；但是这个需要只有一个用户编辑的时候准确一点吧，如果多人同时编辑，系统咋知道用户叫啥呢

tanglf188

Peny2020 发表于 2023-5-26 16:18
对的，就是这个结果，但我发现，当我把这个代码运行在实际上的文件时，一打开，全显示的是我的名字。因为 ...

Application.UserName获取的是文件作者，建议ID用IP地址代替，或用计算机名：Environ("computername") 代替