首先插入ACTIVE 控件其他控件日历然后ALT F11 将下列代码复制进去, Private Sub Calendar1_Click() ActiveCell = Calendar1.Value Me.Calendar1.
zhidao.baidu.com