Question

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

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

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

点击查看时间我还有一个公式，可以让您实时双击，我只想在两列中找到它，即I＆amp; 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

我已尝试了几个代码，但无济于事（正如我所说，我对此非常新，因此几乎没有经验），任何建议或可能的代码建议都将非常感激。

谢谢！

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

点击日期＆amp;单击时间 - 仅在指定列中

1 个答案: