【WPS JSA】当前工作表格式设置_行高列宽等

function 当前工作表格式设置_行高列宽等() {    // 获取当前活动工作表    let sheet = Application.ActiveSheet;    // 自动查找数据区域，检查工作表是否为空    let usedRange = sheet.UsedRange;    if (!usedRange || usedRange.Rows.Count <= 1) {        MsgBox("当前工作表为空，无需设置格式！", 64, "提示");        return;    }    // 数据区域行高、列宽等参数，**均可据实修改**    let 标题行数 = 2;   // 标题占用的行数    let 表头行数 = 1;   // 表头占用的行数     let 标题行高 = 24;  // 标题的行高    let 表头行高 = 20;  // 表头的行高     let 其他行高 = 20;  // 其他区域的行高     let 开始列宽 = 32;  // 开始列的列宽    let 其他列宽 = 10;  // 其他列的列宽    // 获取数据区域的边界    let 开始行 = usedRange.Row;    let 总行数 = usedRange.Rows.Count;    let 最大行 = 开始行 + 总行数 - 1;    let 开始列 = usedRange.Column;    let 总列数 = usedRange.Columns.Count;    let 最大列 = 开始列 + 总列数 - 1;    // 构建完整的数据区域地址    let 数据区域地址 = sheet.Range(        sheet.Cells(开始行, 开始列),        sheet.Cells(最大行, 最大列)    );    MsgBox(        "工作表名称: " + sheet.Name + "\n" +        "开始行: " + 开始行 + "\n" +        "共有行数: " + 总行数 + "\n" +        "最大行数: " + 最大行 + "\n" +        "开始列数: " + 开始列 + "\n" +        "共有列数: " + 总列数 + "\n" +        "最大列数: " + 最大列+ "\n\n" +        "标题占用行数"+标题行数+ "\n" +        "标题占用行数"+表头行数+ "\n\n" +        "将对当前工作表进行格式设置"	,        64,        "工作表数据区域格式设置"    );// 数据区域设置统一行高    数据区域地址.RowHeight = 其他行高;    // 数据区域设置垂直居中    数据区域地址.VerticalAlignment = xlCenter;     // 数据区域设置为中文字体    数据区域地址.Font.Name = "宋体";	//"方正小标宋_GBK"    // 数据区域设置字号       数据区域地址.Font.Size = 11;     // 标题行的单独设置if (总行数 >= 标题行数 + 表头行数) {// 构建标题的数据区域地址let 标题rng = sheet.Range(		sheet.Cells(开始行,开始列), 		sheet.Cells(开始行,最大列)		);	    // 标题行设置水平对齐方式为跨列居中	    标题rng.HorizontalAlignment = xlCenterAcrossSelection;	    // 标题行设置字体	    标题rng.Font.Name = "方正小标宋_GBK";	//"宋体"	    // 标题行设置字号	    标题rng.Font.Size = 18;	    // 标题行设置行高	 	标题rng.RowHeight = 标题行高; 	 	}    // 表头行的单独设置if (总行数 >= 表头行数) {// 构建表头的数据区域地址	let 表头rng = sheet.Range(		sheet.Cells(开始行+标题行数,开始列), 		sheet.Cells(开始行+标题行数+表头行数-1,最大列)		); 		// 表头行开启折行	    表头rng.WrapText = true; 	    // 表头行水平对齐方式为水平居中		表头rng.HorizontalAlignment = xlCenter; // 表头行设置行高		表头rng.RowHeight = 表头行高;    		// 自动调整行高以适应内容	//表头rng.EntireRow.AutoFit(); 		}	//设置开始列的列宽	sheet.Columns(开始列).ColumnWidth = 开始列宽;    // 遍历所其他列，设置列宽    for (let j = 开始列+1; j <= 最大列; j++) {        sheet.Columns(j).ColumnWidth = 其他列宽;    }    // 定义添加边框的数据区域（排除标题行）let 画线rng = sheet.Range(    sheet.Cells(开始行 + 标题行数, 开始列),   // 区域左上角单元格：标题行之后的第一行    sheet.Cells(最大行, 最大列)              // 区域右下角单元格：数据最后一行最后一列	);// 设置区域所有边框为连续细线	画线rng.Borders.LineStyle = 1;   // 1 = xlContinuous，表示连续实线	画线rng.Borders.Weight = 2;      // 2 = xlThin，表示细线（最细的边框）// 设置完成提示完成信息    MsgBox(        "已完成标题行格式设置！\n" +        "已完成表头行格式设置！\n" +        "已完行高设置！\n" +        "已完列宽设置！\n" +        "已完细线设置！\n\n" +        "请查看设置效果，需要再次调整，可调整代码中相关参！\n" ,        64,        "设置完成"    );}