|
在做excel計(jì)劃表的時(shí)候，需要輸入時(shí)間，手動(dòng)輸入實(shí)在麻煩，就做了一個(gè)VBA的宏來實(shí)現(xiàn) 1、新建excel表格，打開“控件工具箱”，點(diǎn)左下角的“其他控件”按鈕，找到“日歷控件11.0”；
2、拖動(dòng)日歷控件，調(diào)整合適大小，雙擊日歷控件，進(jìn)入代碼編輯模式
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為你要顯示日歷的列序號(hào)
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") |
|
|
