For Each pf In ActiveSheet.PivotTables("数据透视表1").DataFields: pf.Function = xlAverage: Next
js 宏
/**
* 打印题号列表 Macro
* 宏由 huxinxiang 录制,时间: 2022/10/14
*/
function 打印题号列表()
{
var list1 =[];
for (var index =1; index < 44; index ++){
let c = Range("A"+ index).Value();
if (c){
list1.push(c);
}
}
console.log(JSON.stringify(list1))
}
/**
* 透视图转换为平均数 Macro
* 宏由 huxinxiang 录制,时间: 2022/10/14
*/
function 透视图转换为平均数()
{
var xxx =["求和项:T001","求和项:T002","求和项:T003","求和项:T004","求和项:T005"];
for (var index =0; index < xxx.length ; index ++){
ActiveSheet.PivotTables("数据透视表1").PivotFields( xxx[index]).Function = xlAverage;
}
}