グループ集計

勘定科目の昇順にデータソート
subtotal メソッド　グループ集計
Group by パラメータは　対象列
Function パラメタ　集計方法　xlsum
TotalList パラメタ対象列４列目と５列目同時
Array(4,5)
Replace パラメタ　既存の集計表と置き換え(true)
PageBreaks パラメタ　改ページを挿入しない(False)
SummaryBlowData 集計行を詳細データのしたに表示する(true)

 

Sub 集計()
Worksheets(“元帳”).Activate
勘定科目ソート
Cells(4, 1).CurrentRegion.Select
Selection.Subtotal GroupBy:=3, Function:=xlSum, TotalList:=Array(4, 5), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
End Sub

Private Sub 勘定科目ソート()
Worksheets(“元帳”).Activate
Cells(4, 1).CurrentRegion.Select
Selection.Sort Key1:=Range(“C4”), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin
End Sub

Sub 解除()
‘   SubTotalの解除
Worksheets(“元帳”).Activate
Cells(4, 1).CurrentRegion.RemoveSubtotal

日付ソート
End Sub

Private Sub 日付ソート()
Worksheets(“元帳”).Activate
Cells(4, 1).CurrentRegion.Select
Selection.Sort Key1:=Range(“A4”), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin
End Sub