Click for Date＆Click for Time - 僅在指定列中

Question

我是VBA的初學者，我希望得到幫助以確保下列代碼（完美地工作）只應用於指定的列。

點擊日期 我有一個公式，使您可以右鍵點擊當前日期，但我只希望它應用到列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 

我已經嘗試了幾個代碼，但無濟於事（正如我所說我對此很新，所以幾乎沒有經驗），任何建議或可能的代碼建議將不勝感激。

謝謝！

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