如何将VBA的增删改查转换成WPS JS宏

fsdbbs · 发表于 2023-8-31 17:24

如题：将VBA的增删改查代码转换成WPS JS宏，文件里四个表两个一组，写了VBA代码（可以使用），代码论坛里找的。
WPS JS宏搞不出来，大佬可以帮忙搞一下吗？实现VBA代码的功能。

学习一下WPS JSA，网上没有找到实例。

无标题zcgc.jpg

工作簿1增删改查.rar (61.35 KB, 下载次数: 14)

fsdbbs · 发表于 2023-9-2 08:26

继续研究，论坛和百度来的代码拼凑而成
查询部分基本可用，偶尔会出错，表现为删除查询界面所有行内容，找不出原因
走过路过的大佬，大神帮优化一下嘛
（按钮是插入的形状添加文字，再指定宏。宏按钮太丑了，没有用。）

无标题zcgc1.jpg

工作簿1 WPS_JS增删改查2.rar (13.65 KB, 下载次数: 10)

左边查询按钮代码

function 查询1_Click(){
//工作台=员工考核信息新增修改查询删除2 信息库=员工考核信息表2 参考实例对应工作表
var gztSt,xxkSt,findkey,intRow,cxMaxRow,bcMaxRow,xxkMaxRow;
//gztSt 查询工作台，xxkSt 数据信息库，findkey 查询关键字
//intRowNo 表头标题行, cxMaxRow 查询前工作台最后行，bcMaxRow 查询后工作台最后行;xxkMaxRow 信息库最后行
gztSt=Sheets.Item("工作台"); xxkSt=Sheets.Item("信息库");
findkey=gztSt.Range("B2").Value2; intRow=5;
xxkMaxRow=xxkSt.Cells(Rows.Count,"A").End(xlUp).Row; //查询前查看信息库A列最后行
// Console.log(xxkMaxRow); //立即窗口输出xxkRowNo值
// cxMaxRow=gztSt.Cells(Rows.Count,"A").End(xlUp).Row; //查看工作台A列最后行
// Console.log(cxMaxRow);
Range("A6:D10000").ClearContents(); //清空工作台数据显示区A6-D10000列
for (let rngCell of xxkSt.Range("A3:D"+xxkMaxRow)){
if (rngCell.Value()===findkey){
intRow++;
rngCell.Offset(0,0).Resize(1,4).Copy(gztSt.Range("A"+intRow));
// rngCell.Offset(0,0).Resize(1,4).Copy(gztSt.Range(`A${intRow}`));
}else{
// MsgBox("没有找到，工号填了没有")；
}
}
// bcMaxRow=gztSt.Cells(Rows.Count,"A").End(xlUp).Row; // 查询完毕查看A列最后行
// Console.log(bcMaxRow);
}

复制代码

右边查询按钮代码

function 筛选示例1(){
var gztSt,xxkSt,findkey,intRow,cxMaxRow,bcMaxRow,xxkMaxRow,mbRow;
//gztSt 查询工作台，xxkSt 数据信息库，findkey 查询关键字, mbRow 信息库找到的目标行
//intRowNo 表头标题行, cxMaxRow 查询前工作台最后行，bcMaxRow 查询后工作台最后行;xxkMaxRow 信息库最后行
gztSt=Sheets.Item("工作台"); xxkSt=Sheets.Item("信息库");
findkey=gztSt.Range("H2").Value2; //intRow=5;
xxkMaxRow=xxkSt.Cells(Rows.Count,"A").End(xlUp).Row; //查询前查看信息库A列最后行
// Console.log(xxkMaxRow); //立即窗口输出xxkRowNo值
Range("G6:J1000").ClearContents(); //清空工作台数据显示区A6-D列
var arr=xxkSt.Range("A3:D"+xxkMaxRow).Value();
var brr=arr.filter((v,i)=>v[0]== findkey)
// var crr=brr.map(v=>([v[0],v[1],v[2],v[3]) //map不懂
// crr.sort((a,b)=>b[4]-a[4]) //排序不懂
gztSt.Range("G6").Resize(brr.length,4).Value2=brr //从G6输出筛选结果
}

