[已解决]怎么设置自动跳格？如何替换扫码得出的后3位？

jbpop1

求助1：图片里的绿色是扫码枪扫码，我的意思就是A2扫码好了自动跳格到A10.

求助2：图里A26扫码出来的最后3位是130，能不能就是扫码出来直接把130替换成170？？

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-9-13 15:54

末尾三位不管是什么内容，全部替换成“170”，见附件。

跳转到最佳答案楼层

jbpop1

求助

大灰狼1976

1、工作表change事件，target.offset(8).select；
2、同样在change事件内加入right判断后三位并进行替换，注意需要防止连锁反应。

jbpop1

大灰狼1976 发表于 2017-9-13 12:43
1、工作表change事件，target.offset(8).select；
2、同样在change事件内加入right判断后三位并进行替换， ...

小白，可以讲的再详细一点吗？

大灰狼1976

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Count > 1 Then Exit Sub
   
3. If Target.Column > 1 Then Exit Sub
   
4. Dim s$
   
5. s = Target
   
6. Application.EnableEvents = False
   
7. If Right(s, 3) = "130" Then Mid(s, Len(s) - 2, 3) = "170"
   
8. Target = s
   
9. Application.EnableEvents = True
   
10. Target.Offset(8).Select
    
11. End Sub

复制代码

大灰狼1976

你上个附件吧，工作表事件不知道你懂不懂。

jbpop1

大灰狼1976 发表于 2017-9-13 12:48

还是不行，我把文件发给您看看，文件太大，做了分卷

大灰狼1976

文件做个示例上来就好了，基本上我只要格式。

jbpop1

大灰狼1976 发表于 2017-9-13 14:23
文件做个示例上来就好了，基本上我只要格式。

老师，这样的实例可以看懂吗？不太会表达，包涵

大灰狼1976

附件请测试