カレンダーコントロールをシートに貼り付けたのですが・・・

エクセルのワークシート上に、カレンダーコントロールを貼り付けたのですが、ブックを開くたびにカレンダーコントロールを今日の日付にさせたいのですが、どうしたらいいでしょうか？
素人ゆえ稚拙な質問で恐れ入りますが、どなたかお知恵をご拝借ください。

No.1 ベストアンサー 回答者： misatoanna 回答日時： 2006/05/13 17:26

カレンダーコントロールがSheet1にあると仮定します。

また、そのオブジェクト名は Calendar1 と仮定します。

シートタブを右クリックして「コードの表示」を選択し、
開いた画面左にあるツリーの　ThisWorkbook　をダブルクリックします。
更に開いた画面に次の６行をコピーし、閉じてください。
Private Sub Workbook_Open()
　With Sheets("Sheet1").Calendar1
　　.Day = Day(Date)
　　.Month = Month(Date)
　End With
End Sub

この回答へのお礼

お礼が遅くなって大変申し訳ありませんでした。
解決することができました。ありがとうございます。

お礼日時：2006/05/22 14:21

No.2 回答者： surounin 回答日時： 2006/05/13 17:38

Sub Auto_Open()

Sheets("ここにシート名").Calendar1.Value = Date
End Sub

で出来ますが＾＾

この回答へのお礼

お礼が遅くなって大変申し訳ありませんでした。
解決することができました。ありがとうございます。

お礼日時：2006/05/22 14:20