分享时间 | 2天5小时前 |
最后更新 | 1天21小时前 |
修订版本 | 1 |
用户许可 | -未设置- |
Quicker版本 | 1.44.13 |
动作大小 | 23.1 KB |
将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小时前 |