如何在excel文档中为单元格范围添加当前时间

Question

我想在单击单元格时在excel文档中添加当前系统时间。

• 我希望它只适用于一系列单元格而不适用于整个文档。
• 我有一个适用于所有单元格的代码。但是如何使它仅适用于特定范围的细胞？

码

 If Target.Address = ActiveCell.Address Then 
        Target = Format(Now, "ttttt")    
 End If 

Answer 1

您可以将其限制在Intersect范围内，如下所示。在处理活动时，您应该：

• 始终禁用事件，以便代码不会重新调用自身（Change事件的特定问题）
• 要清楚Target是否适用于多个单元格或仅适用于单个单元格。

下面的

代码使用DoubleClick事件

工作表模块代码

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim rng1 As Range
Set rng1 = Intersect(Target, Range("A1:a10"))
If rng1 Is Nothing Then Exit Sub
Application.EnableEvents = False
rng1 = Format(Now, "ttttt")
Application.EnableEvents = True
End Sub

Answer 2

假设您的代码位于SelectionChange事件中：

If Target.Cells.Count = 1 Then
    If Not Application.Intersect(Target, Me.Range("RangeYouWantItToWorkFor") Is Nothing Then
        '...