溫柔的愛2018.10.21 回答

一定要展示出切片器麼？不展示的話直接用篩選也可以的啊

Private Sub Worksheet_Change（ByVal Target As Range）

If Target。Address = “$B$13” Then

With ActiveWorkbook。SlicerCaches（“切片器_a1”）

For Each Item In 。SlicerItems

If Item。Caption = Target。Text Then

Item。Selected = True

Else

Item。Selected = False

End If

Next

End With

End If

End Sub

匿名使用者2013.01.23 回答

在SHEET1 裡用change事件了，但是切片器是什麼東東？