(1)如何在Excel2010 版中插入日历控件
参考: http://jingyan.baidu.com/article/54b6b9c0d351602d583b4780.html
(这边写的很详细)
(2) 编辑代码,让其运用与一行或几列:
我用的是:Microsoft Date and Time Picker Control,version (sp 6.0 )
注意:网上有很多的代码,是针对不同的日历控件的,切记不要乱COPY使用,日历控件主要有:DTP和calendar两种
参考: 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两种