WPS表格 JSA 学习笔记

Posted 2021-10-29 笑虾

WPS表格 JSA 学习笔记

• 自定义公式
• • 单元格内文字颜色
• Sheet 工作表
• • 工作表引用
• Range
• • 单元格引用
  • 填写公式
  • 单元格赋值
• Cells 遍历单元格
• • Sheet 范围内遍历
  • Range 范围内遍历
• 参考资料

自定义公式

function 加括号(区域, 左括号, 右括号){
	return `${左括号}${区域}${右括号||左括号}`;
}

单元格内文字颜色

function test(){
	var len = Range("A1").Value2.length;
	for(let i = 1; i<=len; i++){
		Range("A1").Characters(i,1).Font.ColorIndex = i+7;
	}
}

Sheet 工作表

工作表引用

function tes1t(){
   Application.Worksheets.Item(1).Cells.Item(1, 1).Value2 = "按索引取工作表s1";
   Range("A2").Value2 = "当前活动区域赋值s1";
   
   Application.Worksheets.Item("Sheet1").Cells.Item(1, 2).Value2 = "按名称取工作表s1";
   Cells.Item(2, 2).Value2 = "当前活动单元格赋值s1";
}

Range

单元格引用

function tes1t(){ 
   Application.Worksheets.Item("Sheet2").Activate();
   Range("A1").Value2 = "当前活动区域赋值s2";
   Cells.Item(1, 2).Value2 = "当前活动单元格赋值s2";
}

填写公式

A1:H8范围内，每个单元格都填充公式Rand()

function test(){
    Application.Worksheets.Item("Sheet1").Activate();
	Application.Range("A1:H8").Formula = "=Rand()";
}

单元格赋值

注意：使用Value2

function test(){
	Application.Range("A1:H1").Value2 = "666";
}

Cells 遍历单元格

Sheet 范围内遍历

嵌套循环输出乘法口诀表

function test(){
    Application.Worksheets.Item("Sheet1").Activate()
    for(let i = 1; i <= 9; i++){
	    for(let j = 1; j <= 9; j++){
	        Application.Cells.Item(i, j).Value2 = i*j;
	    }
    } 
}

Range 范围内遍历

嵌套循环输出乘法口诀表
这里的i,j表示range范围内的偏移量

function test(){
    Application.Worksheets.Item("Sheet1").Activate()
    let rng = Range("C5:P20");
    for(let i = 1; i <= 9; i++){
	    for(let j = 1; j <= 9; j++){
	        rng.Cells.Item(i, j).Value2 = i*j;
	    }
    } 
}

参考资料

WPS 开放平台
WPS 宏编辑器概述
WPS 表格：自定义函数
从Visual Basic Script 转到 JavaScript