wps打印输出变量

wps打印输出变量 非公开

如何安装动作?

适用于
分类(旧)



更多信息
分享时间 2天5小时前
最后更新 1天21小时前
修订版本 1
用户许可 -未设置-
Quicker版本 1.44.13
动作大小 23.1 KB

分享到

「wps打印输出变量」

简介

将js代码放到wps宏编辑器中(代码内容请不要改,改了可以会调用失败)

/**

 * 格式化表格标题

 */

function 格式化表格()

{

Range("a1:g302").Delete(xlShiftToLeft);

ActiveSheet.Range("A1").Value2="quicker变量数据打印输出";

ActiveSheet.Rows.Item("1:1").RowHeight = 33;

(obj=>{obj.Merge(false);obj.HorizontalAlignment = xlHAlignCenter;})(Range("a1:g1"));

    Range("a2:g2").Value2=["序号","变量名","变量类型","变量值","备注","时间","其他"];

    Range("a3:a302").Value2=Range("a3:a302").Value2.map((a,b)=>[b+1]);

    美化表格(1)

    Range("b3").Activate();

}

//向单元格写入变量内容

function gg1(a)

{

if(Range("b2").Value2!=="变量名"){格式化表格()};

//var aa=ActiveCell.Row;

var aa=Range("b302").End(xlUp).Row+1;

var bb=a.split("|");

Range(`b${aa}:g${aa}`).Value2=bb;

if(bb[1]=="图片"){gg2(bb[2],aa)};

//ActiveCell.Offset(1,0).Activate();

Range(`b${aa}:g${aa}`).Activate();

}

//向单元格插入图片

function gg2(a,b)

{

Range("d"+b).RangeEx.InsertCellPicture(a);

        Rows.Item(b+":"+b).RowHeight = 25;

}

//美化表格

function 美化表格(a)

{

let listObj =ActiveSheet.ListObjects.Add(xlSrcRange, Range("A2:G302"), undefined, xlYes, undefined);

listObj.Unlist();

(obj=>{obj.EntireColumn.Hidden = false;obj.ColumnWidth = 5;})(Columns.Item("A:A"));

(obj=>{obj.EntireColumn.Hidden = false;obj.ColumnWidth = 10;})(Columns.Item("C:C"));

(obj=>{obj.EntireColumn.Hidden = false;obj.ColumnWidth = 40;})(Columns.Item("D:D"));

(obj=>{obj.EntireColumn.Hidden = false;obj.ColumnWidth = 25;})(Columns.Item("F:F"));

(obj=>{obj.EntireColumn.Hidden = false;obj.ColumnWidth = 15;})(Columns.Item("G:G"));

}








最近更新

修订版本 更新时间 更新说明
1 1天21小时前 增加一个参数
0 2天5小时前

最近讨论

暂无讨论