dポイントプレゼントキャンペーン実施中!

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

A 回答 (2件)

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


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

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

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

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

Sub Auto_Open()


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

で出来ますが^^
    • good
    • 0
この回答へのお礼

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!