[已解决]特殊序号填写

nancy66317 · 发表于 2015-7-18 16:52

我近期有个录盘点的工作，按单录入后，很难检查错误，就想有个能特殊序号填写功能就好了，各位高手请帮忙出点注意，这里是小部份数据！特殊序号填充.png

最佳答案

月排行榜 / 总排行榜

qh8600

2015-7-18 17:06

特殊序号填充.rar (14.72 KB, 下载次数: 28)

七彩屋 · 发表于 2015-7-18 16:57

本帖最后由七彩屋于 2015-7-18 17:20 编辑

找到最大的数值加1就可以

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 And Target.Count = 1 And Target <> "" And Target.Row > 2 Then
i = Range("a65536").End(xlUp).Row
Cells(Target.Row, 4) = Application.Max(Range("d2:d" & i)) + 1
End If
End Sub

复制代码

qh8600 · 发表于 2015-7-18 17:06

这个最佳答案由 qh8600 给出，感谢 qh8600 的回答。

单击隐藏图章

特殊序号填充.rar (14.72 KB, 下载次数: 28)

天天EP · 发表于 2015-7-18 17:23

qh8600 发表于 2015-7-18 17:06
楼主试试

向86大师学习

baksy · 发表于 2015-7-19 06:24

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
Target.Offset(0, 1) = Application.Max(Range("D2:D23")) + 1
End If
End Sub

nancy66317 · 发表于 2015-7-19 18:39

感谢大家的帮助，我没看第一个是否正确，因为只有代码，我不知道怎么操作，但第二个，我验证了一下是正确的！

nancy66317 · 发表于 2015-7-19 18:42

第一个代码也基本上可以，只是在删除数据时会不断提醒错误！第二个似乎没有这个问题！

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