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

質問

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

回答No.1

misatoanna · ベストアンサー

カレンダーコントロールがSheet1にあると仮定します。
また、そのオブジェクト名は Calendar1 と仮定します。

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

お礼

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

回答No.2

surounin

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

で出来ますが＾＾

お礼

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