モジュール：SheetParameterFactory '対象範囲格納 Public Sub ISheetParameterEntity_SetTargetRange(ByVal value As range) Set mTargetRange = value End Sub
'対象ソート項目取得 Public Function ISheetParameterEntity_GetTargetSortItem() As Collection Dim sortItemCollecton As New Collection Dim sortRange As range Set sortRange = SheetControl.GetSortRange(Sheet3, mTargetRange, SORT_ITEM1) Call sortItemCollecton.Add(sortRange) Set sortRange = SheetControl.GetSortRange(Sheet3, mTargetRange, SORT_ITEM2) Call sortItemCollecton.Add(sortRange) Set ISheetParameterEntity_GetTargetSortItem = sortItemCollecton End Function
'グループ化列取得 Public Function ISheetParameterEntity_GetGroupColumn() As Integer ISheetParameterEntity_GetGroupColumn = GROUP_COLUMN End Function
'対象合計項目 Public Function ISheetParameterEntity_GetTargetSummaryItem() As Integer ISheetParameterEntity_GetTargetSummaryItem = SUMMARY_ITEM End Function
