| |
|
|
Sample Macro コントロール・カレンダー |
 |
|
|
|
17-1) カレンダーの初期表示を今日に設定 |
 |
 |
'=========================================================================================
' ◆ユーザーフォームのコード◆
'-----------------------------------------------------------------------------------------
Private Sub UserForm_Initialize()
Calendar1.Value = Date '※1 コントロールの値を現在のシステム日付にする
End Sub
'=========================================================================================
＜コメント＞
※1 システム日付が正常でない場合は今日の日付にはならない
|
