WPS-JS宏快速上手

WPS JS宏注意事项

代码后面可以不写分号“ ; ”；

缩进对程序的运行影响不大，但为了易读（防止自己以后看不懂），还是乖乖写好；

代码是逐行运行的，意味着下面一行代码错了，前面的代码依然可以执行；

没有自动预编译，点击编译功能，也不会报错，只有运行时会报错；

如果在循环时，使用Var接收变量，在使用成员运算符时不会有代码提示；

同一时间，只能有一个工作表是激活状态；

如果不知道某些功能应使用哪些代码，最好用录制宏操作一遍，查看生成的代码，加以理解；

最好有一些高级编程语言的基础；

宏操作是不可以撤回的，执行前保存一下，执行后检查没问题，保存一下；

区域内容清除

箭头指向的图标用来调用宏

代码

/*** DeleteData_Sheet0 Macro* 宏由 xt_user_6 录制，时间: 2025/01/04* 用于删除一个范围内的内容*/
function DeleteData_Sheet0()
{//选中一个单元格范围，ClearContents清除内容Range("D2:D200").ClearContents();
}

只粘贴值

代码

/*** Sheet2CopyToSheet3 Macro* 宏由 xt_user_6 录制，时间: 2025/01/04* 将一个公式生成的数据结果复制到另一个表中，只粘贴值。*/
function Sheet2CopyToSheet3()
{//激活该sheet为活动工作表Sheets.Item("2.外协公式").Activate();//全选Cells.Select();//复制选择内容  如果某个单元格范围被定义（命名）应该会显示在里面Cells.Copy(undefined);//激活该sheet为活动工作表Sheets.Item("3.外援工时汇总表").Activate();//全选Cells.Select();//选择性粘贴        粘贴值         特殊粘贴：NONE              跳过空白  是否转换         Cells.PasteSpecial(xlPasteValues, xlPasteSpecialOperationNone, false, false);//粘贴完成后，显示声明关闭剪切板，防止程序BugApplication.CutCopyMode = false;//在最近使用文件中添加该文件路径，该代码对文档内容无操作Application.RecentFiles.Add("C:\\Users\\xt_user_6\\Desktop\\waterRPA3（自动点击）\\waterRPA\\电气二组1月3日.xlsm");//保存工作簿ActiveWorkbook.Save();
}

只粘贴值

这个是粘贴整个表，而不是其中一个区域。

/*** Sheet4CopyToSheet5 Macro* 宏由 xt_user_6 录制，时间: 2025/01/04* 将一个公式生成的表转化为纯文本表格（同上一功能一致）*/
function Sheet4CopyToSheet5()
{//全选Cells.Select();//冗余代码//Range("B1").Activate();//复制选中的单元格Cells.Copy(undefined);//激活目标工作表Sheets.Item("5.报工日报").Activate();//全选Cells.Select();//选择性粘贴        粘贴值         特殊粘贴：NONE              跳过空白  是否转换      Cells.PasteSpecial(xlPasteValues, xlPasteSpecialOperationNone, false, false);//粘贴完成后，显示声明关闭剪切板，防止程序BugApplication.CutCopyMode = false;//在最近使用文件中添加该文件路径，该代码对文档内容无操作Application.RecentFiles.Add("C:\\Users\\xt_user_6\\Desktop\\waterRPA3（自动点击）\\waterRPA\\电气二组1月3日.xlsm");//保存工作簿ActiveWorkbook.Save();
}

公式结果追加到一个汇总表中

将上图内容，追加到下图箭头处，自动判断页尾。

代码

/*** autoCompile Macro* 宏由 xt_user_6 录制，时间: 2025/01/04* 将表6的内容重新筛选，并复制到表7的末尾。*/
function autoCompile()
{//激活数据页Sheets.Item("6.报工明细").Activate();//重新应用过滤器ActiveSheet.AutoFilter.ApplyFilter();//复制选中内容Selection.Copy(undefined);//激活汇总页Sheets.Item("7.报工汇总").Activate();//将焦点移动到页首，防止下次使用时无法识别文件尾。Range("F1").Activate();//单元格Q1公式为//  =COUNTA(F:F)+1//计算F列有多少行数据，+1   从而得出工作表的页尾。//获取Q1单元格的值，并转换成字符串         //                                       将焦点转移至页尾单元格Range("F"+Range("Q1").Value2.toString()).Activate();//复制到单元格中Selection.PasteSpecial(xlPasteValues, xlPasteSpecialOperationNone, false, false);//粘贴完成后，显示声明关闭剪切板，防止程序BugApplication.CutCopyMode = false;//在最近使用文件中添加该文件路径，该代码对文档内容无操作//Application.RecentFiles.Add("C:\\Users\\xt_user_6\\Desktop\\waterRPA3（自动点击）\\waterRPA\\电气二组1月3日.xlsm");//保存文件ActiveWorkbook.Save();
}

目前只用到这么多，后续再有再更新。