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