Sample Macro  コントロール・カレンダー Previous Next

17-1) カレンダーの初期表示を今日に設定 このページのトップへ もくじへ 使用可能なExcelのバージョン
'=================================================================================
 ◆ユーザーフォームのコード◆
'---------------------------------------------------------------------------------
Private Sub UserForm_Initialize()
    Calendar1.Value = Date                '※1 コントロールの値を現在のシステム日付にする
End Sub
'=================================================================================
<コメント>
※1 システム日付が正常でない場合は今日の日付にはならない

注意事項
カレンダーコントロールは Access 2010で削除されました。
よって、Microsoft Office Professional 2010の一部であるExcel 2010であっても利用
できません。

Excel VBA Macro