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時提示隱私問題警告

 

點擊，文件-選項-信任中心-個人信任選項， 去掉“保持時從文件屬性中刪除個人信息。”