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

我想添加当前的系统时间在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 '...