【填写控制】设置必填项,若为空,则不能保存 |
您所在的位置:网站首页 › wps如何设置必填项否则无法保存 › 【填写控制】设置必填项,若为空,则不能保存 |
function Workbook_SheetChange(Sh, rg) //工作表变动事件 { if(rg.Address(0,0)=='A2'){ //当A2单元格发生变动时 var newDate = new Date(); //获取当前时间 t=newDate.toJSON().split('.')[0].replace('T',' ') //格式化日期时间 Range('d2').Value2 = t //将时间写入D2单元格 } } function 录入(){ for(rg of Range("a1:e1")){ //遍历标题行 let cmt = rg.Comment //将标题行中的批注对象赋值给cmt if(cmt!=undefined && cmt.Text().includes('必填')){ //如果存在批注且批注中包含“必填”二字 if(rg.Offset(1,0).Value2==null){ //如果标题下的第2行不为空 MsgBox("【" + rg.Value2 + "】不能为空!") //提取该列不能为空 return; //结束程序 } } } let sh=Sheets.Item('数据库') //将“数据库”工作表赋值给sh i = sh.Range('a' + Rows.Count).End(3).Row + 1 //取数据库最后一行数据的下一行号 Sheet2.Range("a" + i + ":e" + i).Value2 = Range("a2:e2").Value2 //写入数据 Range("a2:e2").Value2 = "" //清空录入表数据 MsgBox('保存成功!') //弹出提示 } |
今日新闻 |
推荐新闻 |
CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3 |