[[20240109145243]]　『EXCELスライサー複数選択』（Mini）　ページの最後に飛ぶ

『EXCELスライサー複数選択』（Mini）

EXCELスライサーの複数選択をずっとONにしたいのですが、EXCELを閉じて再度開くと単一選択に戻ってしまいます。どなたかお分かりになりますでしょうか。よろしくお願いいたします。

＜使用 Excel：Microsoft365、使用 OS：Windows11 ＞

＞複数選択をずっとONにしたいのですが、
その状態で上書き保存してみてはどうてすか。
（はてな） 2024/01/09(火) 15:27:50

早速ありがとうございます。ONの状態で上書き保存しても、閉じて開くと元のOFFの状態に戻ってしまいます。

もし上記がデフォルトの設定となっているようであれば、マクロの設定しかできそうにありません。
標準モジュールにて、

   ActiveSheet.Shapes.Range(Array("○○")).Select
    SendKeys "%S"
にて試したところONとなりましたので、開くと同時に設定できるようにthisworkbookに記述してみました。

Private Sub Workbook_Open()
ActiveSheet.Shapes.Range(Array("○○")).Select
SendKeys "%S"
End Sub

が、なぜか実行できずエラーとなってしまいます。原因は分かりますでしょうか。。

（Mini） 2024/01/09(火) 15:50:50

ActiveSheet　をやめて、シート名を指定してみてはどうでしょうか？

　ActiveSheet.Shapes.Range(Array("○○")).Select
　↓
　Worksheets("【該当シート名】").Shapes.Range(Array("〇〇")).Select

（あずきしば） 2024/01/09(火) 15:56:12

ありがとうございます。試してみましたが、エラーは表示されませんでしたがスライサーを選択した状態だけで複数選択がＯＮにならなかったです。
念のため標準モジュールでも試したところ、問題なく実行はできました。
（Mini） 2024/01/09(火) 16:06:50

試しに　SendKeys　の前後に追加してみてもらえませんでしょうか

Application.Wait (Now + TimeValue("0:00:01"))
SendKeys "%S"
DoEvents

End Sub
（あずきしば） 2024/01/09(火) 16:12:32

 当方、Excel2021,Windows10です。
 以下でONになりました。

 Private Sub Workbook_Open()
    Dim shp As Shape
    Sheets("対象シート").Select '★該当シート名を指定する
    DoEvents
    For Each shp In ActiveSheet.Shapes
        If shp.Type = msoSlicer Then
            shp.Select
            DoEvents
            SendKeys "%S"
            DoEvents
        End If
    Next
 End Sub
（まる2021） 2024/01/09(火) 16:17:10

あずきしば様、ご丁寧にありがとうございます。無事に実行することが叶いました。本当にありがとうございます。
追加ですみませんが、もう一つのスライサーも追加で複数選択をしたいのですが、以下の通り実行したところ、実行時エラー1004となり指定した名前のアイテムが見つかりませんでしたと表示され、以下←の箇所が黄色に反転されました。コードが誤っておりましたでしょうか。

Private Sub Workbook_Open()

Worksheets("△△").Shapes.Range(Array("○○")).Select
Application.Wait (Now + TimeValue("0:00:01"))
SendKeys "%S"
DoEvents
Worksheets("△△").Shapes.Range(Array("××")).Select　←
Application.Wait (Now + TimeValue("0:00:01"))
SendKeys "%S"
DoEvents
End Sub
（Mini） 2024/01/09(火) 16:27:38

まる2021様、ご確認いただきどうもありがとうございます。あずきしば様のコードにて無事実行できました。ただ、追加で質問させていただきましたのでもしお答えができれば幸いです。
（Mini） 2024/01/09(火) 16:28:43

まる2021さんの方法が
指定シートにある、全てのスライサーの複数選択をＯＮにしますので
試してみてはいかがでしょうか？
（あずきしば） 2024/01/09(火) 16:39:40

あずきしば様、まる2021様、無事できました。どうもありがとうございました。本件CLOSEにてよろしくお願いいたします。
（Mini） 2024/01/09(火) 17:04:36

コメント返信：

[ 一覧(最新更新順) ]

[[20240109145243]] 『EXCELスライサー複数選択』（Mini） ページの最後に飛ぶ

[[20240109145243]]　『EXCELスライサー複数選択』（Mini）　ページの最後に飛ぶ