复制代码

fsdbbs · 发表于 2023-9-2 22:04

本帖最后由 fsdbbs 于 2023-9-4 19:34 编辑

无标题zcgc3.jpg

右边按钮代码完工（左边侧舍弃，可能有更好的，我搜索不动了。）
都拼凑的，代码感觉有点乱，走过路过的大佬，大神帮优化一下嘛，先谢谢了
代码都论坛+百度来的，喜欢的随便拿走，能帮优化一下更好。

形状按钮换回宏按钮

//WPS JSA 增删改查
//查询
function CommandButton2_Click(){
var gztSt,xxkSt,cxKey,intRow,dateRow,cxMaxRow,bcMaxRow,xxkMaxRow,mbRow; //声明常用变量
/* gztSt 查询工作台，xxkSt 数据信息库，cxKey 查询关键字 mbRow 信息库查询标行 intRow 表头标题行, dateRow 保存数据起始行
cxMaxRow 查询前工作台最后行 bcMaxRow 查询后工作台最后行 xxkMaxRow 信息库最后行*/
gztSt=Sheets.Item("工作台"); xxkSt=Sheets.Item("信息库");
cxKey=gztSt.Range("H2").Value2; //intRow=5; dateRow=6;
xxkMaxRow=xxkSt.Cells(Rows.Count,"A").End(xlUp).Row; //查看信息库A列最后行 UsedRange.Rows.Count
bcMaxRow=gztSt.Cells(Rows.Count,"G").End(xlUp).Row; //查看查询台A列最后行
if(bcMaxRow>5){
gztSt.Range("G6:J"+bcMaxRow).ClearContents(); //清空查询台数据显示区
}
let f=xxkSt.Range("A3:A"+xxkMaxRow).Find(cxKey);
if(f==undefined){
if(cxKey==null){
MsgBox("工号还没填，查空气甜不甜？")
}else{
MsgBox("工号："+cxKey+" 没有找到！");
}
}else{
var arr=xxkSt.Range("A3:D"+xxkMaxRow).Value();
var brr=arr.filter((v,i)=>v[0]== cxKey)
gztSt.Range("G6").Resize(brr.length,4).Value2=brr //从G6输出筛选结果
}
}
//保存
function CommandButton3_Click(){
var gztSt,xxkSt,cxKey,intRow,dateRow,cxMaxRow,bcMaxRow,xxkMaxRow,mbRow; //声明常用变量
gztSt=Sheets.Item("工作台"); xxkSt=Sheets.Item("信息库");
cxKey=gztSt.Range("H2").Value2; intRow=5; dateRow=6;
bcMaxRow=gztSt.Cells(Rows.Count,"G").End(xlUp).Row; //查看查询台A列最后行
xxkMaxRow=xxkSt.Cells(Rows.Count,"A").End(xlUp).Row; //查看信息库A列最后行
if(gztSt.Range("G6").Value2==null){
MsgBox("没有数据可保存");
}else{
let ln=bcMaxRow-dateRow;
for(let i=0; i<=ln; i++){
let n=i+dateRow;
let gzt1=gztSt.Range("G"+n)
let f=xxkSt.Range("A3:A"+xxkMaxRow).Find(gzt1);
let ii=i+dateRow;
var msg;
if(f==undefined){
let k=xxkMaxRow+1+i;
xxkSt.Cells(k,1).Value2=gztSt.Cells(ii,7).Value2;
xxkSt.Cells(k,2).Value2=gztSt.Cells(ii,8).Value2;
xxkSt.Cells(k,3).Value2=gztSt.Cells(ii,9).Value2;
xxkSt.Cells(k,4).Value2=gztSt.Cells(ii,10).Value2;
let ghNo=gzt1.Value2
msg="工号："+ghNo+" 已新增！"
}else{
let j=f.Row;
let jj=j+i;
xxkSt.Cells(jj,1).Value2=gztSt.Cells(ii,7).Value2;
xxkSt.Cells(jj,2).Value2=gztSt.Cells(ii,8).Value2;
xxkSt.Cells(jj,3).Value2=gztSt.Cells(ii,9).Value2;
xxkSt.Cells(jj,4).Value2=gztSt.Cells(ii,10).Value2;
let ghNo=gzt1.Value2
msg="工号："+ghNo+" 已更新！"
}
MsgBox(msg);
}
}
if(bcMaxRow>5){
gztSt.Range("G6:J"+bcMaxRow).ClearContents(); //清空查询台数据显示区
}
}
//删除
function CommandButton4_Click(){
var gztSt,xxkSt,cxKey,intRow,dateRow,cxMaxRow,bcMaxRow,xxkMaxRow,mbRow; //声明常用变量
gztSt=Sheets.Item("工作台"); xxkSt=Sheets.Item("信息库");
intRow=5; dateRow=6; //cxKey=gztSt.Range("H2").Value2;
bcMaxRow=gztSt.Cells(Rows.Count,"G").End(xlUp).Row; //查看工作台A列最后行
xxkMaxRow=xxkSt.Cells(Rows.Count,"A").End(xlUp).Row; //查看信息库A列最后行
// Console.log(xxkMaxRow); //立即窗口输出xxkMaxRow值
if(gztSt.Range("G6").Value2==null){
MsgBox("没有数据可删除");
}else{
var ln=bcMaxRow-dateRow;
for(let i=0; i<=ln; i++){
let n=i+dateRow;
let ghNo=gztSt.Range("G"+n).Value2
let f=xxkSt.Range("A3:A"+xxkMaxRow).Find(ghNo);
if (f==undefined){
var msg="工号："+ghNo+" 没有找到！"
}else{
let j=f.Row;
xxkSt.Range("A"+j).EntireRow.Delete();
var msg="工号："+ghNo+" 已删除！"
}
MsgBox(msg);
}
if(bcMaxRow>5){
gztSt.Range("G6:J"+bcMaxRow).ClearContents(); //清空查询台数据显示区
}
}
}
//清除
function CommandButton5_Click()
{
let sht=Sheets.Item("工作台");UsedRange.Rows.Count
let i=sht.Cells(Rows.Count,"G").End(xlUp).Row; //查看查询显示区A列最后行
if(i>5){
sht.Range("G6:J"+i).ClearContents(); //清空查询数据显示区
}
}

