Return to Question

Auxilary Methods##

Auxilary Methods

Most of the VBA I write is to produce reports from spreadsheet data.

Most of the VBA I write is to produce tabulated reports from spreadsheet data.

'/============================================================================================================================================================
Public Property Get printRange() As Range
    Set printRange = pPrintRange
End Property
Public Property Set printRange(ByRef printRange As Range)
    Set pPrintRange = printRange
End Property

'/============================================================================================================================================================
Public Property Get reportData() As Variant
    reportData = pReportData
End Property
Public Property Set reportData(ByRef inputArray As Variant)
    pReportData = inputArray
End Property

'/============================================================================================================================================================
Public Property Get MapDescriptionsToHeaders() As Scripting.Dictionary
    Set MapDescriptionsToHeaders = pMapDescriptionsToHeaders
End Property
Public Property Set MapDescriptionsToHeaders(ByRef descriptions As Scripting.Dictionary)
    Set pMapDescriptionsToHeaders = MapDescriptionsToHeaders
End Property

'/============================================================================================================================================================
Public Property Get NumberFormatsOfHeaderColumns() As Scripting.Dictionary
    Set NumberFormatsOfHeaderColumns = pNumberFormatsOfHeaderColumns
End Property
Public Property Set NumberFormatsOfHeaderColumns(ByRef printRange As Scripting.Dictionary)
    Set pNumberFormatsOfHeaderColumns = NumberFormatsOfHeaderColumns
End Property

'/============================================================================================================================================================
Public Property Get ColumnIndexesOfHeaders() As Scripting.Dictionary
    Set ColumnIndexesOfHeaders = pColumnIndexesOfHeaders
End Property
Public Property Set ColumnIndexesOfHeaders(ByRef printRange As Scripting.Dictionary)
    Set pColumnIndexesOfHeaders = ColumnIndexesOfHeaders
End Property

'/============================================================================================================================================================
Public Property Get printRange() As Range
    Set printRange = pPrintRange
End Property
Public Property Set printRange(ByRef printRange As Range)
    Set pPrintRange = printRange
End Property

'/============================================================================================================================================================
Public Property Get reportData() As Variant
    reportData = pReportData
End Property
Public Property Set reportData(ByRef inputArray As Variant)
    pReportData = inputArray
End Property

'/============================================================================================================================================================
Public Property Get MapDescriptionsToHeaders() As Scripting.Dictionary
    Set MapDescriptionsToHeaders = pMapDescriptionsToHeaders
End Property
Public Property Set MapDescriptionsToHeaders(ByRef descriptions As Scripting.Dictionary)
    Set pMapDescriptionsToHeaders = MapDescriptionsToHeaders
End Property

'/============================================================================================================================================================
Public Property Get NumberFormatsOfHeaderColumns() As Scripting.Dictionary
    Set NumberFormatsOfHeaderColumns = pNumberFormatsOfHeaderColumns
End Property
Public Property Set NumberFormatsOfHeaderColumns(ByRef numberFormats As Scripting.Dictionary)
    Set pNumberFormatsOfHeaderColumns = numberFormats 
End Property

'/============================================================================================================================================================
Public Property Get ColumnIndexesOfHeaders() As Scripting.Dictionary
    Set ColumnIndexesOfHeaders = pColumnIndexesOfHeaders
End Property
Public Property Set ColumnIndexesOfHeaders(ByRef columnIndexes As Scripting.Dictionary)
    Set pColumnIndexesOfHeaders = columnIndexes 
End Property