更改活动切片机等于今天的date

我没有看到具体的事情。 我有一个切片机显示date，我想将其设置为今天的date。 我有一个单元格也包含今天的date。 有没有办法给我1）引用单元格为切片机的活动值作为一次性的事情（我希望那些使用工作簿能够经历的日子，因为他们需要）。 或者，2），把今天的价值设置为真？ 我知道引用我需要的切片机对象

ActiveSheet.Shapes.Range(Array("Univ. Date")).Select With ActiveWorkbook.SlicerCaches("Slicer_Date") 

对于切片机项目我知道这是

 .slicerItems("1/1/1900").Selected = True 

我知道使用选定的短语有很多的挫败感; 如果有一个更干净的方法来做到这一点，我也会喜欢这方面的技巧。 感谢您的帮助。

Answer 1

你可以像这样给你的VBA分割器分配一个variables单元格，在这里我将分配表单元格F12：

 Dim Slicer_Date As Date Slicer_Date= Worksheets("Sheet1").Cells(12, "F").Value