forecast_api/VBA/shWalk.cls

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "shWalk"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
' Option Explicit
'
' Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'     Dim pt As PivotTable
'     Set pt = ActiveSheet.PivotTables("ptWalk")
'     Dim intersec As Range
'     Set intersec = Intersect(Target, pt.DataBodyRange)
'
'     If intersec Is Nothing Then
'         Exit Sub
'     ElseIf intersec.address <> Target.address Then
'         Exit Sub
'     End If
'
'     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
'
'     Dim pf As PivotField
'     Dim pi As PivotItem
'
'     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
'
'     ReDim handler.sc(ri.Count, 1)
'
'     handler.sql = ""
'     handler.jsql = ""
'
'     For i = 1 To ri.Count
'         If i <> 1 Then handler.sql = handler.sql & vbCrLf & "AND "
'         If i <> 1 Then handler.jsql = handler.jsql & vbCrLf & ","
'         handler.sql = handler.sql & rd(piv_pos(rd, i)).Name & " = '" & escape_sql(ri(i).Name) & "'"
'         jsql = jsql & """" & rd(piv_pos(rd, i)).Name & """:""" & escape_json(ri(i).Name) & """"
'         handler.sc(i - 1, 0) = rd(piv_pos(rd, i)).Name
'         handler.sc(i - 1, 1) = ri(i).Name
'     Next i
'
'     scenario = "{" & handler.jsql & "}"
'
'     Call handler.load_config
'     Call handler.load_fpvt
'
' 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
'
' Function piv_fld_index(field_name As String, ByRef pt As PivotTable) As Integer
'
'     Dim i As Integer
'
'     For i = 1 To pt.PivotFields.Count
'         If pt.PivotFields(i).Name = field_name Then
'             piv_fld_index = i
'             Exit Function
'         End If
'     Next i
'
' End Function
'
' Function escape_json(ByVal text As String) As String
'
'     text = Replace(text, "'", "''")
'     text = Replace(text, """", "\""")
'     If text = "(blank)" Then text = ""
'     escape_json = text
'
' End Function
'
' Function escape_sql(ByVal text As String) As String
'
'     text = Replace(text, "'", "''")
'     text = Replace(text, """", """""")
'     If text = "(blank)" Then text = ""
'     escape_sql = text
'
' End Function
'
'