日历控件无法点日期，单元格不显示

夏沫沫闯天涯

有哪位高手帮忙解决：

我想在签约日期这一列插入日历控件，点击控件里日期，单元格内可出现日期。现在已经插入了DATE AND TIME控件，点击单元格就会出现日历控件，但是选择控件上的日期，无法在单元格显示，是怎么回事？

方程：

第一段

ActiveCell = Format(DTPicker22.Value, "yyyy-mm-dd")

Me.DTPicker22.Visible = False

第二段

If Target.Column = 9 Then

        If Target.Row > 16 Then

           With Me.DTPicker22

             .Visible = True

             .Top = Target.Top + Target.Height

             .Left = Target.Left + Target.Width

             .Value = Date

            End With

        Else

            Me.DTPicker22.Visible = False

        End If

    Else

        Me.DTPicker22.Visible = False

    End If