excel日期插件

效果图

Private Sub DTPicker1_Click()
ActiveCell.Value = DTPicker1.Value
DTPicker1.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 6 Or Target.Column = 8 Then
'    Me.DTPicker1.Left = ActiveCell.Left + ActiveCell.ColumnWidth + 65
    Me.DTPicker1.Left = ActiveCell.Left
    Me.DTPicker1.Top = Target.Top + 15
    If Target.Value <> "" Then
    Me.DTPicker1.Value = Target.Value
    Else
    Me.DTPicker1.Value = Now()
    End If
    Me.DTPicker1.Visible = True
    Me.DTPicker1.Width = 90
    Else
    Me.DTPicker1.Visible = False
    End If
    
End Sub

Excel 

1. 如何打开excel 2010 的开发工具

依次打开， 文件-选项-自定义-自定义功能区-主选项卡，勾选开发工具。

2. 如何在excel 2010 中插入Microsoft Date and Time Picker Control 控件

在开发工具栏目下选择插入，其他控件，然后选择Microsoft data and time picker control.

如果找不到的话需要重新安装日历控件包。

下载一个mscomct2 控件包。

EXCEL日历控件，Microsoft Office mscomct2 控件包，该控件包主要用于增补 Microsoft Office 窗体系统部分丢失的控件脚本，不包含其它任何插件或程序，敬请放心安装使用。

 

放到c:/windows/system32 目录下

以管理员身份运行cmd.exe.  运行  regsvr32 mscomct2.ocx. 

就可以找到DTPicker 了。

3.如何将DTPicker 作为输入日期的手段

在适当的位置画一个DTPicker. 

双击日历控件，编写两个函数。

我的实现是，当鼠标点击所有行数模4为1的行时就会跳出DTPicker ，在DTPicker 选择日期后点击以下就可以隐藏DTPicker 同时将Value 送给activecell.

4. 如何解决无法

无法在未启用宏的工作簿中保存以下功能

 excel2010 中如果要想保持带有宏的工作簿就会跳出一个“

无法在未启用宏的工作簿中保存以下功能

”的对话框。

 

解决方案是文件另存为 .xlsm 为后缀的问题。

 

5. 如何解决excel 2010 

保存EXCEL时提示隐私问题警告

 

点击，文件-选项-信任中心-个人信任选项， 去掉“保持时从文件属性中删除个人信息。”