Excel/ダブルクリックしたセルに今年の年（2011）を入力する

年賀状の宛名書きの前に、住所録の「欠礼」に“2012”を入力する必要がある。
いちいち入力するのも面倒なので、一時的に、ダブルクリックすると入力できるマクロ を探して‥‥ コード意味が不明な部分もあるが、できるようになった。

'概要　 rngの範囲内のセルをダブルクリックすると、今年の年を入れる。
'　　　 再度ダブルクリックするとクリアする。（元には戻らない）
'       （シート名を右クリック ⇒［コードの表示］で開く画面に貼り付ける）
'更新   H23.12.25　新設。（教えて！goo より引用して修正）
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Const rng As String = "F1:F200"     '処理対象のセル範囲
Dim nowYear As Long
    
    If Application.Intersect(Target, Range(rng)) Is Nothing Then Exit Sub
    
    nowYear = Year(Date)
    If Target.Value = nowYear Then
        Target.ClearContents        'ｸﾘｱする。
    Else
        Target.Value = nowYear      '今年の年をｾｯﾄする。
    End If

End Sub

とりあえずコードを記録しておき、補足説明は年賀状完成後に...