[[20200108081904]]　『マクロで指定のセルに入っている文字でスライサー』（あかね）　ページの最後に飛ぶ

『マクロで指定のセルに入っている文字でスライサーを動かしたい』（あかね）

画像の「シート1」に、都道府県と市区町村のスライサーがあります。
都道府県はいいのですが、市区町村が多く探すのが大変な為、「検索」のシートのA2とB2のセルに指定の文字を入れて処理できるようにしたいのです。

With ActiveWorkbook.SlicerCaches("スライサー_都道府県")
.SlicerItems("北海道").Selected = True
.SlicerItems("青森県").Selected = False　‥‥

End　With　

With ActiveWorkbook.SlicerCaches("スライサー_市区町村")
.SlicerItems("札幌市").Selected = True
.SlicerItems("函館市").Selected = False　‥‥

この「北海道」、「札幌市」を特定の文字ではなくて
指定したセルからマクロができるようにできますか‥？

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

 こんなものですかね？

    Dim vExt
    Dim sCashe As SlicerItem

    vExt = Sheets("検索").Range("A2:B2").Value

    For Each sCashe In ActiveWorkbook.SlicerCaches("スライサー_都道府県").SlicerItems
        sCashe.Selected = sCashe.Name = vExt(1, 1)
    Next

    For Each sCashe In ActiveWorkbook.SlicerCaches("スライサー_市区町村").SlicerItems
        sCashe.Selected = sCashe.Name = vExt(1, 2)
    Next

（半平太） 2020/01/08(水) 10:34

ありがとうございます！求めていたものです、、、！！！
問題なく動き、とても満足しております。

（あかね） 2020/01/08(水) 21:24

コメント返信：