使用Slicer对象的Click事件和Worksheet对象的Activate事件来实现
代码示例:
Private WithEvents mySlicer as Slicer Private Sub Worksheet_Activate() Set mySlicer = ActiveWorkbook.SlicerCaches("Slicer_Name").Slicers("Slicer_Name") End Sub
Private Sub mySlicer_Click(Slicer As SlicerItem) '在此添加单击事件的代码' End Sub
在上面的代码中,我们使用了“WithEvents”和“Slicer”对象来声明Slicer对象,然后使用“Activate”事件来设置Slicer对象。当单击Slicer时,会触发mySlicer_Click事件,我们可以在这里编写单击事件的代码。
上一篇:捕捉多个异常