点击date和点击时间 – 仅在指定的列中

我是VBA的初学者，我希望得到帮助，以确保以下代码（完美工作）只应用于指定的列。

点击date我有一个公式，使您可以右键单击当前的date，但我只希望它适用于列D.这是代码：

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Target = Date Cancel = True End Sub 

点击时间我也有一个公式，它可以让你双击实时，我只希望它在两列，是我和J.这是代码：

 Private Sub WorkSheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Address = ActiveCell.Address Then Target = Format(Now, "ttttt") End If End Sub 

我已经尝试了几个代码，但无济于事（正如我所说的，我对这个很陌生，所以几乎没有经验），任何build议或可能的代码build议将不胜感激。

谢谢！

Answer 1

检查Target的列，然后使条目位于正确的列中。

举个例子：

 Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 4 Then Target.Value = Date Cancel = True End Sub 

你的第二个例子

 Private Sub WorkSheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 9 Or Target.Column = 10 Then Target.Value = Format(Now, "ttttt") End Sub