calendar日历控件问题

我用Excel的VBE编辑器编写了一个宏。当程序打开时会有窗体弹出。窗体上有日历控件供选择日期。当选择完日期后，将选择的日期填入指定的单元格中。目前我这个程序没有问题。但是出了一个问题。这个日历控件只能将当年当月的日期填入到指定的单元格中。如果不是当年当月的日期则单元格中会显示0年0月0日。我想请教一下：这个问题应该如何解决请指教。谢谢啦！这是运行后的图片
http://photo9.hexun.com/p/2007/1107/143248/b_7C309D5A6BB725E2E34189544342F17D.jpg
是VB自带的。单元格的设置没问题啊

---

你用这段代码试试看
Private Sub CommandButton1_Click()
ActiveSheet.Cells(1, 2).Value = Calendar1.Year
ActiveSheet.Cells(1, 3).Value = Calendar1.Month
ActiveSheet.Cells(1, 4).Value = combo1.Text
End Sub

你用的是VBA自带的日历控件吗?
单元格的设置正确吗?

activesheet.cells(1,1)=calender1.value
我测试过,没问题

---

没用过EXCEL的宏，等下一位高手吧

---