效果图

Private Sub DTPicker1_Click()

ActiveCell.Value = DTPicker1.Value

DTPicker1.Visible = False

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Column =  Or Target.Column =  Then

'    Me.DTPicker1.Left = ActiveCell.Left + ActiveCell.ColumnWidth + 65

    Me.DTPicker1.Left = ActiveCell.Left

    Me.DTPicker1.Top = Target.Top +

    If Target.Value <> "" Then

    Me.DTPicker1.Value = Target.Value

    Else

    Me.DTPicker1.Value = Now()

    End If

    Me.DTPicker1.Visible = True

    Me.DTPicker1.Width =

    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时提示隐私问题警告

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