SHARE
TWEET

slicer test

CleverSnake Oct 27th, 2019 192 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Sub Ìàêðî()
  2.     With ActiveWorkbook.SlicerCaches("Ñðåç_äàòà")
  3.         .SlicerItems("10/27/2019").Selected = True
  4.     End With
  5.    
  6.     Dim SL As SlicerCacheLevel
  7.     Dim sI As SlicerItem
  8.    
  9.     With ActiveWorkbook.SlicerCaches("Ñðåç_äàòà")
  10.         For Each sI In .SlicerItems
  11.             Debug.Print (sI.Selected)
  12.         Next
  13.     End With
  14.    
  15. '    With ActiveWorkbook.SlicerCaches("Ñðåç_äàòà")
  16. '        For Each sI In .VisibleSlicerItems
  17. '            Debug.Print (sI.Value)
  18. '        Next
  19. '    End With
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top