54 lines
1.2 KiB
QBasic
54 lines
1.2 KiB
QBasic
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
|
|
|
|
'Exit Sub
|
|
|
|
Cancel = True
|
|
|
|
Dim i As Long
|
|
Dim j As Long
|
|
Dim k As Long
|
|
|
|
Dim ri As PivotItemList
|
|
Dim ci As PivotItemList
|
|
Dim df As Object
|
|
Dim rd As Object
|
|
Dim cd As Object
|
|
Dim dd As Object
|
|
|
|
Set ri = Target.Cells.PivotCell.RowItems
|
|
Set ci = Target.Cells.PivotCell.ColumnItems
|
|
Set df = Target.Cells.PivotCell.DataField
|
|
|
|
Set rd = Target.Cells.PivotTable.RowFields
|
|
Set cd = Target.Cells.PivotTable.ColumnFields
|
|
|
|
Dim sql As String
|
|
|
|
For i = 1 To ri.Count
|
|
If i <> 1 Then sql = sql & vbCrLf & "AND "
|
|
sql = sql & rd(piv_pos(rd, i)).Name & " = '" & ri(i).Name & "'"
|
|
Next i
|
|
|
|
For i = 1 To ci.Count
|
|
sql = sql & vbCrLf & "AND "
|
|
sql = sql & cd(piv_pos(cd, ci(i).Parent.Position)).Name & " = '" & ci(i).Name & "'"
|
|
Next i
|
|
|
|
MsgBox (sql)
|
|
|
|
End Sub
|
|
|
|
Function piv_pos(list As Object, target_pos As Long) As Long
|
|
Dim i As Long
|
|
|
|
For i = 1 To list.Count
|
|
If list(i).Position = target_pos Then
|
|
piv_pos = i
|
|
Exit Function
|
|
End If
|
|
Next i
|
|
'should not get to this point
|
|
|
|
|
|
End Function
|