更改活动切片器等于今天的日期

Question

我还没有看到任何具体的事情。我有一个显示日期的切片机，我想将它设置为今天的日期。我有一个包含今天日期的单元格。有没有办法让我1）引用单元格作为切片器的活动值作为一次性的东西（我希望那些使用工作簿的人能够按照他们的要求度过这些日子）​​。或者，2），只是将今天的价值设为真？ 我知道要引用我需要的切片器对象

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

对于我知道它的切片器项目

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

我知道使用选定的短语会让人感到很沮丧;如果有更清洁的方式，我也会喜欢这方面的提示。感谢您提供任何帮助。

Answer 1

您可以像这样为VBA切片器分配一个可变单元格，这里我正在分配第1页的单元格F12：

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