EXCEL怎么设置日历控件，且运用与一行或几列（2010DTP）

 

 （1）如何在Excel2010 版中插入日历控件
    参考：http://jingyan.baidu.com/article/54b6b9c0d351602d583b4780.html
    （这边写的很详细）
（2）  编辑代码，让其运用与一行或几列：
我用的是：Microsoft Date and Time Picker Control，version （sp 6.0 ）

Private Sub DTPicker1_Change()

    ActiveCell.Value = DTPicker1.Value

    DTPicker1.Visible = False

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    With Me.DTPicker1

    If Target.Column = 1 And Target.Count = 1 Then

        .Visible = True

        .Width = Target.Width + 15

        .Left = Target.Left

        .Top = Target.Top

        .Height = Target.Height

    Else

        .Visible = False

    End If

    End With

End Sub

【提示】：上列代码中，红色的1表示该控件作用于工作表中第一列，如需调整，直接修改为相应的列数即可；如果需要将该控件作用于某一行，则把代码中Target.Column改为Target.Row即可。

注意：网上有很多的代码，是针对不同的日历控件的，切记不要乱COPY使用，日历控件主要有：DTP和calendar两种