「カレンダーコントロール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
お礼
ありがとうございました。