打印分页的问题

阿煮

视图分页后，每个页显示 第几页 共几页。目前是公式做的，但是有点卡。AI提供了一种在页脚插入的代码，但是打印才显示。所以，想请问可以用代码实现目前公式的效果吗，直接写入单元格，在每个页 第二行 比如D列写入 第几页 共几页 谢谢

LIUZHU

JSA代码

1. function Pageset(){
   
2.         let arr=ActiveSheet.UsedRange.Value2;
   
3.         let k=0,n=arr.filter(([,a])=>a=="月份").length;
   
4.         arr.forEach(([,a],i)=>a=="月份"?Cells.Item(i+2,4).Value2=`第${++k}页 共${n}页`:null);
   
5. }

复制代码

LIUZHU

需要WPS才能测试

阿煮

LIUZHU 发表于 2024-4-10 18:49
需要WPS才能测试

请问代码在哪里呢？

阿煮

LIUZHU 发表于 2024-4-10 18:49
需要WPS才能测试

请问代码在哪里呢

阿煮

LIUZHU 发表于 2024-4-10 18:48
JSA代码

谢谢大佬 但是不会JSA 我去百度下咋运行 感谢

LIUZHU

阿煮 发表于 2024-4-10 20:31
谢谢大佬 但是不会JSA 我去百度下咋运行 感谢

安装WPS才可以看到代码

阿煮

LIUZHU 发表于 2024-4-10 22:00
安装WPS才可以看到代码

有wps滴，运行jsa得学下