ExcelVBAです。

カレンダーコントロールのことかと思いますが、ユーザフォームを表示する直前にカレンダーの日付を

設定すればよいと思います。

ユーザフォームが UserForm1、カレンダーコントロールが Calender1 だとすると、

シートモジュールで下記のようにし

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    UserForm1.Show
    Cancel = True
End Sub

ユーザフォームで

Private Sub Calendar1_Click()
    ActiveCell.Value = Calendar1.Value
    Unload Me
End Sub

Private Sub UserForm_Initialize()
    UserForm1.Calendar1.Year = Year(Date)
    UserForm1.Calendar1.Month = Month(Date)
    UserForm1.Calendar1.Day = Day(Date)
End Sub

となっていれば、シートのセルをダブルクリックするたびに、日付入力が起動しますが、

カレンダーは毎回本日にリセットされて表示されます。

http://www.h3.dion.ne.jp/~sakatsu/Excel_Tips06_2.htm