excel里做日期插件的方法...

wxyu360 2011-05-31

展開全文

在做excel計劃表的時候，需要輸入時間，手動輸入實在麻煩，就做了一個VBA的宏來實現(xiàn)

1、新建excel表格，打開“控件工具箱”，點左下角的“其他控件”按鈕，找到“日歷控件11.0”；

2、拖動日歷控件，調(diào)整合適大小，雙擊日歷控件，進入代碼編輯模式

3、輸入如下代碼，保存，退出到excel編輯模式

-----------------------------------------

Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
Me.Calendar1.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'此處的6和7為你要顯示日歷的列序號

If Target.Column = 6 Or Target.Column = 7 這里要再加就加Or Target.Column = 7 Then

    Me.Calendar1.Left = Target.Left
    Me.Calendar1.Top = Target.Top


    If Target.Value <> "" Then
        Me.Calendar1.Value = Target.Value
    Else
        Me.Calendar1.Value = Now()

    End If

    Me.Calendar1.Visible = True

Else
    Me.Calendar1.Visible = False
End If

End Sub

-----------------------------------------

4、執(zhí)行菜單“工具-宏-安全性”，將其設(shè)置為中或中低，確定退出，關(guān)閉excel文件

5、重新打開excel文件，單擊日期單元格，就可以看到日歷了哦~\

=IF(AND(A1="y",B1="y",C1="y"),"y","n")