将数据做一个数据透视表，将字段拖入行或者列区域
插入一个日程表，挡住数据和透视表，修改一个想要的日程表样式
在工作表中插入以下代码，一个日程表控制普通单元格的控件就做好啦
Private Sub Worksheet_PivotTableChangeSync(ByVal Target As PivotTable)Dim slc As SlicerCacheSet slc = ActiveWorkbook.SlicerCaches("NativeTimeline_日期")On Error Resume NextRange("C10").Value = slc.TimelineState.StartDateRange("C11").Value = slc.TimelineState.EndDateIf Err.Number = 1004 ThenRange("C10").Value = Range("B2").ValueRange("C11").Value = Range("B3").Value + 1End IfEnd Sub
长期看我文章的同学可能发现了，这与代码控制切片器的方式不能说一模一样，只能说完全相同，因为日程表只是切片器的另一种类型而已，所以，在代码中，我们也就只需获取切片器的一个属性，也就是切片器的TimelineState属性，就代表日程表啦。
好了，本期教程就到这里啦，走过路过的点个关注分享一下吧，谢谢啦
