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

在做excel计划表的时候，需要输入时间，手动输入实在麻烦，就做了一个VBA的宏来实现

 

1、新建excel表格，打开“控件工具箱”，点左下角的“其他控件”按钮，找到“日历控件11.0”；

2、拖动日历控件，调整合适大小，双击日历控件，进入代码编辑模式

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、执行菜单“工具-宏-安全性”，将其设置为中或中低，确定退出，关闭excel文件

5、重新打开excel文件，单击日期单元格，就可以看到日历了哦~\

 

 

 

 

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