「カレンダーコントロール12.0」の使用について

質問

よろしくお願いします。

Excelで1か月分の日報を作成しています。
1ワークシートに1日の日報を作成しています。
すなわち、1ブックに31日分の日報を作成します。
日付の入力は、「カレンダーコントロール12.0」を利用しています。

まず、標準モジュールの中に「Mojule1」を作成し、次のようにマクロを組みました。

Option Explicit
Sub カレンダー表示()
　カレンダー表示 Macro
ActiveSheet.OLEObjects.Add(ClassType:="MSCAL.Calendar.7", Link:=False, _
DisplayAsIcon:=False, Left:=673.5, Top:=58.5, Width:=204.75, Height:= _
203.25).Select
End Sub
Sub カレンダー消去()
　カレンダー消去 Macro
ActiveSheet.Shapes("Calendar1").Select
Selection.Delete
End Sub

これでカレンダーのON,OFFは正常に動作します。
問題なのは、カレンダーをONにして日付を挿入しようとすると、挿入できません。
現在の対応策として、カレンダーをON →「開発」タブ →「デザインモード」ボタンON→OFF→日付をダブルクリック　この操作をすると正常に日付が挿入されます。
その記述は、各ワークシートに次のようになっています。

Option Explicit

Private Sub Calendar1_DblClick()
ActiveSheet.Range("A3", "C3") = Calendar1.Value
End Sub

カレンダーON→日付をダブルクリック　これで挿入できるようにするには、どこをどのように改めれば良いでしょうか。
よろしくお願いします。

Windows Vista Home Premium SP-2
Office 2007　SP-2

回答No.1

keithin · ベストアンサー

推奨は，各シートのカレンダーコントロールはそこに置いたままにしておいて

標準モジュールの中に「Mojule1」
Sub カレンダーON()
activesheet.calendar1.visible = true
End Sub

Sub カレンダーOFF()
activesheet.calendar1.visible = false
End Sub

各ワークシート
Private Sub Calendar1_DblClick()
ActiveSheet.Range("A3") = Calendar1.Value
End Sub

のようにします。

お礼

keithin さん、ありがとうございます。

私が欲しかった状態になりました。
ズバリです。

またよろしくお願いします。