复制代码

补充内容 (2023-9-5 09:39):
代码113 行 “UsedRange.Rows.Count” 是不需要的，不知道咋跑出来的

fsdbbs · 发表于 2023-9-6 10:16

3楼代码，保存1号的时候，行号f.Row成11了，信息库中在A3啊，应该是3，为啥变成11了，来个大佬，帮看一下

仙女配凡人 · 发表于 2023-9-9 00:19

处理数据一般用数组或者对象，很少直接操作单元格

fsdbbs · 发表于 2023-9-12 18:43

仙女配凡人发表于 2023-9-9 00:19
处理数据一般用数组或者对象，很少直接操作单元格

哇，看起就漂亮！
试了一下，身份证号不能录，表格改成文本只对查询有效，保存后身份证后面全是0000
=> 这种语句也看不懂，伤心，其实基本都看不懂，哎；

let index = opt ? 0 : 6
let arr = job.find(val => val[index] == txt)

复制代码

fsdbbs · 发表于 2023-9-12 19:59

本帖最后由 fsdbbs 于 2023-9-13 12:50 编辑

求注释各行代码

//查询
function submit() {
let { opt, txt, rng, job } = getInfo()
if (!/^[\S]{6,18}$/.test(txt)) return alert('只能输入6-18位数字, 不得含有其他字符');
reset()
let index = opt ? 0 : 6
let arr = job.find(val => val[index] == txt)
if (arr) {
rng.unshift('C6')
rng.forEach((v, i) => Range(v).Value2 = arr[i])
} else { alert('未找到：' + txt) }
}
//重置
function reset() { Range('C6:I6,C8:I8,C10:I10,C12:I12').Value2 = '' }
//新增
function addItems() {
let { inp, job, sh } = getInfo()
let len = job.length
console.log(len);
let end = job[len - 1][0].toString()
console.log(end);
let yy = end.substr(0, 4)
console.log(yy);
let num = Number(end.substr(4)) + 1
console.log(num);
num = num < 10 ? '00' + num : num < 100 ? '0' + num : num
let year = new Date().getFullYear().toString()
let id = yy == year ? yy + num : year + '001'
if (MsgBox('确定新增职工编号：' + id, jsYesNo) != 6) return;
Range('C6').Value2 = id
inp.unshift(id)
sh.Range(`A${len + 1}:L${len + 1}`).Value2 = inp
}
//删除
function deleteDate() {
let { id, job, sh } = getInfo()
if (MsgBox('确定删除职工编号：' + id, jsYesNo) != 6) return;
let delRow
job.find((v, i) => { if (v[0] == id) delRow = i + 1 })
if (delRow) {
sh.Rows(delRow).Delete()
reset()
} else {
alert('失败，未找到' + id)
}
}
//更新
function update() {
let { id, inp, job, sh } = getInfo()
if (MsgBox('确定更新职工编号：' + id, jsYesNo) != 6) return;
job.find((v, i) => {
if (v[0] == id) {
sh.Range(`B${i + 1}:L${i + 1}`).Value2 = inp
}
})
}
//获取基本信息
function getInfo() {
let rng = ['E6', 'G6', 'I6', 'C8', 'E8', 'G8', 'C10', 'E10', 'G10', 'I10', 'C12']
return {
opt: OptionButton1.Value, //搜索选项
txt: TextEdit1.Value, //文本框内容
id: Range('C6').Value2, //职工编号
sh: Sheets('职工信息'), //职工信息表
rng: rng, //单元格位置
inp: rng.map(i => Range(i).Value2), //提前表单
job: Sheets('职工信息').Range('A1').CurrentRegion.Value2 //职工信息数据
}
}

