79.集計の設定
Application.Dialogs(xlDialogSubtotalCreate).Show