【VBA】覚書

フォームの表示
Sub showit()
  UserForm1.Show
End Sub

アクティブセルに値を代入
Private Sub calendar1_click()
  ActiveCell=Me.Calendar1.Value
End Sub

フォーム表示時に実行する
Private Sub userform_active()
  Me.Calendar1.Value = Date
End Sub