Hücreye Çift Tıklandığında Bugünün Tarihini Yaz - Microsoft Excel

A1 hücresine çift tıkladığımız zaman bugünün tarihini yazdırıyor.

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, [A1]) Is Nothing Then Exit Sub
    Target.Value = Date
End Sub

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    '--------------------------------------------------
    'Eğer hedef hücremiz ile A1 hücresi
    'kesişmiyorsa kodu çalışmayı durdur.
    '--------------------------------------------------
    If Intersect(Target, [A1]) Is Nothing Then Exit Sub
    
    '--------------------------------------------------
    'Yukarıdaki koda takılmadıysa A1 hücresine çift
    'tıklanmış demektir. Bugünün tarihini yazdır.
    '--------------------------------------------------
    Target.Value = Date
End Sub