まりふのひと

(施設予約|品目別分類表)
(このヘッダーの原紙は 3月31日の記事

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

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