当前位置：首页 > news >正文

wps宏代码学习

news 2025/7/10 4:21:48

推荐学习视频：https://space.bilibili.com/363834767/channel/collectiondetail?sid=1139008&spm_id_from=333.788.0.0

打开宏编辑器和JS代码调试

工具-》开发工具-》WPS宏编辑器
在这里插入图片描述
左边是工程区，当打开多个excel时会有多个，要注意不要把代码写到其他工作簿去了
右边是代码区

宏是js语言，因此变量或者方法可以网上搜索。比如搜索js变量、js数组方法等。

在语句行号前面点击，可以打断点。
在这里插入图片描述
使用Console.log(“你好”)打印文字、变量值等

代码可以使用F11可以逐语句运行，使用F10可以逐过程运行，跳出等
也可以监视变量值

数据类型

数值分为整数和浮点数，都是number类型

var a=Math.trunc(5.984)  //截取整数
var b=Math.random()  //生成随机小数
var c=Math.pow(5,2)  //乘幂
var d=Math.max(3,5)  //求最大值
var d=Math.min(3,5)  //求最小值

字符串是string类型

	var a="3.14"var b="hello\nworld"var c=a+b  //字符串相加，会变成字符串连接

字符串转数值

	var a="3"var b=5b=Number(a)

数值转字符串

	var a=3.14var b=String(a)

进制转换

	var a=12var b=a.toString(2)  //转换成二进制，结果为字符串类型var b=a.toString(16)  //转换成十六进制，结果为字符串类型

变量申明和赋值
变量有三种声明变量的方式const、var、let
const 常量
let 变量申明（作用域更小）
var 变量申明（作用域更大）
var a；//申明单个变量
var b，c，d；//申明多个变量
var e=1,f=2,g=3.2//申明多个变量并赋值数据类型

单元格边界获取

得到当前有数据内容的单元格行数
在这里插入图片描述
像上面的表格，
如果选中A1单元格，按CTRL+方向右键就会跳到F1，按CTRL+方向下键就会跳到A9
如果选中A12单元格，按CTRL+方向右键就会跳到F12，按CTRL+方向下键就会跳到A20
就可以转换成代码：

	Range("A1").End(xlToRight).Select();Range("A1").End(xlDown).Select();Range("A12").End(xlToRight).Select();Range("A12").End(xlDown).Select();var a=Range("A1").End(xlToRight).Column;var b=Range("A1").End(xlToRight).Row;

自动填写表格例程

在这里插入图片描述

//测试函数
function test(){if(Selection.Column==1 && Selection.Count==1){Range('D7').Value2=Selection.Value2} else if(Selection.Column==2 && Selection.Count==1){Range('D8').Value2=Selection.Value2}
}

写入上面代码，如果选中第1列并且选中单元格数量是1个，就让D7单元格值等于选中单元格。如果选中第2列并且选中单元格数量是1个，就让D8单元格值等于选中单元格。

做一个按钮来允许宏
在这里插入图片描述
按钮可以输入文字，给按钮指定宏，宏名字就是test。

然后我们选中第一列的一个单元格，再点击按钮，D7就会自动赋值了。
把工作表名字改成“测试表1”

然后加如下代码

function Workbook_SheetSelectionChange(Sh,Target)
{if(Sh.Name=='测试表1'){test()}
}

Workbook_SheetSelectionChange是整个工作簿的回调函数，当选择单元格发生变化的时候就会调用。调用的时候判断当前工作表是不是“测试表1”，如果是就自动运行test宏。
在这里插入图片描述
这样就不需要去点按钮了，每次改变选择的单元格就会自动运行。

字符串

数组

在这里插入图片描述

arr=Range('A1:C5').Value2

就把上面选中单元格的内容保存到数组arr中了，表格下标从0开始，即arr[0][0]保存的时A1单元格内容

function test2(){const arr=ThisWorkbook.Sheets('测试表1').Range('A5').CurrentRegion.Value2arr.reverse()Range('F5').Resize(arr.length,arr[0].length).Value2=arr
}

CurrentRegion是当前单元格挨着的有内容的单元格全部选中，类似于选中A5单元格然后按alt+A
在这里插入图片描述
代码第一行就把上面选中的所有单元格内容保存到数组arr中了
arr.reverse()是把数组内容倒过来
Resize(行数,列数) 是指定单元格行数和列数。
arr.length就是数组的行数。arr[0].length是指的数组第一行的列数
代码第3行就是把数组赋值给F5打头的单元格区域
在这里插入图片描述

function submitData(){if(checkData()==true){ //自己写个函数来检查数据是否异常   ==true可以省略，通常只写if(checkData())const arr=Range('C6').CurrentRegion.Value2		const Data=[] //准备一个数组来装数据		const targetRow=Sheets('操作记录').Range('A65535').End(3).Row+1  //先取得数据表的最大非空行位并+1作为要写入数据的行位let r=0//等下要用r来记录是第几行数量，方便写金额公式的时候判断行位for(i=4;i<=11;i++){if(arr[i][1]){  //如果单元格有内容//金额写成公式字符串，这里使用反引号，在键盘左上角数字1的左侧，反引号里变量可以用${}标出let strAmount=`=D${targetRow+r}*F${targetRow+r}`  //假如r=0，targetRow=2，这里就是'D2*F2'r++//遇到数量非空行r自增1假如有三行数据，到第三行时r=2，公式就是 D4*F4//接下来按数据表的列 构建一个数组//人员 领货日期 领货型号 数量 xxx单价 金额 备注let rowItem=[arr[1][1],arr[0][1],arr[2][1],arr[i][1],arr[2][3],arr[i][2],strAmount,arr[i][3]]//利用push方法把上面的数组一行一行塞进Data构成二维数组Data.push(rowItem)}}Sheets('操作记录').Range(`A${targetRow}`).Resize(Data.length,Data[0].length).Value2=Data Sheets('测试表1').Range('D7：D8').ClearContents()Sheets('测试表1').Range('D7').Select()}else{alert('信息不全')}
}

单元格为空检查

const DateNotNull= Range('D6').Value2 !=null

打印数组内容

	var arr=Range("a2:b5"). Value2Console.log(JSON. stringify(arr))

数据输入框、提示框

//	InputBox("请输入分数")  //输入框
//	let num=InputBox("请输入分数","提示",100,100,200)  //第2参数是标题；第3参数是默认值；第4/5参数是窗口坐标
//	alert(num)  //消息提示框
//	MsgBox("你好")MsgBox("你好",jsYesNo)  //带是/否按钮的消息框MsgBox("你好",jsYesNoCancel)  //带是/否/取消按钮的消息框  MsgBox修改第2参数还支持很多样式