💻

ExcelVBAでピボットテーブルを昇順で並び替える

2022/04/28に公開約400字

VBAで特定のフィールドを昇順で並び替える

'任意のFieldsを昇順に並び替える
'引数1:シート名
'引数2:ピボットテーブル名
'引数3:フィールド名←昇順で並び替える

Private Sub S_SortPivot(ByVal arg_sortSheetName As String, arg_sortPivotName As String, ByVal arg_sortFieldsName As String)
    
    Dim sortSheet As Worksheet
    Set sortSheet = ActiveWorkbook.Worksheets(arg_sortSheetName)
    
    With sortSheet.PivotTables(arg_sortPivotName).PivotFields(arg_sortFieldsName)
        .AutoSort xlAscending, arg_sortFieldsName
    End With
    
End Sub

Discussion

ログインするとコメントできます