[已解决]请求 grf1973 协助帮忙修改程式

lkk0063

当选择批号为DWOR-开头时, 复制到 Lot No 内, 须增加＂Ｒ＂开头

最佳答案

月排行榜 / 总排行榜

grf1973

2017-2-23 13:53

第一个问题是因为数据里面有空格之类的非空符号。现在做了容错。
另两个问题处理了一下，看看是否符合要求。

跳转到最佳答案楼层

grf1973

在“巡检表”里加了个按钮，以免破坏原代码。

lkk0063

grf1973 发表于 2017-2-16 14:06
在“巡检表”里加了个按钮，以免破坏原代码。

再次请求grf1973 帮忙,
那是否有办法, 将此代码绑入"新增资料"内, 当按下"新增资料",可自动判定是否为DWOR开头批号或是DWO1开头批号去判定, 因为我程式内有绑定以下功能
1.绑入未输入资料的栏位,会自动跳至未输入栏位
2.清除"E1,E2,E3,G2,L2,F4:J18"栏位资料
3.关闭提醒讯息 Application.DisplayAlerts = False
4.将页面存档 ActiveWorkbook.Save
5.最后跳至 Sheets(3).Activate 介面

grf1973

原按钮的End sub 上面加一句  call AddNewRec 即可。
由于你代码中我这边显示乱码，所以无法测试。

lkk0063

grf1973 发表于 2017-2-16 15:55
原按钮的End sub 上面加一句  call AddNewRec 即可。
由于你代码中我这边显示乱码，所以无法测试。

会出现错误讯息"阵列索引超出范围"

grf1973

把With Activesheet  改成 With sheets("巡检表")  （即这个按钮所在的表名，你那边是乱码，自己改吧）

lkk0063

grf1973 发表于 2017-2-17 10:20
把With Activesheet  改成 With sheets("巡检表")  （即这个按钮所在的表名，你那边是乱码，自己改吧）

谢谢grf1973帮忙, 更改后还是出现错误讯息"阵列索引超出范围"

grf1973

那把 set sh=sheets(3) 改成 set sh=sheets("出货报告")

lkk0063

grf1973 发表于 2017-2-17 14:27
那把 set sh=sheets(3) 改成 set sh=sheets("出货报告")

Dear grf1973 ,
这样会有一些功能无法执行
1.绑入未输入资料的栏位,无法自动跳至未输入栏位
2.清除"E1,E2,E3,G2,L2,F4:J18"栏位资料
3.将页面存档 ActiveWorkbook.Save
4.不会自动检查批号是否有重复

grf1973

问题是你给我的附件我根本没法改啊。碰到汉字就乱码。