Function povit_add1(row1, col1, result1, sh_to, Optional sh_from = "", Optional rng_from = "a1", Optional tname = "tmp1", Optional psn = "r1c1")
    If sh_from = "" Then sh_from = ActiveSheet.Name
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        Sheets(sh_from).Range(rng_from).CurrentRegion, Version:=xlPivotTableVersion12).CreatePivotTable _
        TableDestination:=sh_to & "!" & psn, TableName:=tname, DefaultVersion:= _
        xlPivotTableVersion12
    '---
    With Sheets(sh_to).PivotTables(tname).PivotFields(row1)
        .Orientation = xlRowField
        .Position = 1
    End With
    With Sheets(sh_to).PivotTables(tname).PivotFields(col1)
        .Orientation = xlColumnField
        .Position = 1
    End With
    '---
    Sheets(sh_to).PivotTables(tname).AddDataField Sheets(sh_to).PivotTables(tname _
        ).PivotFields(result1), "", xlSum
    '---sort
    On Error Resume Next
'        Sheets(sh_to).PivotTables(tname).DataRange.Sort Order1:=xlAscending, Type:=xlSortLabels, _
'            OrderCustom:=13, Orientation:=xlTopToBottom, SortMethod:=xlStroke
'        On Error Resume Next
'        Sheets(sh_to).PivotTables(tname).DataRange.Sort Order1:=xlAscending, Type:=xlSortLabels, _
'            OrderCustom:=14, Orientation:=xlLeftToRight, SortMethod:=xlStroke
End Function

Function pivot_item_hide(sh_to, tname, arr12, field1)
'    arr12 = get_data_arr("data_12")
    With Sheets(sh_to).PivotTables(tname).PivotFields(field1)
        For Each k1 In arr12
            .PivotItems(k1).Visible = False
        Next
    End With
End Function