クリックするたびに月を変える

質問

VBAマクロでシートをダブルクリックするたびに「２００８年1月」⇒「２００８年2月」・・「２００９年1月」・・。となるようにマクロを組みたいのですがどのようにやればいいですかね？初歩的で抽象的な投稿ですがもしよければご教授ください。よろしくお願いします。

回答No.1

lark_0925 · ベストアンサー

対象シートのセルＡ１がダブルクリック対象セルだとしましょう。

このセルＡ１には、日付の初期値を入れておきます（例　2008/1/1）
セルの書式設定で　yyyy"年"m"月";@　指定しておけば
2008年8月　という表示は可能ですよね！！
当該シートモジュール(標準モジュールではありませんよ）に
'=============================================================
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
　　　With Target
　　　　　If .Address = "$A$1" Then
　　　　　　　.Value = DateAdd("m", 1, .Value)
　　　　　　　Cancel = True
　　　　　　　End If
　　　　　End With
End Sub

として、セルＡ１をダブルクリックして試し見てください

「２００８年1月」⇒「２００８年2月」・・「２００９年1月」

となります。