Excel todolist制作

1、下拉列表制作

      如，任务的优先级：优先、中等、低的制作

    在【数据】-【数据有效性】-【设置】-【序列】-【选择使用下拉列表】，然后在【来源】中填入：优先,中等,低，注意其中是以英文逗号分开的

2、日期控件

      首先添加【开发工具】菜单，方法：在【文件】-【选项】-【自定义功能】-右侧视图的右侧列表中选择倒数第三个【开发工具】

     第二，在【开发工具】菜单选择【插入】-【其他控件】，找到calendar control。。。，一般带有版本号

    第三，激活vba窗口，一种方法是从sheet右键【查看代码】，另外一种方法是alt+F11。在vba窗口中左侧选择当前的文件或者sheet，开始编程，代码如下：

Private Sub Calendar1_Click()

ActiveCell = Calendar1.Value

Me.Calendar1.Visible = False

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Count = 1 Then

  If Target.Column = 1 Then '这是A列,如果要B列则改为2,其他同理.

With Calendar1

If Target <> "" Then

.Value = Target

Else

.Value = Date

End If

.Visible = True

.Top = Target.Top

.Left = Target.Left

End With

Else

Calendar1.Visible = False

End If

End If

End Sub

     然后【文件】-【关闭并返回excel】。此时，需要注意【开发工具】下【设计模式】是否选中，取消此选中状态，代码生效。