代码之家  ›  专栏  ›  技术社区  ›  sayth

vba在切片机中选择昨天

  •  0
  • sayth  · 技术社区  · 6 年前

    当昨天的日期自动打开时,我想在我的工作簿中的切片器中选择它。

    目前,我没有收到任何错误,也没有收到任何结果。我的切片器vba名称是切片器日期。

    这是我的密码。

    Sub ForNow()
    With ActiveWorkbook.SlicerCaches("Slicer_Date")
        .ClearManualFilter
        For Each myitem In .SlicerItems
            If myitem.Name = Date - 1 Then
                myitem.Selected = True
            End If
    End With
    End Sub
    
    1 回复  |  直到 6 年前
        1
  •  1
  •   Tim Williams    6 年前

    试试这个:

    Application.ScreenUpdating = False
    With ActiveWorkbook.SlicerCaches("slicer_date")
        .ClearManualFilter
        For Each myitem In .SlicerItems
            myitem.Selected = CDate(myitem.Name) = Date - 1
        Next myitem
    End With
    Application.ScreenUpdating = True