Question

这应该是这么简单。我想要的只是当用户点击一个单元格，比如B列中的任何单元格，然后是...的串联时。

文字字符串“更新：” 约会时间他们的userID（Application.UserName）

我知道我需要这样的东西：

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Selection.Count = 1 Then
        If Not Intersect(Target, Range("D4")) Is Nothing Then
            ActiveCell.Select Environ("UserName")
        End If
    End If
End Sub

...被写入该单元格。例如。更新：Jane Smith 1/1/2015 00:00

希望有人可以提供帮助:-) 感谢

Answer 1

对于B列中的任何单元格，它将是：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Selection.Count = 1 Then
        If Not Intersect(Target, Range("B:B")) Is Nothing Then
           Target.Value = Target.Value & " Update: " & Environ("username") & " " & Now
        End If
    End If
End Sub

Excel VBA写入活动单元格

1 个答案: