1

スライサーが有効なクロス フィルターを使用して、4 つのリンクされたピボット グラフにデータ モデルを使用するテンプレート ツールとして使用する読み取り専用の 2013 ブックがあります。あるスライサーで、別のスライサーのデータを含むすべてのオプションを除外するフィルター オプションを選択すると、ワークブックがクラッシュします。

つまり、スライサー 1 にはオプション A、B、C などがあります。

  • オプション A は、スライサー 2 のサブセット 1、2、および 3 に関連しています。
  • オプション B は、スライサー 2 のサブセット 4、5、および 6 に関連しています。

スライサー 2 にデータが選択されていて、スライサー 1 をフィルター処理してその選択の一部を除外すると、ワークブックがクラッシュします。

うまくいかなかったもの：

  • グラフ、スライサー、接続を再構築しましたが、同じ問題が発生します。
  • 別のワークブックで非常に単純なモデルを作成しましたが、問題を再現できませんでした。
  • イベントをオフにしました。
  • VBAをコメントアウトしました。

注意して、スライサー 1 の関係を共有する項目をスライサー 2 から選択すると、「機能する」ように見えますが、ここでは明らかに何かが壊れています。

この状態は、スライサー 2 からスライサー 1 に関連するサブセットにオーバーラップがない場合にのみ発生するようです。オプション A にサブセット 1、2、3、4、5 がある場合。. オプション B には 3、4、5 がありますが、1 または 2 はありません。問題は発生しません。すべてのサブセットが親に固有であり、選択が重複していない場合のみです (A に 5 がない = 5 の場合にクラッシュするなど)。 B と A に固有のものが選択されます)。これに関連する既知の問題は見つかりませんでした。

イベント ビューアーには次のものが表示されます。

Faulting application name: EXCEL.EXE, version: 15.0.4797.1003, time stamp: 0x56bf05fc
    Faulting module name: msolap110_xl.DLL, version: 0.0.0.0, time stamp: 0x55b0c5bf

私の質問は次のとおりです。

  1. 「msolap110_xl.DLL」が問題でしょうか、それとも症状の一部である可能性が高いですか?

  2. ピボット チャート、スライサー、またはデータ モデルを何らかの方法で誤って処理したことが原因ですか?

  3. 修正できますか？

関連するプログラミング:

Private Sub myReloadDataModel()
    If Range("myHasPath").Value = "True" Then
        MsgBox "You need to enter a path to a valid target location.", vbOKOnly, "Bad Path"
    Else
        myUser = MsgBox("Are you sure you want Reload the Data Model with any csv data located in the target path?", vbOKCancel, "3. Load Data Model")
        If myUser = vbOK Then

            Application.ScreenUpdating = False
            Application.EnableEvents = False
            Application.Cursor = xlWait

            myTime01 = Time
            Sheets("Notes").Unprotect
            Sheets("2. Get Table").Unprotect
            ActiveWorkbook.RefreshAll
'            ActiveWorkbook.Model.Refresh
'            ActiveWorkbook.Connections("Query - myGetMasterSpan").Refresh
            x = ActiveWorkbook.Connections("Query - myGetMasterSpan").ModelTables.Item(1).RecordCount
            myTime02 = Time
            myTime03 = Format(myTime02 - myTime01, "HH:MM:SS")

            Sheets("2. Get Table").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
                , AllowUsingPivotTables:=True

            Application.Cursor = xlDefault
            Application.EnableEvents = True
            Application.ScreenUpdating = True

            MsgBox Format(x, "#,##0") & " Records Loaded!" & vbNewLine _
                & vbNewLine _
                & "Total Update Time = " & myTime03, , "Update Completed"
        End If
    End If
End Sub

イベント

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
    On Error Resume Next
    Application.ScreenUpdating = Fales
    Application.EnableEvents = False
    Sheets("2. Get Table").Unprotect

    Application.Run "mySlicerMagic"
    ActiveWorkbook.Connections("LinkedTable_Table6").Refresh

    Set myChart04 = Sheets("Flow Errors").ChartObjects("Chart 4").Chart
        myChart04.ChartTitle.Text = Range("myErrorsTitle")
    With myChart04.Axes(xlValue)
        .MinimumScale = Range("myMin_Scale")
        .MaximumScale = Range("myMax_Scale")
    End With

    Set myChart05 = Sheets("Flow Errors").ChartObjects("Chart 5").Chart
        myChart05.ChartTitle.Text = Range("myErrorsTitle")
    With myChart05.Axes(xlValue)
        .MinimumScale = Range("myMin_Zoom")
        .MaximumScale = Range("myMax_Zoom")
    End With

        Application.Run "myChart5Format"

    Set thisPulseChart_02 = Sheets("Pulse Analyzer").ChartObjects("Chart 2").Chart
    With thisPulseChart_02
        .ChartTitle.Text = "Full Pulse Flow - " & Range("myErrorsTitle")
    End With
    With thisPulseChart_02.Axes(xlValue)
        .MaximumScale = Range("myMax_Scale") + 0.09
    End With

    Set thisPulseChart_03 = Sheets("Pulse Analyzer").ChartObjects("Chart 3").Chart
    With thisPulseChart_03
        .ChartTitle.Text = "Raw Pulse Flow by Pulse- " & Range("myErrorsTitle")
    End With

        Application.Run "myChart3Format"

    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

このサブは私のために選択範囲を取得します

Private Sub mySlicerMagic()
    On Error GoTo 100

    Set myX = ActiveWorkbook.SlicerCaches("Slicer_Pulse_Set").SlicerCacheLevels(1).SlicerItems

    For i = 1 To myX.Count
        If myX(i).Selected = True Then
            x = x + 1
            If x = 1 Then
                myItemName01 = myX(i).SourceName
            End If
            myItemName02 = myX(i).SourceName
        End If
    Next

    Range("myPulseRange")(1, 1) = myItemName01
    Range("myPulseRange")(2, 1) = myItemName02
100
End Sub
4

0 に答える 0