みんなの「教えて(疑問・質問)」にみんなで「答える」Q&Aコミュニティ

こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

エクセル VBA 選んだもの以外の処理

マクロで下記のようなコードがある時
現在は551320以外をFalseにする際
一つずつしていますが
551320を選んだら、それ以外はFalseするというコードにしたい場合は
どうすればいいでしょうか?

Sub Macro2()
'
' Macro2 Macro
'
Application.ScreenUpdating = False

With ActiveWorkbook.SlicerCaches("スライサー_ws_cd")
.SlicerItems("551320").Selected = True
.SlicerItems("551100").Selected = False
.SlicerItems("551120").Selected = False
.SlicerItems("551130").Selected = False
.SlicerItems("551200").Selected = False
.SlicerItems("551210").Selected = False
.SlicerItems("551220").Selected = False
.SlicerItems("551230").Selected = False
.SlicerItems("551330").Selected = False
.SlicerItems("552100").Selected = False
.SlicerItems("552110").Selected = False
.SlicerItems("552120").Selected = False

End With

Application.ScreenUpdating = True

End Sub

投稿日時 - 2019-05-20 10:14:29

QNo.9618337

すぐに回答ほしいです

質問者が選んだベストアンサー

スライサーは、
Office2013とOffice2016とで、
添付画像の違いがあります。

>551320を選んだら、それ以外はFalse
になってほしいとの記述から
Office2016をお使いで、かつ
赤丸囲み部分がオンなんだろうと思います。
これをオフにすることで期待の動作になります。

オンラインヘルプなどを追いかけてみましたが
これをオフ/オンするメソッドやプロパティ、
スライサーをクリックしたときのイベントは見つかりませんでした。

投稿日時 - 2019-05-29 09:35:35

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.1

> 551320を選んだら、それ以外はFalseするという

スライサーで選択したということでしょうか、その時点で選択されたもの以外はFalseになっていますが…。

投稿日時 - 2019-05-20 13:25:10

あなたにオススメの質問