【Excel模板】送你一个小工具，输入日期的好帮手-日期选择控件

今天送大家一个小工具，可以帮助你快速输入日期。

先来看效果，

在很多场景中，相比较手工输入数据，用控件输入日期还是有很大优势的。

这个控件是用VBA实现的。文本有获得模板文件的方法。现在我先为大家介绍使用方法。

首先，你可以以这个模板文件为基础，开始你自己的工作（只要将模板文件修改为你想要的名字即可，注意不要删掉其中的任何VBA代码）。

如果你打开VBA编辑器，你可以看到一个窗体和一个代码模块：

如果你VBA不熟悉，就不要管他了。😀继续往下看怎么使用就好了。

新建一个工作表，用于处理你的工作。比如，在Sheet1上，你可以创建一个超级表，用于记录你的项目：

这里，我们要在开始日期和结束日期两列中记录日期，希望使用控件输入日期。

来到VBA编辑器中（按Alt+F11），在左侧可以看到Sheet1对象，

双击Sheet1对象，在右侧输入以下代码：

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim TriggerCells As Range
Dim lo As ListObject Set lo = Sheet1.ListObjects(1)
Set TriggerCells = lo.ListColumns("开始日期").DataBodyRange.Cells(1, 1).Resize(lo.ListRows.Count, 2)
If Not Intersect(TriggerCells, Target) Is Nothing Then Dim s s = CalendarForm.GetDate(FirstDayOfWeek:=Monday, SaturdayFontColor:=RGB(250, 0, 0), SundayFontColor:=RGB(250, 0, 0)) If s > 0 Then Target.Cells(1, 1).Value = s End If End If
End Sub


就可以了。回到工作表中，点击开始日期或者结束日期中的单元格，即可调出日期控件，点击选择即可完成输入：