Excel日期选择器

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)
'此处的1为你要显示日历的列序号
If  Selection.Rows.Count = 1 And Selection.Columns.Count = 1 And Target.Column = 1 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文件，单击日期单元格，就可以看到日历了哦~

 

注意:本文是对http://longware-live.spaces.live.com/blog/cns!227054AAAA9A2386!259.entry的日期处理部分进行完善以为个人收藏,并同时感谢原作者!