复制代码

今铭昔 · 发表于 2023-9-12 20:28

fsdbbs 发表于 2023-9-12 18:43
哇，看起就漂亮！
试了一下，身份证号不能录，表格改成文本只对查询有效，保存后身份证后面全是0000
=> ...

你这个是用来学习JSA吗，=>是箭头函数

仙女配凡人 · 发表于 2023-9-13 17:02

fsdbbs 发表于 2023-9-12 18:43
哇，看起就漂亮！
试了一下，身份证号不能录，表格改成文本只对查询有效，保存后身份证后面全是0000
=> ...

身份证号是单元格格式问题，改成文本就行了
QQ截图20230913135400.png

let index = opt ? 0 : 6
let arr = job.find(val => val[index] == txt)
这些都是JS语言的基础知识，注意不是JSA或者JS宏
QQ截图20230913160213.png

JSA/JS宏感觉没啥学的，Excel百分之九十的操作都是调用Workbook对象打开关闭工作簿、Worksheet对象、Range对象读写单元格......
简单看看文档十几分钟就能搞定了，前提是要有JS语言基础知识
QQ截图20230913162257.png

fsdbbs · 发表于 2023-9-13 19:05

仙女配凡人发表于 2023-9-13 17:02
身份证号是单元格格式问题，改成文本就行了

非常感谢，努力学习中

		自动登录	找回密码
密码			免费注册

[求助] 如何将VBA的增删改查转换成WPS JS宏

浏览过的版块