Ссылка на сводную таблицу OLAP для двойного щелчка - PullRequest
Новая
       73

Ссылка на сводную таблицу OLAP для двойного щелчка

0 голосов
/ 01 мая 2020

Мне нужно будет заняться, когда пользователь дважды щелкнет конкретно по некоторым полям сводной таблицы OLAP. У меня это работает со стандартной сводной таблицей, но в этом случае я не могу найти документацию, чтобы определить, как ссылаться на каждое поле pvt OLAP. Это код, который я поместил в лист спецификаций c, где находится pvt. Мне нужно сделать то же самое для сводной таблицы OLAP.

Заранее спасибо! 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    Dim pt As PivotTable
    Dim pf As PivotField: Set pt = Sheets("Details - Worker View").PivotTables("pvt")
    Dim Action As Integer

    If Not Intersect(Target, pt.PivotFields("Order ID").DataRange) Is Nothing Then
        If Target <> "" Then
            Action = MsgBox("Do you want to Inspect this Order?", vbQuestion + vbYesNo)

            If Action = vbYes Then
                [OID4Inspection] = Target
                Sheet16.Shapes("OID_Rectangle").TextFrame.Characters.Text = Target
                Cancel = True
                InspectOrder
                End
            End If
        End If
    End If

    Cancel = False

End Sub
...